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Preface 


This manual contains necessary information for the development 
of I/0 devices and software. To understand and utilize this 
manual in a proper manner, basic knowledge of operation of the 
IBM 5510 Personal Computer is required. The CPU of this system 
uses an INTEL 8088 microprocessor and related knowledge of it 
is also required. 

This manual consists of the following: 


Chapter 1 Introduction to the Systen 
Chapter 2 Base Systen 

Chapter 3 Video Subsystem 

Chapter 4 System Options 

Chapter 5 Software 

Chapter 6 Compatibility 


Appendix A BIOS Listing 
Appendix B Logic Diagrams 


Appendix C Character Code Table/Character Font 


First Edition (December 1984) 


International Business Machines Corporation provides this 
manual “as is" without warranty of any kind, either express or 
implied, including, but not limited to the implied warranties 
of merchantability and fitness for a particular purpose. IBM 
may make improvements and or changes in the product(s) and or 
the program(s) described in this manual at any time and without 
notice. 


This publication could contain technical inaccuracies or 
typographical errors. Changes will be incorporated in nev 
editions of this manual. 
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1. Introduction to the System 


The IBM 5510 System basically consists of a System Unit and 
Keyboard. By adding optional units and/or features, various 
system configurations can be defined. In this Chapter, these 
units/features are introduced. 
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1. Introduction to the System 


The IBM 5510 is s compact system with a single system board 
vhich holds most of the logical circuits. It has many 
functions and value-added options. 


One of the major characteristics of the IBM 5510 is that it is 
designed to operate in three different modes: English Mode, 
Native Mode and Extension Video Mode. Switching modes can be 
performed only by inserting a ROM Cartridge. When no cartridge 
is inserted, the system operates in Native Mode. 


Mode Setting 


A BIOS Routine fixes the mode depending upon which ROM Cartridge 
is inserted. 









English Mode 
(40 x 25 AN) 








Extension 










Video Native Mode 
Mode (20 x 11 KJ) 
(40 x 25 KJ) 


AN 
KJ 


Alphanumeric 
Kanji 


As shown in the above chart, mode can be selected by inserting 
ROM Cartridges. Users can also make their own cartridges (For 
instance for game programs) and can run the programs. For this 
purpose, there are some rules to follow in relation to the ROM 
Cartridge. These rules are described in Chapter 2.0 Base System 
- ROH Cartridge in this manual. 
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1. Introduction to the System 


The IBM 5510 Video System supports a wide variety of displays 
ranging from a TV set normally installed in the home to a high 
resolution CRT display. The Video System can display up to 40 
Kanji characters across and 25 lines vertically and 720 x 512 
dots in two color graphic mode. In Text mode, Alphanumerics, 
special charcters, Katakana, Hiragana and Kanji can be displayed. 


The Video System functionally consists of three Video Processors 
(VP1, VP2, VP3). Which of these processors is active depends on 
th operational mode. By using Video RAM, such functions as 
Animation are possible. By operating VP1 and VP2, superimposing 
screens is possible. 


The IBM 5510 Video System holds up to eight “pages” as a standard 
and a maximum of twelve “pages” when additional RAM is installed. 
VP1 supports pages 0 through 7 for ASCII code, while VP2 and VP3 
support pages 8 through 11 for JIS code. Here, “page” refers to 
16KB units in memory which contain data to be displayed on the 
screen. 


The IBM 5510 system unit has the following optional features and 
provides interfaces for then: 


64KB RAM Card 


increases the system memory size by 64KB to a total of 128KB and 
enables users to work with a higher resolution video mode in VP1. 


128KB RAM Card 
increases the system memory size by 128KB to a total of 256KB and 
holds Address Decode Logic. Up to three cards can be installed 


when the Expansion Unit is used, making the maximum memory size 
512KB. 


Extension Video Card 


makes it possible to display up to 40 Kanji characters across and 
25 lines vertically. Grid Line, 720 x 512 dot two color and 
320 x 512 four color graphic displays are also possible. The 


maximum Video RAM size is 64KB, including the 32KB provided with 
the base systen. 


Diskette Drive Adapter Card 


controls up to three diskette drives. Diskettes are formatted 


to 360 KB in English mode and 720 KB in Native and Extension 
Video mode. 


3-1/2" Diskette Drive 
supports a 3-1/2" 2DD Diskette. 


5-1/4" Diskette Drive 
supports a 5-1/4" 2DD Diskette. 


1. Introduction to the System 


RS-232C Card : 
is a Serial Interface Card which plugs into the IBM 5510 System 
Board and supports Start-Stop transmission. 


RS-232C Cable 
connects the RS-232C Card with a Serial I/0 Unit. 


12” Color Display 
is a pedium resolution Red/Green/Blue/Intensity direct-drive 
display which can display a maximum of 16 colors. 


12" Honochrome Display 

is a high-resolution direct-drive display which is dual-mode 
and can display English, Native and Extension Video modes. 
Operational Frequency can be changed by changing the signal 
transmitted from the System Unit. 


14" Color Display 

is a high resolution Red/Green/Blue/Intensity direct-drive 
display which is dual-mode and can display English, Native 

and Extension Video modes. Operational Frequency can be 

changed by changing the signal transmitted from the system unit. 


Joystick 

is an input device which provides the user with two dimensional 
positioning control. Two push buttons provide the user with 
additional input capability. It is center-loaded and is 
calibrated to 100,000 Ohms. 


TV Adapter 

allows an ordinary home TV set to be connected to the IBM 5510 
Systea. It includes an RF Modulator, When the system unit is 
turned on, the connection is switched from normal TV broad- 
casting. 


Keyboard Cable 

is used to connect the keyboard to the system unit. 

Yhen the keyboard cable is not used, an infrared link provides 
cordless communication between the keyboard and the system unit. 


CMT Cable : 
connects a cassette tape recorder unit with the system unit. 


5512 Printer 

is a desk-top, non-impact printer. The thermal transfer print 
head, consisting of 24 heating elements, makes a 24 x 24 Kanji, 
12 x 24 Hankaku, 16 x 24 PICA, or 12 x 24 ELITE character font 
Batrx. 


5513 Printer 
is a desk-top thermal/matrix printer which uses roll paper. 


1. Introduction to the System 


Printer Cable 
connects printer units with the system unit. 


Expansion Unit 

is the same in size as the system unit and is placed on top of 
the system unit. It contains a Power Unit and allows the user 
to expand the the number of diskette drives to two or three. 
Through installation of an Expansion Board Kit, the number of 
I/0 Channels and the memory size can be increased. 


Expansion Board Kit 


consists of an Expansion Board Adapter and Expansion Board. 
It holds five I/0 Channel slots. 
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2. Base Systen 


The IBM 5510 consists of a System Unit and Keyboard. The key- 
board is provided with an infrared optical link and therefore 
can make key entries without a keyboard cable. It can also 
use a keyboard cable to connect to the system unit. The cable 
is available as an optional feature. 


Various kinds of optional features are available for 
installation with the system unit. Their descriptions are in 
Chapter 4.0 (4.0 System Option). In this chapter, systea 
functions are described based on the System Board, which is the 
fundamental part of the system unit. 


Video displays are described in Chapter 3.0 (Video Subsystem). 
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2. Base System 


Figure 2-1 
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Figure 2-1 System Block Diagram 
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2.1 System Board 
2.1. System Board 


The IBM 5510 System Board is a single board which performs most 
of the system functions and is the nucleus of the system. 

The system board fits horizontally in the base of the system 
unit. It uses double-sided four layered printed circuit boards 
with an internal power/ground plane. It is designed with highly 
integrated circuits. 


The logical circuits use 8088 family dedicated LSI, seven 
custom-made LSI consisting of CMOS gate arrays and various 
I/0 LSI to make the system compact while performing many 
sophisticated functions. The System Board provides the 
following interface connectors for optional features; 


- 64KB RAM Card 
- 128KB RAM Card or Expansion Board Kit 
- Extension Video Card 
- Diskette Drive Adapter 
- ROM Cartridge 
- Keyboard 
- RS-232C Card 
- Display(3 types) 
- TV Adapter 
Light Pen 
- Audio Amplifier(connector only) 
- Cassette Tape Cable 
- Joystick 
- Printer(2 types) 


AC power (+5V, +12V¥, -12V) enters the system board through the 
power supply connector. 
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2. Base System 


Figure 2-2 


System Roard 


- 
Composite 
Monitor TV 






TV set 






Expansion 
Video 






ROM 


Cartridge Display 









128K8 
RAM Card 
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Remark) —-—: Within System Board 
JXX : Connector Number 


Figure 2-2 I/O Connection Diagram 
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2.1 System Board 





Remark) GA: Gate Array 
ROM Board : System ROM and Kanji Character Generator (CG2) included 


[No [ Connecting Feature No. | —Comesting Feature 
Jl ROM Cartridge 


Cassette Tape Recorder 
ROM Cartridge 


Audio 
Diskette Drive Printer 
Adapter Joystick (1) 
128KB RAM Card Joystick (2) 
Extension Video Card | Display 
64KB RAM Card J16| Keyboard 
Infrared Receiver J17| Power Connector 
RS-232C Card 


Light Pen 
































J2 










Figure 2—3 Connectors on System Board 
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2. Base System 


Figure 2-4 





Card Connector(J3, J4, J5, J6, J8&) 





ROM Cartridge Connector (J1, J2) 


Figure 2-4 Connector. Pin Numbers 
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2.1 System Board 


The nucleus of the system board is the Intel 8088 microprocessor. 
This processor (hereafter called CPU) is software-compatible with 
the 8086 micro-processor. The 8088 supports 16 bit operations, 
including multiplication and division and supports 20 bits of 
addressing (1 megabyte storage). It operates in the minimum mode 
at 4.77 MHz. 


The three programmable timer/counters are provided by an Intel 
8235-5 programmable interval timer and are used by the syster 
in the following manner; 


Channel 0 : Used as a general-purpose timer to provide 
constant time base for implementing a time-of- 
day clock. 


Channel 1 : Used for deserializing the keyboard data and for 
time-of-day overflow during diskette operations. 


Channel 2 +: Used to support the tone generation for the audio 
speaker and to write data to the cassette. 


There are nine prioritized hardware interrupt levels and out of 
them, four are bussed to the system I/O channel for use by 
adapters. The non-maskable interrupt (NMI) of the 8088 is 
attached to the keyboard-interface circuits and receives an 
interrupt for each scan code sent by the keyboard. 


The system board has space for 128K bytes by 8 bits of ROM and 
the ROM is aligned at the top of the 8088's address space. 


The system board makes it possible to process complex screen 


handling and sound generation through its sound generator and 
video subsysten. 
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2. Base System 


2.2. Fundamental System Function 


In this Chapter, fundamental system functions and the hardware 
to support the functions are described. 


2.2.1. System Clock 


The CPU operates in the minimum mode using a 4.77 MHz clock. 

The time of one clock cycle is 210 nsec. Normally, four clock 
cycles are required for a bus cycle, so that an 840 nsec ROM 
memory cycle time is achieved. When RAM memory is shared with 
video memory RAM, write and read cycles will take an average of 
2 wait cycles, leading to an average of 6 clock cycles. The bus 
cycle time is 1.260 micro-seconds. The bus cycle time for I/0 
reads and writes is also 1.260 micro-seconds. The 4.77 MHz 
clock, whose frequency is derived from a 14.31818 MHz crystal 

is divided by 3 for the processor clock, and by 4 to obtain the 
3.58 HHz color burst signal required for color televisions. 

The 1.789 HHz clock, which is divided by 8 is used as a baud 
rate clock of an RS-232C card. 


2.2.2. Interrupt Controller 


Eight hardware levels of interrupts are available for the systen. 
The highest priority interrupt is the NMI in the 8088. The NMI 
is followed by eight prioritized interrupt levels (0 - 7) in the 
8259A Programmable Interrupt Controller. The priority of the 


interrupts are as follovws: 


Priority Interrupt Function 
1 NWI Keyboard Interrupt 
2 IRQ 0 Time Clock Interrupt 
3 IRQ 1 I/0 Channel, Keyboard 


(INT 9 Software Interrupt) 


4 IRQ 2 I/0 Channel 

5 IRQ 3 Asynchronous Port Interrupt 
(RS-232C) 

8 IRQ 4 External I/0 Channel 

7 IRQ 5 Vertical Retrace Interrupt (Video) 

8 IRQ 6 Diskette Interrupt 

9 IRQ 7 I/0 Channel and Printer 
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8259A Programming Considerations 


(1) 


2.2 Fundamental System Function 


8259A is initially set up with the following character- 


istics: 


- Buffered Mode 


can 


8088/86 Mode 
Single Mode Master(No cascading 
Edge Triggered Mode 
I/0 Address 
issue Hardware Interrupt types Hex 8(IRQ 0) to 


is 20 (Hex) 


Hex OF(IRQ 7) 


The following is an example setup:. 


0263 
0265 
0267 


0269 
026B 


026D 
(2) 


(3) 


BO 
E6 
BO 


E6 
BO 


E6 


IRQ 1,2,4 and 7 can be used 


13 
20 
08 


21 
09 


21 


MOV AL,13H ; 


OUT INTAOO,AL 


IcW1 


is allowed) 


- RESET EDGE SENSE 


CIRCUIT, SET SINGLE MODE 
8259 CHIP AND ICW4 READ 


MOV AL,8 3 ICW2 - SET INTERRUPT 
TYPE & = F 
OUT INTAO1,AL 
MOV AL,9 ;ICW4 - SET BUFFERED MODE/MASTER 


OUT INTAO1,AL 


AND 8088 MODE 


by the I/O Channel. Care 


should be taken when IRQ1 and IRQ 7 are used, as they are 
shared by several I/0 devices. 


NMI can be masked by operation of port AO. 
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2. Base System 


2.2.3. Parallel Port 


8255 PPI (Programmable Peripheral Interface) is used as one of 
the I/0 Interfaces and supports control of the Keyboard, Timer, 
and Cassette Motor. It also checks whether there is an option 
card or not. Bit Assignments for each Port(A, B, and C) and 
corresponding functions are as follows; 


Port A : For Output 
Bit Description 


PAO : Reserved for Keystroke Storage 


| 
PAT 


Port B : For Output 
Bit Name Description 


PBO Timer 2 Gate This line is routed to the gate input 
of timer 2 on the 8253-5. When this 
bit is "low", the counter operation is 
halted. This bit and PBl (Speaker 
Data) control operation of the 8253-5 


sound source. 


PB1 Speaker Data This bit ANDs “off” the output of the 8253-5 
Timer 2. It can be used to disable the 
8253-5 sound source, or modify its output. 
When this bit is high, it enables the output. 
A "low" value forces the output to 0. 


PB2 Text/Graphics This bit is used to steer data from the 
memory into Video Processor l. 


1 --- Text Modes 
0 --- Graphics Modes 
PB3 Cassette When this bit is a 1, the cassette relay 


Motor Control is open and the cassette motor is off. 
When this bit is a 0 and PB4=0, the 


cassette notor is on. 


2.2 Fundamental System Function 


PB4 Beeper & When this bit is 1, the internal beeper 
Cassette and cassette motor are disabled. 
Control 

PB5 Speaker These bits steer one of 4 sound sources. 
Switch 0,1 The selected sound source is in the display 

PB6 or in the external speaker. Selected 


sound sources are as follows; 


PB6 PBS Sound Sources) oo 
0 0 Timer 2 . 
0 1 Cassette Audio 
1 0 I/O Channel Audio 
1 1 Sound Generator 
PB7 Open Reserved for future use 
Multiplexer +5V 


PBI 
Timer 2 Output 


PB4 





PB3 Motor Control Relay 


Figure 2—5 PB Bit Function 
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2. Base System 


Port C 

Bit Name 

PCO NHI Latch 
Input 


PC1 


PC2 


PC3 


PC4 


PC5 


PC6 


PC7 


RS-232C Card 


Diskette 
Adapter 


64KB RAM 
Card 


Cassette 
Data 


Timer 2 
Input 


Keyboard 
Data 


Keyboard 
Cable 


For Input 


Description 


This Input comes from a latch which is set 
to a one on the first leading edge of the 
Keyboard Data Streanr. 


When the RS-232C Card is installed, this 
bit is a 0. 


When the Diskette Adapter Card is 
installed, this bit is a 0. 


When the 64KB RAM Card is installed, 
this bit is Low Level. 


If the Cassette Motor Relay is "closed", 
and the Cassette Motor is "on", this pin 
will contain data which has been wave- 
shaped from the cassette. When the 
Cassette Motor Relay is off, The Timer 2 
output will become PC4 input. 


8253-5 Timer 2 input. 


This input contains keyboard data. The 
keyboard data comes from the cable, 
when it is attached, or from the IR 
Receiver Card if the cable is not 
attached. 


When the Keyboard Cable is attached, the 
bit is a 0. 


2.2 Fundamental System Function 


2.2.4. Port AO Output Description 


Port output of I/0 Address AO (Hex) allows NMI interrupt and 
clock input selections. (Reference : 2.2.11 Keyboard Interface) 


Bit 
Bit 7 (NMI Enable) 


Bit 6 (IR Test ENA) 


Bit 5 (Clock 1 
Input 
Selection) 


Description 


When this bit is a one, NMI is enabled. 
When this bit is a zero, NMI is disabled. 


This bit enables the 8253-5 Timer 2 output 
into an IR diode on the IR Receiver Card. 
This information is then wrapped back to 
the the keyboard input. If the cable is 
connected, timer 2 should be set for 40 KHz 
which is the [IR-modulation frequency. This 
feature is used only for a diagnostic test 
of the IR Receiver Card. 


This bit selects input clocks to the 8253-5 
timer 1. A zero selects a 1.1925MHz clock 
input (for deserializing the keyboard data). 
A one selects the timer 0 output to be used 
as the clock input to timer 1. This is used 
to catch timer 0 overflows during diskette 
drive operations, while interrupts are 
masked off. This is then used to update the 
time of day. 
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2. Base System 


2.2.5. Memory 


The IBK 5510 has two kinds of memory, ROM(Read Only Memory) 
and RAN(Random Access Memory). Memory is categorized function- 


ally as follows; 


General-use Memory 
Systea ROH 


Video RAH 
Character Generator 1 (CG1) 


Character Generator 2 (CG2) 
- Gaiji RAH 


General-use memory 


64KB of R/¥ memory resides on the system board. R/ 

be expanded to a 512KB maximum. The standard 64KB ea ais 
consists of eight 64K bit modules and has no parity bit. 
Sources of these memory modules include the Texas Instruments 
THS4164-15 or equivalent. These are dynamic RAM with 150 ns 
access tine. Memory size can be expanded by installing 


additional 64KB or 128KB cards. 


Address space of 00000 - 7FFFF (Hex) is always reserved for 

RAM. Normally, the standard 64KB uses address space of 00000 - 
OFFFF (Hex). If an additional 64 KB memory card is installed 
address space of 00000 - 1FFFF (Hex) is used for the total of — 
128 KB space. The 64 KB system board memory is mapped to the 
EVEX memory address, while the 64 KB additional memory card is 
mapped to the ODD memory address within the 128 KB reserved 
space. When an additional 128KB RAM card is installed, the 
address space will be changed accordingly. 

(Reference : 5.5 Memory Map) 


System ROX 


The ROM subsystem is made up of 128KB of ROM aligned at E0000 - 
FFFFF (Hex) and has the following functions: 


- Pover on Self-Diagnostic test 
- Initialization (ROM, RAM, I/0 Port Configuration set-up) 
- Basic Interpreter 


- BIOS 
- Diskette Boot Strap Loader 


- Kanji Dictionary 
- ROM Cartridge auto-link 


The access time of this ROM Cartridge is 250ns and the cycle 
time is 375ns. 


2.2 [Fundamental System Function 


Video RAM 


The system board has 32KB Video RAM as a standard feature. 

The Video RAM consists of four 16K x 4 modules. These modules 
include the TMS 4416-15 or its equivalent and are dynamic RAM 
with 150ns access time. 


Character Generator (CG1) 


2KB ROM space is reserved for Alphanumeric and Special character 
fonts used in English Mode. 


Character Generator (CG2) 


128KB ROM space is provided to for Kanji, Alphanumeric, Special 
character, Hiragana and Katakana fonts to be used in Native and 
Extension Video Mode. 


Gaiji RAM 


2KB static RAM is reserved for storage of up to 62 fonts (15 x 
16). They can be accessed by Video Processor 2 and 3. The CPU 
can also read/write data. The modules are static RAM with 200ns 
access time. 


General-Use System ROM 
Memory 128KB 
512KB Maximum 


Character Generator 1] 
2KB 

iene a cus 

128KB 


way 


Character Generator 2 
- 128KB 
Video RAM weet ae 
64KB Maximum Gaiji RAM 2KB 


ey 


Figure 2-6 Memory Classification 
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2. Base System 


2.2.6. Memory Space and I/0 Address Setting 

The IBM 5510 is provided with memory s , 

LSI. The memory Space is separated Oa al dedicated cusibos 

addresses each memory block uses are defined eta and the 

The ninimua unit of definition is 32KB. The y the software. 

1/0 addresses. The addresses for most I/0 cio es 19 blocks for 

by software. These controls are performed oe be change 

priate paraneter in I/0 address 1FF (Hex) y setting the appro- 

Parameters are set in two of the control regi t i 

in each block. Memory space and I/0 sddrecers an which reside 
e set by the 


following hardware elements: 


- Status Register 
Block Definition 
Control Register 1(REG1) 


Control! Register 2 (REG2) 


Hethod for setting 


Status is reset by reading Status 


Step 1 

Register in I/O address 1FF (Hex) 
Step 2 Write Bl 

ock definiti i 

I/0 address IFF (Hex) eee 
Step 3 Writ 

é e parameter t i 

in 1/0 address ica ese 
Step4 Write parameter to be set in RE 

in 1/0 address LFF (Hex) ' i 





2.2 Fundamental System Function 


Status Register 


When I/O address 1FF(Hex) is read, the following status is 
obtained. 





Open 


0 : Inserted ROM Cartridge has 
BASE1 ROM wiring 


0 : Inserted ROM Cartridge has 
BASE2 ROM wiring 


0 : Extension Video Adapter 
exists 


Block Definition Value 


Each memory block is defined by Block Definition Value 00 - OA 
(Hex) and I/0 Block by 80 - 93 (Hex). 







ae Memory R , Address 
‘Ss 
Value | Block sae (Default Valued 





P00 1RON7 _[Syaten ROM 
Cartridge D0000~ D7 FFF 
[02 EROWS | Cartridge 
| 05 ~~ | EROM6 [Cartridge F0000~ F 7 FFF 
[06 | EROM7 [Cartridge 
Kanji ROM and Gaiji RAM Font 
| 08 
| 

















General-use Memory (128KB) * Changed by Option 
VRAM 1 {Co-use of general-use Memory & Video RAM B8000~ BF FFF 
VRAM 2 |Video RAM B8000~ BF FFF 


Remark) * --- The total of 64 KB Base and 64 KB Expanded Memory. 


= 
as 
Z 





Figure 2-7 Memory Block & Definition Value 


2. Base Svstem 


Address 
Block Remarks (Default Value) 
Value 


Interrupt Controller 
ee Bo 


Parallel Port 060~067 
A OT 
SOND Sound Generator 

FDC Diskette Drive Adapter 


| _RS-282C Card 
a 
GA2B Gate Array2 (VP2) 3DA 
GA 
LPT aDE 
PGI aD 
| MopM | Opn —s—~—<tsSCid SCQF 


Remark) 1/0 Blocks 80 - 92 are those 1/0 vithin the system unit 
When one of these are selected, bus line of the 
Expansion Unit is separated fron the system bus. 














— 
3S 


87 
88 


8A 
8B 
8C 


8E 
8F 








Figure 2-8 I/0 Block and Definition Value 


2.2 Fundamental System Function 
Address Change 


As the address bits of each memory block or I/0 blocks are 
programmable, their addresses can be changed. 


Block 
Definition Block ON/ I/O Mem. RD WR AI19 Al18 Al17 Al6 AI5 
Value Name OFF 


IROM 7] P 


fo 

[oe EROW 3 | 
[os [EROW 4 
[ou _[EROw 5 | 
[os [EROW 6 | 
al 
Ca 
Ca 











CIOlOJSCOILO/oO/]' VU) VloO 





incl Rach Mack Back Bach Bach Back mack lac) 


_ 


uU 

o 

ee ee eo eee eo acl 
me pepe lope fe le} el] ol oO] 
Hl UlelDlololololt|ttlS 
DWI) Ul] Ul Ol Ul UI UU] Ul 
WlUl ol) Ul] Us Us VU) Ul] Ul Uj, 
TWldl ol] OU] OU] Ul] 'U| VU} 'U]'U|'U 
‘oll acl Macl Mack acl Mac Mack Mack mack mack lac) 


lock Mach Mach Mach E SE wn wn gn ee 





P : Programmable 


Figure 2-9 Memory Address Change 


2. Base System 


Block 
Definition 1/0 ON/ AQY A8B AT A6 ASB A4 A3 A2 
Value Name OFF 

P 








> 
iy 


AO 








olojo|o 
| OS] OS] OS 







WO| AH 
O|= 
Zi, 
o 


a 
| 89 | 8250 
P 
| sc  |GA2A}] P 1 
| 8D |GA2B | P 
| 90 | PG2 Po 
afro 

Ts _[ wonat 
Ds _[erse_| 






aol mack mac) 


olo|lmlojololojo 
olol|tyR|[-|o]o|co 
olol| tlre jyol|r|-|o 
ololmlolH|rj|o|~ 
olol]/mwlol/ol/o;o}]o 
olo!]muljolfol/o;os;o 
1] P| OS | OS | PS | PS] PS | OS 


~~] 'U|'U 
mA | S| OS | OS | OS | OS] OO OO 


— le | Ul) oO 





ba] 










_ 
— | |] 
— | | 
— | | 
o|o 
nm | 
—_ |] 
o;}o|;o 
— i — | Oo 
o|o|o 


: 






_— 
_ 
_ 
oOo 
—_ 
_ 
Oo 
Oo 
— 






P : Programmable 
X : Neglected 
0, 1: Fixed 


Remarks) In ordar to specify I/0 address of Expansion Unit, 
the bit of Block Definition Value 93 "P” (on/off) 


should be set as l. 


Figure 2-10 1/0 Address Change 


2.2 Fundamental System Function 


Control Register (REG1, REG2) 


Each memory block or each I/O address block has one REG1 and 
one REG2. 


Memory Block Control Register 





D4 D3 D2 D1 DO 
18 


D7 D6 D5 — 
ON/OFF ai[aw|ai| ai] ais [REG 








REG1 

ON/OFF : "1" makes REG1 available 

1/0 >: When "1", this block is allocated to I/0 space 

MEW >: When "1", this block is allocated to memory space 

A19-A15 : These correspond to address lines A19-A15 and set the 
first five High Storage Bits which the memory block 
uses with REG2 A19-A15. 

REG2 

WR > When "1", writable memory 

RD >: When "1", readable memory 


A19-A15 =: REG1 specifies the bit (A19-A15) for comparison with 
the address bus output. When this bit is "1", 
comparison is not performed and when "0", comparison 
is done. When the comparison result is equal, these 
are valid addresses for this memory block. As for 
A1l4-A0, bit shown in the address bus is used as 
available addresses. 


2. Base System 


For instance, if REG] is B7(Hex) and REG2 is 61(Hex), this 
senory block uses addresses B0000-BFFFF (Hex). 







Al8 Ai7 Al6 


Address Bus > 1 
REG 1 ——-> 1 0 1 1 
REG 2 ————> 0 1 1 0 

] 


Avail.address 





1/0 Block Control Register 


D4 D3 D2 D1 po 


The I/0 Block Control Register and Memory Block Control Register 
have the same functions. I/O Address Lines compared are I[/0Q 
Control REG] and REG2 but the extent of the comparison is 

limited to AQ - A3. 


D7 D6 D5 





2.2.7. Expansion Channel 


The Expansion Channel is the means through which the CPU bus lir 
is expanded. It can be connected with various 1/0 adapters whic 
users can develop themselves. 


Major Characteristics 


- 64 Pin Connector is used 
- "READY" signal is available for low-speed I/0 features and 


slower access time memory 
- Maximum load is one standard TTL 
- 128KB RAM card, Expansion Board Adapter and other I/0 featur cm 


are connected. 
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2.2 Fundamental System Function 


The following describes connector pin(J4): 


- Signal Name Signal Name 
Do oe D1 
be Le 

| 
D6 


ie cae ea oa 
ie 


AO 


A2 LL 
—£_| § [A 


A4 
“a0 2 ear 








| Ale 13 13 Al3 
; ALS 14 14 Al5 
Ee 5V 45 15 +5V 
eS 
| AlB 17 17 Alg 
‘=I0R 18 18 | —I0w 
—MEMR 19 19 |—MEMW 
— HLDA 









| cPU CLK | 21. | 21 GND 
10/—M | 22 = 22 DOT CLOCK] 
OPEN | 23 23 : OPEN 
= a a a —— 
=EXRD | 


' —ETSC 
_ IRQ” 1 IRQ an 


! “IRQ « 4 | ‘= 2 | “27 





IRQ7. | 
a a 23 | 8 {DEN 
| R/—-pT | 

ae 

) AMODE | 

| rs 





>] 


gure 2-11 Expansion Channel Connector (J4) 
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2. Base System 


Remarks) I/0 refers to the direction seen from the systen 


board. 
Each signal is at standard TTL level except for AUDIO. 


Signal 1/0 Description 
poe Se Bere. BE ip a ey 


DO - D7 1/0 Data Lines 0 - 7: These lines provide data 
bus bits 0 to 7 for the processor, memory and 
I/0 Devices. DO is the Least Significant Bit 
(LSB) and D7 is the Most Significant Bit (MSB). 


AO - A19 0 Address Lines 0 - 19: These 20 address lines 
allow access of up to 1 megabyte of memory. 
AO is the least significant bit (LSB) and 
A19 is the most significant bit (MSB). 


-IOR 0 1/0 Read Command: When this command line output 
is "0", it instructs an I/0 device to drive its 
data onto the data bus. This signal may be 
driven by the 8088 microprocessor or by an 
external bus master(such as the DMA controller) 
after it has gained control of the bus. 


-10V 0 1/0 Write Command: When this command line 
output is "0", it instructs an I/0 device to 
read the data on the data bus. This signal 
may be driven by the CPU or by an external 
bus master(such as the DMA controller) after 
it has gained control of the bus. 


~MEUMR 0 Memory Read Command: This command line 
instructs the memory to drive its data onto 


the data bus. 


-MEMW 0 Memory Write Command: When this command line 
output is "0", it instructs the memory to 
store the data present on the data bus. 


ALE 0 ADDRESS LATCH ENABLE: This line provides the 
timing signal to latch the address bus. 


HLDA 0 HOLD ACK : This line indicates to a bus master 
on the channel that -HRQ has been honored and 
that the 8088 has floated its bus and control 


lines. 
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Signal 1/0 
CPU CLK 0 
I0/-M 0 
READY I 
RESET 0 
-EXRD 0 
-ETCS 0 


2.2 J-undamental System Function 


Description 


System Clock: It is a "“devide-by-three” of the 
14.31818 MHz oscillator and has a period of 
210 ns (4.77MHz). The clock has 33 % of the 
duty cycle. 


70 140 ns 70 140 ns 
ns 


I/0 or Memory Status: This status line is 
used to distinguish a memory access from an 
1/0 access. This line should be driven by 

a bus master after it has gained control of 
the bus. If this line is "high", it indicates 
an I/0 access; if this line is “low", it 
allows memory access. 


This line, normally "“high"("ready"), is pulled 
"low"(not ready) by a memory or I/0 device 
to lengthen I/O or memory cycles. It allows 
slower devices to attach to the I/0 channel 
with a minimum of difficulty. Any slow 
device requiring this line should drive it 
low immediately upon detecting a valid 
address and I0/-M signal. Machine cycles 
(1/0 and memory) are extended by an integral 
number and CLK cycles (210 ns). Any bus 
master on the I/0 channel should also honor 
this “ready” line. It is pulled “low” by the 
system board on memory and write cycles and 
outputting to the sound subsysten. 


This line is used to reset or initialize 

system logic upon power-up. This line is 
synchronized to the trailing edge of the 

clock and is “active high". Its duration 
upon power up is 26.5 micro secs. 


EXPANSION BUS READ CONTROL: This line is 
used to control the direction of data flow on 


the oo channel. The read status makes 
it "0". 


EXPANSION BUS Tri-state Control: It is used 
to control the Expansion Bus to Tri-state. 
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2. Base System 


Signal 


IRQ1 
IRQ2 
IRQ4 
IRQ7 


-HRQ 


-DEN 
R/-DT 


AUDIO 


A HODE 


REFC 
DOT CLOCK 


Description 


Interrupt Request 1, 2, 4 and 7: These line 
are used to signal the processor that an I/0 
device requires attention. They are 
prioritized with IRQ1 as the highest priorit 
and IRQ7 as the lowest. An interrupt reques 
is generated by raising an IRQ line fron “lo 
to "high" and holding it high until it 

is acknowledged by the processor. 


Hold Request: This line indicates that 
another bus master is requesting the I/0 
channel. When an I/O channel issues a -HRQ 
signal, the 8088 processor will respond 

to the -HRQ by asserting an HLDA, after it 
lets the data bus and address bus 
relinguish to an external bus master 

(such as the DMA controller). As a -HRQ is 
not an asynchronous signal, it should be 
synchronized to the systen clock. 


DATA ENABLE: This signal makes the data bu sqm 
available. 


This signal is used to control the directiorggm 
of data flow through the transceiver. 


1/0 devices connected to the expansion chan rege 
may provide sound sources to the nultiplexer 
of the sound subsystem which resides on the 
system board. The signal level is 1V P-P. 
This signal is used to make the memory space 
which 128 KB RAM card uses fixed after the 
memory on the board when in English mode. 


This line is used for dynamic RAM refresh. 


14.318 MHz Clock 


2-26 


2.2 Fundamental System Function 


2.2.8. Cassette Interface 


The cassette interface is controlled by software. Output from 
the 8253 Timer 2 controls data to be written to the cassette 
recorder. The digital signal read from the cassette is input 
at PC4, 8255A PPI. PB3 and PB4 output controls the relay. 
When the relay is inactive(Motor is disabled), the cassette 
output signal has a wrap feature which connects the output to 
the input. 


Data Format 





af 


: Leader Synchronous Bit Synchronous Byte’ Data CRC Data CRC 


T.1 y "0" 16’ Block | , Block ! = 


Bik Sy SE EE Se EN Oa ee ee NAD 








' Data CRC Trailer 


, Block |, i ML.t" 


Leader FF (Hex) of 256 bytes 
Synchronous bit 1°0” bit 


Synchronous byte "16" (Hex) 

Data Block 256 byte unit Data 

CRC 2 byte check Character (each Data Block) 
Trailer 4 byte FF (Hex) 





Figure 2-12 Cassette Data Format 


- 250us 


bess Sg ~—_} 


h——_ 500us | 


“we al 
ee “ag —______. 


Figure 2-13 Bit Format 


2227 


owe 


2. Base System 


ate 





Cassette Tape Write 
? 
; Cassette tape write is performed from MIC DATA OUT (Timer 2 
‘ output). The cycle of Timer 2 is 0.5ms for bit 0 and is lms 
j for bit 1. Data are written in units of 256-byte (Block) 
z an ee er — of data is shorter than multiplies of 
é -byte, the last available data are re i 
‘ complete the block. PRAVORES, TER SEED te 
i 
q 
+5V 
TALS 125 3.9K 
Timer 2 Output Wrap test data 
MIC DATA OUT 
Figure 2-14 Cassette Write 
3 
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2.2 [fundamental System Function 


Cassette Tape Read 


When more than 1/4 of leader is correctly read, the synchronous 
bit ("0") and synchronous byte are read. At the point where 
synchronous bytes are correctly read, data blocks are then read. 
If data are not read correctly up to a point of the synchronous 
bytes, the leader is searched again. 

When data are read, a CRC check is performed for each block. 
Level 0 interrupt is not allowed while reading the cassette tape. 
Data read is input from CASS AUDIO to PC4. 


18K 1M 








0.047 18K PC4 


CASS AUDIO as (i 
a 


Multiplexer 


Figure 2-15 Cassette Read 
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2. Base System 


Motor Control 


When both PB3 and PB4 are "0", the relay is active and the motor 
is turned on. 


+5V +5V 









—PB3 
(MOTOR ON) 





Driver To Motor 






-PB4 
(BEEPER MOTOR) 






Motor Control Relay 


Figure 2-16 Cassette Motor Control 


Hardware Interface 


(wae aah. Ke Oo eee oP INP. OS OER. 
: Pin No. ! Signal Name: 1/0 _ 





fee ee 

ei. a oe 
- 2  ! OPEN = 

; 38 OPEN =| 
4 CASS AUDIO: I 
"5 | MIC DATA OUT O | 
: 6 ;MOTOR CTL — - 
| 7; CASS MTL CTL, — | 
[8 | OPEN 7! 


(System- Side) 


Figure 2-17 Interface Connector (J10) 
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2.2 [fundamental System Function 


2.2.9. Sound Subsysten 


The nucleus of the sound subsystem is an analog multiplexer (MPX) 
which allows 1 to 4 different sound sources to be selected, 
amplified and sent to the audio output. The MPX and amplifier 
are configured so the amplifier's gain is unique to and 
consistent with each sound source. The amplifier is configured 
as a single-pole low pass filter with a 3dB cut-off frequency 

of 4.8 KHz. This filter is used to “round” off the corners of 
the square-wave signals. The output of the amplifier is supplied 
to the display interface and audio interface connector. 

If.an external speaker is used, an external amplifier must be 
used to drive it. The audio output is 1V¥ P-P alternating 
current and can drive a 10K Ohm or greater input impedance. 


Sound source selection depends on the configuration of port bits 
PB5 and PB6of 8255A PPI. Power-on selects Timer 2. 


PB6 PBS Selected Sound Source 
0 0 Timer 2 output 

0 1 Cassette Audio 

1 0 1/0 Channel Audio 

1 1 Sound Generator 


(1) Timer 2 Output 
Beep or simple tone is output. 


(2) Cassette Audio 
Allows use of recorded sound on the cassette tape as the 
sound source. 


(3) I/0 Channel Audio 
Allows the Expansion Channel to connect such I/0 devices 
as a sound synthesizer and have an output in Expansion Channel 
Connector (J4) Pin A30 “Audio” for input to multiplexer. 


(4) Sound Generator 
SN76489A is used. 
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wee 


ft 
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Ca ee 


a 


se dane 
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2. Base System 











Timer 2 Output Monitor Display 





Cassette Audio Multi- 
plexer 


(MPX) 


RF Modulator 
1/0 Channel 
Audio 


Sound 


Generator External Amplifier 


(Audio Interface) 


Figure 2-18 Sound Source 


The RF modulator is included in the TV Adapter. It modulat 
the audio signal and sends it with the screen signals to a 
set. 
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2.2 Fundamental System Function 


The IBM 5510 uses SN76489A as its sound generator. Its I/0 
address is CO (Hex). This chip consists of a CPU 
Interface, Control Register, three tone generators, a Noise 
Generator,and an Audio Mixer. It is controlled by software and 
allows 3 simultaneous tone. A 3.579 MHz Clock Input is used. 


is a description of each configured element: 


The following 


3.579MHz o 





D0~D7 






aovjaoquy 


Noise Generator 


Figure 2-19 Sound Generator Block Diagram 
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2. Base System 


CPU Interface 


The system microprocessor interfaces with the SN76489A by means 
of the 8 data lines and 3 control lines (WE,CE and READY). 

WE stands for Write Enable and CE for Chip Enable. 

The SN76489A is controlled by 1 or 2 bytes of data issued by the 
CPU. Each tone generator requires 10 bits of information for 

the frequency. The data transfer is made twice for each byte. 

4 bits of information are required to select the attenuation. 

A 1 byte data transfer is required. It requires 32 clock cycles 
to write data on the register and uses a READY signal for syn- 
chronization. The READY signal becomes “Low Level” at the CE 
leading edge and "High Level" at the end of the data write. 


Control Register 


The sound generator has 8 internal registers which are used to 
control the 3 tone generators and the noise source. During all 
data transfers to the sound generator, the first byte contains a 
three bit field which determines the destination control 

register. The register address codes are as follows; 


Control Register 
Destination 





Tone 1 Frequency 
Tone 1] Attenuator 
Tone 2 Frequency 
Tone 2 Attenuator 
Tone 3 Frequency 


Tone 3 Attenuator 
Noise Control 


Noise Attenuator 





3 2 #1 90 7 #6 
Tro] [lo] x 


MSB 1st byte LSB 2nd byte 


Figure 2-20 Control Register Destination 
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2.2 Fundamental System Function 
Tone Generator 
Each tone generator consists of; 


- Frequency synthesis section (Programmable Counter) 
- Attenuation section (Programmable Attenuator) 


The frequency synthesis section requires 10 bits of information 
(Hex FO - F9) from 2 bytes of data issued from the CPU. 


Data Format (2 byte transfer) 


lst eee —} nd = 
| Register | | Date | 


Sr ea naleaee a Meine 
(1) Register is selected by RO - R2 


Tone 1 Frequency 


Tone 2 Frequency 





Tone 3 Frequency 


(2) Frequency is set by FO - F9 (10 bit binary number). F9 is 
the most significant bit and FO is the least significant bit. 


7 





The frequency can be calculated by the following; 


N 
f = (HZ) 
32n 





Where N=Base clock frequency (3.579MHz) 
n=10 bit binary number (FO - FQ) 


2. Base System 


The following is an example of obtaining a 440HZ frequency: 


3579000 


‘q. = eS 


32n 
= 254 


Bit positions of FQ9 - FO are C@ TTT £17 1 6. 


The attenuator allovs 15 stages of sound volume, ranging from 
0dB to 28dB, based on the 1 byte of data issued from the CPU. 


Data Format (1 byte transfer) 


ia LSB 


rc ao eT 


(1) Register is selected by RO - R3. 


Tone ] Attenuator 
Tone 2 Attenuator 
Tone 3 Attenuator 






(2) Sound volume is set every 2dB each by bits AO - A3. 


—- eS =e we OOO SO 
7moeaqawnrerw#sesso 


1 
1 
1 
1 
1 
1 
1 
1 
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2.2 Fundamental System Function 


Noise Generator 


The noise Generator consists of: 

- Noise Source 

- Attenuator 

and can control the sound tone. (NFO:1, NF1:1 mode) 

The noise source is a shift register with an exclusive -OR 
feedback-network. The feedback network has provisions to 
protect the shift register from being locked in the zero state 
(periodic noise). 


Data Format ( 1 byte transfer) 


MSB LSB 


[1 [R2[Rifro] x| FB NFyNFo 


(1) Register is selected by RO - R2 


Re RY RO 
1 1 O Noise control 
1 1 #1 Noise Attenuator 


(2) The kind of noise is selected by the bit FB 






FB Configuration 
0 “Periodic” Noise 
1 “White” Noise 


(3) Shift rate is set by NF1 and NFO 


N/512 
N/1024 
N/2048 


Tone 3 frequency output 








(4) Attenuator control is the same as the Tone Generator. 


ast 


2. Base System 


Audio Mixer 

The audio mixer sums the three tone-generator outputs and the 
noise generator output. The output buffer will generate up to 
10mA. 


Hardware Interface 






. 
Cm 


a ae: 
| 2 | auoio | 





Figure 2-21 Audio Interface Connector (J11) 


2.2.10. Beep Subsysten 

The system beeper is a small piezoelectric speaker, which 
can be driven from one or two sound sources. 

The two sound sources are as follows; 


- §8255A PPI (PB4) Output 
- 8253-5 Timer 2 Output (Timer clock) 


The input clock for this timer is 1.19MHz. 





Figure 2-22 Beep Circuit 
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2.2 Iundamental System Function 


2.2.11. Keyboard Interface 


The infrared link or keyboard cable provides communications 
between the keyboard and the system unit. 


After the system unit reads serially encoded keyboard data frog 
PC6, the software de-serializes them using the 8253 Timer 1. 





Start Bit Data Bit 
1 ‘ : \ 
: 1 ‘ 0 1 ‘ 
Keyboard i 
Data | | i ' 
l-- 3308 -! ae 


NMI 


‘ 
‘ 
1 
‘ 
i} 
! 
' 
‘ 
‘ 
i) 
' 
' 


ee sae a Seen ee eee Pee, 
Time fr 
5 times sampling at 1 sampling time 


Figure 2-23 Sampling 


The leading edge of the start bit will generate a non-maskable 
interrupt (NMI). Once the processor enters the NMI routine to 
handle the deserialization, the keyboard data line is sampled and 
the processor is waiting to sample the trailing edge of the start 
bit. When the trailing edge of the start bit is sampled, the 
processor will wait for 330 micro-sec and sample the first half 
of the first data bit. The processor then samples the keyboard 
data every half bit cell-time. The sampling interval is 220 
micro-sec. The processor samples each half bit sample 5 times 
and will determine the logical level of the sample by majority 
rule. This enables the processor to discriminate against 
transient glitches and to filter out noise. 
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2. Base System 


Detectable Error Conditions 


The software checks whether the received data has an error or 
There are two kinds of errors, Phase and Parity errors. 


not. 
Error Cause 


Phase Errors The 1st half of the bit-cell sample is not equal 
to the inverse of the 2nd half of the bit-cel] 


sample. 


The received encoded word did not maintain odd 


Parity Errors 
parity. 


Errors will be signaled by the processor with a short 
tone from the beeper or external speaker. 

Output will be made to external speaker, if both of 
PB5 and PB6 are O and to the beeper if PB4 is 0. 


Remark) 


Keyboard Data 


To 8255 PC6 


To 8255 PCO 





NMI Interrupt 






—ICR 
(from Port AO) 


Figure 2-24 Keyboard Interface Block Diagram 


2-40 


2.2 Fundamental System Function 


Operational Parameters 


The operational distance from infrared devices to the system 
is 5 meters (line of sight). Operational efficiency can be 
impaired by outside sources. Those sources are, excessively 
bright lights and high voltage lines. A keyboard cable is 
recommended for those instances. 


Port A0 


Port AO is strongly related to the keyboard data handling and 

is described here. When a key is depressed, a serialized scan 
code is sent to the system unit. The latch causes an NMI on the 
first leading edge of the keyboard data if the enable NHI bit 
(port AO bit D7) is on. The 8088 then reads the 8253 timer to 
determine when to interrogate the serial stream. Depending on 
whether the bit is on or off, 1 character of data is deseri- 
alized and the NMI Interrupt service routine resets the NMI 
latch to read the next NMI interrupt. The NMI latch is cleared 
by reading I/0 port AQ(Hex). As the latch can also be read on 
the 8255 PCO, the program can determine if a keystroke occurred 
while NMI was disabled by reading the status latch. For in- 
stance, during certain critical operations such as diskette 

1/0, the processor will mask off the NMI interrupt. As the 
keyboard input during this time cannot be serviced, the NMI latch 
should be checked later and the appropriate action should be 
taken. The system board provides for selection of keyboard data 
from either the cable or the IR receiver board. When the signal 
level -CBL CONNECTED on the keyboard cable connector is "0", 
data are read from the cable and when "1", from the IR receiver 
board. The 8088 processor uses one 8255 PPI bit (PC6) to do the 
software de-serialization of the keyboard. 
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2. Base System 


Infrared Receiver 


The infrared receiver is located in the system unit and has an 
infrared sensitive device that demodulates the signal transmitted 
from the keyboard and sends it to the system. The infrared 
sensitive device is located on the front of the card and receivesamme 
its input through an opening in the front of the system unit box. 
There is also an infrared transmitter mounted on the receiver 

card for diagnostic purposes. 







IR Receiver 












Photo Diode 
(First AMP) 


AGC 
(Second AMP) 












Keyboard Demodulator 


Output 








Test 
Circuit 





Test Stenal (System Ecau cd: 
Figure 2-25 IR Block Diagram 


The infrared receiver is mounted on the system board with a 5-pirf 
connector. 


o 
_ 





(IR-Side) 


Figure 2-26 IR Connector specifications (J7) 
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2.2 Fundamental System Function 


Keyboard Cable Interface 


The keyboard cable connects to the sytem unit connector J16. 
The -CBL CONNECTED signal notifies the system unit that the 
cable is connected. The system unit's IR receiver circuit is 
"disabled" by this signal. When the keyboard cable is used, 
the power is supplied from the system unit. 






















‘ Pin No. 4, _Signal Name Yo 
1 ; +5V 9 
a Aa =a 
‘ rey 2 a ee ae 
= rq T. “onus OR 
4 i ag oll 4 | -CBL KBD DATA _: 1 
i 5 | ~CBL CONNECTED: 1 
6 Open a 


(System Side) — 





-_———s-— ee er) 


Figure 2-27 Keyboard Cable Connector (J16) 
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2. Base System 


2.2.12. Joystick Interface 
Interface connectors are provided for two joysticks. The 1/0 


address is common and is 201 (Hex). 
Vhen the data are read from the joystick, the following data 


are sent on the data bus: 


Switch | Switch | Switch | Switch | Coordinate | Coordi ; 
te | Coordinate | Coord 


xX X 
= Switch Input Resistor Input 





















Svitch Input 


Svitch input is shown in data bits 7,6(or 5,4) when I/0 add 

201 (Hex) is read. Each of the four switch inputs has a IK nine 
pull up resistor connected to +5V. When the button is depressed 
it is read as 0 and when the button is not depressed, it is read 


as l. 
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2.2 Fundamental System Function 
Resistor Input 


The joystick position is indicated by X and Y coordinates which 
are set by the two (for 1 joystick) variable resistors. 

When software writes data (dummy) in I/0 address 201 (Hex), the 
hardware issues two kinds of pulses in accordance with the 
resistor value. This pulse output is shown in data bit 3,2 

(or 1,0) when I/0 address 201(Hex) is read. The software can 
determine the coordinate value based on this. 


The width of the pulse is calculated by the following formula: 
Time = 24.2 micro sec + 0.011 X R gicro sec 


where R is the resistance in ohms. 










Resistor 


X Coordinate Resistor Input Value 
Y Coordinate Resistor Input 


Pulse 
Conversion 


1/0 Write 


CS 


1/O Read 
Data Bus 
DO~ D7 


Buffer 


Switch 1 Input 


Switch 2 Input 


Figure 2-28 Joystick Interface Block Diagran 
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2. Base System 


Hardvare Interface 


The joystick interface has two connectors in the rear of the 
system unit to connect two joysticks. 





(System Side) 


Figure 2-29 Joystick Interface Connector (J13, J14) 
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2.2 Kundamental System Iunction 


2.2.13. ROM Cartridge 


When a ROM cartridge is inserted into either one of two identical 
slots in the front of the machine, ROM is added to the syster 
unit or is replaced. 


Each cartridge can hold up to 96 KB ROM. Cartridge selection 

is accomplished by the chip selects, each of which addresses one 
of the high 32KB memory blocks. Each cartridge uses up to three 
of the six chip selects and the selection is determined based on 
the intended use of the cartridge. 


The ROM modules used are 250 ns access time devices. Typical 
modules are the Mostek MK37000, TMM23256, SY23128 or 
equivalent. 


Cartridge ROM Storage Allocations 


Address map of system ROM and ROM cartridge is as follows; 


EROM 3 Cartridge 
roo =E7FFF [| Basi@| Rowe] 













Address 













Figure 2-30 Cartridge ROM Chip Select 


- The system ROM on the board is selected by chip select IROM 7. 
- System ROM address space is E0000 - FFFFF (Hex). 


- Some portions of the address space for ROM cartridges will be 
used by the system ROM and some will not. 
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. Base System 


Normally, application cartridges should e EROM 2 and 

(D0000 - DFFFF). uP EROM 
When EROM 4 - EROM 7 (E0000 - FFFFF) whose address Space is 
shared by the system ROM, is used, addressing Bust be done 
carefully. 


EROM 4 and 5 are used for Language i which wi 
compete with BASIC. si ei ei 


Vhen EROM 6,7 are used for replacement of BIOS, the systen 
characteristics can be changed. In this case, BASE 1 ROM 
(A04 Pin) or BASE 2 ROM (A09 Pin) should be wired to GND 
GND (AQ1 Pin) to notify the systen. 


When ERO 4 - 7 chip selects which will compete with the 
system ROH is used, ROM space allocation of the system ROM 


vill be as follows: 


1. F0000 - FFFFF (64KB) 
2. F8000 - FFFFF (32KB) 
3. All area deletion 


This change of ROM space allocation is made at the time of 
self-diagnostic test right after the system power-on or syst 
reset. 


Vhen tvo cartridges of different modes are used in 
combination, “Error L"” will be displayed. To continue, the 


carriage return key should be pressed. 


2.2 fundamental System Function 


There are some ground rules to follow in making application 
cartridges. The major rules are: 


Conventions 


(1) These conventions should be followed for "Initial Progran 
pee rae program cartridges. These cartridges should 
include: 


55AA (Hex) : For English Mode 

AA55 (Hex) : For Native and Extension Video Mode 
Length 

Jump to initializing code 

00 (Hex) 
CRC Bytes 













2 
3,4,5 
6 

Last 2 bytes 










1. Locations 0 and 1 are used to check whether there is a 
cartridge inserted during self-diagnostic test. 55AA (Hex) 
or AA55 (Hex) indicates that a cartridge is inserted. 


2. Location 2 contains a length indicator representing the 
entire address space taken by the ROM on the cartridge. The 
algorithm for determining the contents of this byte is 
(ROM data size/512). The contents of this byte are used 
by the CRC check routine to determine how much ROM to 
check. Address space for a ROM cartridge is on a 2048 byte 
boundary. 


3. Locations 3, 4, and 5 contain a Jump call which is used to 
jump during an _ initialization routine. For cartridge 
programs that are “IPL-able” (Basic or Assembler programs), 
this routine should set the INT 18 vector to point to 
their entry points. Other types of cartridges should merely 
return to the caller. Setting the INT 18 (Hex) vector will 
enable transfer of control to the cartridge program by’ the 
IPL routine. 


4. Location 6 should be 00. 


5. CRC byte: The last two locations of the address space used 
by the cartridge must be blank. CRC characters will be 
placed in these bytes when the cartridge is built. For the 
CRC algorithm, refer to the routine at label "CRC Check” in 
the BIOS listing. 
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2. 


(2) 


Base System 


g words and run under 


For cartridges which include DOS eouane followed: 


DOS, the following conventions should b 


Location ; Contents 
Pee iinet 


eee cs 


—_—_—_- 


Sa 


| 
0,1 | 55AA (Hes) : For English Mode | 
| AA55 (Hex) : For Native and Extension Video Mode | 
| 2 | Length | 
| 9.5 : Jump to initializing code 
6 | The length of the command word | 
Z i Command name 

Y Location of jump, when command name is typed 


xX The length of the next command word, or 00(Hex) when no more 
command words exist. 


| Last 2 bytes j CRC Bytes 
a ae, _ 
Locations 0 and 1 are used to check whether there is a 
cartridge inserted during self-diagnostic test. 55AA (Hex) 


or AAS5S (Hex) indicates that a cartridge is inserted. 


| 
| 
| 
! 
aceite —— 


Location 2 contains a length indicator representing the 

entire address space taken by the ROM on the cartridge. The 
algorithm for determining the contnts of this byte is 

(ROM data size/512). The contents of this byte are used by 

the CRC check routine to determine how much ROM to checum 
Address space for a ROM cartridge is on a 2048 byte boundary 


Location 3 contains a Jump call which is used to jump during 
an initialization routine. (There might be instances where 


only FAR RETURN call exists.) 


Locations 6 - Y are command name pointers. If a cartridge 
has a routine called “Test” at location OFB5 (Hex. offset 
from the start of the segment that the cartridge is in) 

that needs to be executed when “Test” is entered as a DOS 
command, the entries (in Hex) at locations 6 - Y would be: 


Location 6 04 (4 byte length command name) 
Location 2 54(T), 45(E), 53(S), 54(T) TE ST 
Location Y B50F (offset 3; OFB5) 


Until the count field changes to 00, which occurs after 
the last name pointer (6-Y), the next name pointer will 


be set. 
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(3) 


2.2 Fundamental System function 


CRC byte: The last two locations of the address space used 
by the cartridge must be blank. CRC characters will be 
placed in these bytes when the cartridge is built. For the 
CRC algorithm, refer to the routine at label “CRC Check” in 
the BIOS listing. 


The cartridge chip selects should specify EROM2 or EROM3, 
when the cartridge is designed to run application prograags 
which are written in the Basic language, because the Basic 
Interpreter addresses E0000 (Hex). When the Basic Inter- 
preter is activated, a check is made to see if there is a 
cartridge application at D0000 (Hex). When there is a 
cartridge application and its format is correct, the appli- 
cation is loaded into RAM and run. 


The format for interpretable BASIC code must be as follows: 


[ Location Contents t 
| 0. 1 554A (Hex) : For English Mode 


; AA55 (Hex) : For Native and Extension Video Mode 
Length 

CB (Hex) 

AA (Hex) 

1,55 (Hex) 

00 (Hex) 

FF (Hex) for unprotected Basic Program 


NN Dm wo & W > 


FE (Hex) for protected Basic Program 
8 Starting address of Basic Source Code 


n FF (Hex). Padding to next 2048 byte boundary 
| Last 2 bytes CRC Bytes 


Locations 0 and 1 are used to check whether there is a 
cartridge inserted during self-diagnostice test. 55AA (Hex) 
or AASS (Hex) indicates that a cartridge is inserted. 


Location 2 contains a length indicator representing the 

entire address space taken by the ROM on the cartridge. The 
algorithm for determining the contents of this byte is 

(ROM data size/512). The contents of this byte are used by 
the CRC check routine to determine how much ROM to. check. 
Address space for the ROM cartridge is on a 2048 byte boundary. 
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2. Base System 


Location 3 aust be CB (Hex. Far Return instruction). 


Locations 4 and 5 contain the word AA55 (Hex). This is 
used by the Basic Interpreter to check for the presence of 


a Basic Application cartridge. 


Location 6 aust be 00. 


Location 7 can either FF (Hex) to indicate an unprotected 
Basic Program, or FE (Hex) to indicate a protected progran. 


Location 8 must be the start of the Basic Application 
program. 
CRC byte : The last two locations of the address space used 


by the cartridge must be blank. CRC characters will be 
placed in these bytes when the cartridge is built. 













[row | ewmme700 | ERONA 
[roi | eworerrr® | ERoms 






Figure 2-31 ROM Cartridge 
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2.2 Fundamental System Function 
Hardware Interface 


There are two slots for ROM cartridge insertion and they both 
have the same function. The following is a description of pin 
allocations and signals: 


[sient aoe | | | Sil Name 


So See 
TcanTRIOGE RESET| | @ | enon 












rae 
~ 


on 


—BASE 2 ROM 


1} | 
lool M2) 
| a 
m|oO 
mila 
— | oO 
a 
Oo 
= 
w 


te 
o 







erowe | |__| —ERONG | 
ev | | Oe | 


Figure 2-32 ROM Cartridge Connector (J1,J2) 
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2. Base System 


1. 1/0 is referred to as “System-side" view. 
eee Each signal is at a standard TTL level. 


Sisnal 
AO - Al4 0 
DO - D7 I 
-EROW2 - 7 0 
-BASE 1 ROH I 
-BASE 2 ROM I 
-CARTRIDGE I 
RESET 

-CTWR 0 


Description 
Processor Address line AO - Al4 
Processor Data lines 


These chip select lines are used to 
select ROS modules. 


When wired to AO1 pin (GND), -EROM7 is 
made available. Addresses F8000 - 
FFFFF (Hex) are used by the ROM cart- 
ridge. 


When wired to AOl pin (GND), -EROM6 is 
made available. Addresses F0000 - 
F7FFF (Hex) are used by the ROM cart- 
ridge. 


This input when “low” causes a reset to 
the system. The system will remain 
reset until this line is brought back tc 
"high". This tab is usually wired with 
an L shaped land pattern to the GND at 
A02 which provides a momentary "reset" 
when a cartridge is inserted or removed 


Memory Write Signal (open collector). 
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2.2 Fundamental System Function 


2.2.14. Printer Interface 


Centronics specifications for an 8 bit parallel interface are 
provided. 


25pin 
Connector 
8 





Data Latch 





Buffer 


Address 






Data Write 


Write Control 


Status Read 


X10 





Control 
Latch Driver 


Command 
Decoder 






Buffer 


z Enable 
Enable 





SLCT IN 
STROBE 
AUTO 
FDXT 
INIT 


ERROR 
SLCT 
PE 
ACK 
BUSY 






















Reset 


Figure 2-33 Printer Interface Block Diagran 
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2. Base System 


The interrupt level is 7. To make it possible to interrupt, 
control latch bit 4 should be changed to 1. 









Bus IRQ 
Level 7 Interrupt 


Control Bit 4 


Figure 2-34 Printer Interrupt 


1/0 Addresses are as follows: 


0 pecneee Allocation 
(Hex) 


aa | Sate 
Reserved 


Remarks) Address line A2 is not decoded and therefore either on 
of two I/0 addresses are to be used. 















The folloving descriptions apply when the IBM 5513 Printer is 
connected with the printer interface: 


Data Latch (1/0 address 378 or 37C) 
Printer output data are temporarily kept in the Data Latch. 
Status (1/0 address 379 or 37D) 


Input data read at I/0 address 379 or 37D contain the following 
printer status: 


Bit 7 (BUSY): Vhen "0", a printer cannot accept data. 
Following are instances where "0" is set: 


- 1. Data Transfer 


2. Printing 
3. An error occurs 
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Bit 


Bit 
Bit 
Bit 


Bit 


Bit 


6 (ACK): 


5 (PE): 

4 (SELECT): 
3 (ERROR): 
2 (KJ-CD): 


1,0: 


2.2 undamental System Function 


When the printer finishes accepting data, 
it will return the signal -ACK to notify 
the system that it got ready to accept the 
next data. 

When the printer paper runs out, "1" is set. 
When the printer is selected, "1" is set. 


When a printer error occurs, "0" is set. 


When "1", connection to an Image Printer 
is assume. 


Open 


Control Latch (address 37A or 37E) containes the printer control 
signal. 


Bit 


Bit 


Bit 3 (SELECT IN): 


Bit 


Bit 1 (AUTO FD): 


Bit 


7, 6. 5 : 
4 (INTR): 


2 (INIT): 


0 (STROBE): 


Open 
When "1", an interrupt is possible (Level 7). 


When "1", it is possible to control the 
printer from the CPU. 


Vhen "0", the printer is initialized. 


(More than 50 microseconds is required.) 


When "1", a line feed is performed 
after each line is printed. 


5 microsecond pulse (level "1") allows 
sending of data for this duration. 


2. Base System 


Hardware Interface 


The connector used is a D shaped connector and the signal level 
is at standard TTL. 










Sin 


al Name 
aoe 
2-9 


—STROBE oO | 
DATA 0-7 
a0 ack 

a 
a ee 
Pa [ser 








(System Side) 






ris [ error — 














U.5us Minimum 





DATA 
— STROBE 


Figure 2-36 Timing Chart 


2.2 Iundamental System Iunction 


2.3. Keyboard 


The cordless keyboard is battery powered and interfaces to the 
system unit with an infrared (IR) optical link. There are two 
types of keyboards. One is a 83-key (Compact Keyboard) and the 
other is a 102-key (Full Keyboard). The keys are arranged in a 
standard typewriter layout with the addition of function keys 
and cursor keys. All keys are typamatic keys. (When a key is 
pressed for more than 0.6 seconds, that key code is repeatedly 
sent out at a speed of 11 characters per second.) The 
microprocessor in the keyboard is normally in a standby-povwer- 
down mode until a key is depressed. When an optional keyboard 
cable is used, power is supplied from the system unit and 
signals are transmitted via the cable. 


ES BAGBA A688 


PREFER EERAPERRE AE BBP 
RREEREEEEEEEL TE 6 aaal 
E88 ECEREEEEK Ha AEA 
Eacegeyeweneres ol al 
SB BS) eee ee al 


Figure 2-37 Full Keyboard 


ES GG880 28e8ee8 


Sear enaeee 
Beecederereey 
eT 
F) BEYER 


Figure 2-38 Compact Keyboard 


2. Base System 


Transpitter 


Serially encoded scan codes are transmitted to the system unit 
with a bit cell of 440 micro-sec. (Odd parity) After each scan 
code is transmitted, they are added with 11 stop bits. When 
infrared link is used, logical 1 contains a 40 KHz(50 % duty 
ratio) carrier burst signals. 


| 11 Stop Bits | 


Boo 


-o| je Bit Cen 
Data ="2E° Parity = ‘1° 
Cable Data | 
Jrfofrbrtrfolrpototry 


Infrared Data 


Cable | Bit “1° | | Bio | 


ep ee ee 


220s ke— aa 220,: kb 
440us 440,05 
Infrared | Biv | | Bit -o° | 


My 40KHz 50% In 40KHz 50% 
(ae Cycle 220.5 rf Duty Cycle 
aes ssl : Sars 


M40ps 440,05 


Figure 2-39 Keyboard Data Transmission Format 


2.3 Kev board 
Micro Processor 


The keyboard contains a microprocessor and its functions are as 
follows: 


- Suppress Chattering 

- Scan Code Conversion 

- Typamatic 

- N Key Roll-over 

- Simultaneous Keystroke check 

- From parallel to serialized Scan Code Conversion 
- Biphase Modulation 


When keys are not pressed, the keyboard is in a standby-power 
down node. 


Scan Code 


Each key is assigned a scan code and when a key is pressed or 
released, serially encoded codes are sent to the system unit. 
The scan code when a key is released, is obtained by adding 

80 (Hex) to the scan code when a key is pressed. For instance, 
the scan code of "ESC" when pressed is "01" and is "81" when 
released. (Reference : Appendix C) 


Error Detect 


The keyboard has an N Key Roll-over function. Every combination 
is possible at N = 2 and when at N = 3, more than 95 % will be 
correctly processed. When Keys of unavailable combination are 
pressed, scan code 55 (Hex) is sent to the system unit as a 
phantom key and notifies it that the keystrokes are in error. 

In this case nothing will appear on the display or incorrect 
words will be displayed. 
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2. Base System 


2.4. Power Unit 


The power unit resides in the system box and provides’ direct 
current power to a system board, a diskette drive and cooling 
fan. The output is +5V, +12V, -12V. 


Power Unit within an Expansion Unit 


~12V 

+12V 

'5V> Expansion 
GND Board 
GNO 






GND 


GND 
-5V Drive 


Diskette 


lav 

+12V 

-5V System 
GNO Board 
GNO 


GND Diskette 
GND Drive 
-5V 


Figure 2-40 Power Unit Logic Diagram 
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2.2 ‘fundamental System [unction 


Power Specifications 


— 














+a 
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3. Video Subsysten 


The video subsystem allows the IBM color display, a wide variety 
of television-frequency monitors, or ordinary home TV sets to 
display characters and graphics. It can operate in black-and- 
white as well as in color mode and provides a lightpen interface. 
In this chapter, an overall description of the VSS is mentioned 
first, followed by descriptions of the functions of the three 
video processors (VP1, VP2 and VP3). 
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3. Video Subsystem 


3.1. Introduction 


The video subsystem is implemented using a CRT controller and 
a video gate array. It contains three video processors. 


Video processor 1 (VP1) is used both in English and in Native 
node. It can process alphanumerics and special characters 

(8 x 8 dot) which are compatible with PCjr. It can also process 
a maximum of 640 x 200 dot 4 color graphics. 


Video processor 2 (VP2) is used in Native mode. It can 

process Kanji, Hiragana, full and half-size Katakana characters, 
alphanumerics, special characters and a maximum of 640 x 200 

dot 4 color graphics. 


Video processor 3 (VP3) is contained in an optional Exten- 

sion Video Card and is used in Extension Video mode. It can 
process Kanji, Hiragana, full and half-size Katakana characters, 
alpha-numerics, special characters, grid lines which are 


compatible vith the IBM Multistation 5550 and a maximum of 720 
x 512 dot two color graphics. 


There are four video frequencies available depending on 
operational aode. They are as follows: 


3.5 MHz > 160 x 200 dot 
7 Hz > 320 x 200 dot 
14. KHz > 640 x 200 dot 
20 =z : 720 x 512 dot 
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3.1 Introduction 


| 64K RAM | 













| CG 1 
64K --J AN 
RAM Spec. char. 


VRAM 1 


Video Processor 1 
(VP 1) 


Display 
Address 
plexer 





Video Processor 2 
(VP 2) 


CG 2 
Kanji 


Hiragana Gaiji 
Katakana RAM 
AN 


special char. 





7 Video Processor 3 
1 (VP 3) : 
L H 


Remarks) 1. CG +: Character Generator 
2. --- : Option 
3. AN : Alphanumerics 


Figure 3-1 Video Subsystem Block Diagran 
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3. Video Subsystem 


3.2. Video Subsystem Memory Usage 


The base video color/graphics subsystem accesses 64K bytes of 
system read/write memory (RAH) and 32K bytes of video RAM. 
When an optional RAM card (64 KB) and an Extension Video Card 
(32 KB video RAM included) are installed, video RAM space is 
expanded. 


The memory used by the VSS is separated into VRAM 1 and VRANM 

2. VRAN 1 consists of 64 KB memory on the system board which 
is provided as a Standard feature and 64 KB of expanded memory. 
VRAH 2 is 64 KB of video RAM (32 KB of expanded memory). 

The reading/writing of video RAM is usually performed by first 
specifying the page and by using the virtual address. 


If an additional 128 KB of memory is added, it can not be 

accessed by the VSS and cannot be used as video RAM. When 192K Bem 
of expanded memory (one 64KB RAN card and one 128KB RAM card) 

is added, the address space of the 128KB expansion comes first, 
followed by that of the 64KB on the system board and the 64KB 
expansion card (Reference: 5.5 Memory Map). 


The memory for displaying screens by the VSS (video RAM) uses t hoe 
following three concepts: 


- Virtual Address 
- Page 
- Page Register 


Virtual Addresses 


B8000 - BFFFF (Hex) are virtual addresses for VP1 and VP2. 
AQOOO-AFFFF (Hex) are virtual address for VP3. The memory for 
these addresses does not physically exist. When a data 
read/write is performed from the CPU to these addresses, the 
read/write is performed on the pages (any of 0 - B) which are 
specified by the CPU page register. 


Page 


A page is a memory block separated into 16 KB nite It is part 


of a total of 192 KB memory which : 
memory and 64 KB of expanded men >. eee OF G4 KB ot Nese (vee 


ory, i 
1) plus 64 KB of Video RAM (VRAM 2)! te ee eee 
with 1, 2 or 4 pages. The number of pages n is ee jie lat 
a screen depends on the number of ool necessary to 
resolution. Four pages are neg ors and the display 9 dote 


2 color or 360 x 512 dot 4 elo aco display a 720 x 51 
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3.2 Video Subsystem Memory Usage 









Address 
FFFFF 










C0000 
B8000 






CPU 


Page 


Remarks) The memory addresses shown above are correct for the 
case where only 64KB of expanded memory is installed. 
(Reference : 5.5 Memory Map) 


Figure 3-2 Video Memory Map 
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3. Video Subsystem 


Page Register 


Pages 0-7 are allocated for VRAM 1, while pages 8-B are for 
VRAN 2. The pages are selected by the page register. The I/0 
address for VRAH 1 is 3DF (Hex) and for VRAM 2 is 3D9 (Hex). 
Both are write-only 8 bit registers. There are two kinds of 
page registers, the CPU Page Register and the CRT Page Register. 


- CPU Page Register ; 
specifies “page” for read/write from CPU to video RAM. 


- CRT Page Register ; 
specifies "page" for display on the screen. 

















Page Register 1 Page Register 2 
(I/O address 3DF) (I/O address 3D9) 


| CRT Page CRT Page 
| CRT Page 0-7 specified 
CRT Page 
| CPU Page 
| CPU Page 
| CPU Page 
| 
| 
















Remarks 


lad Page 
8-B specified 


















ro) 
i 
ro) 








CPU Page 
0-7 specified 














ieee Page 
8-B specified 


ore OM = O&O 





Display Mode 

Selection 

Display Mode 
| Selection 


Figure 3-3 Page Register 
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3.2 Video Subsystem Memory Usage 


Bits 0 - 2 

Which page in VRAM 1 (16 KB/page) to display is determined 
by these three bits in page register 1. 

Which page in VRAM 2 (16 KB/page) to display is determined 
by these three bits in page register 2. 


Bits 3 - 5 

These three bits select the page for the data transfer in case 
the data reside at virtual addresses B8000-BFFFF (Hex). In 
Extension Video mode, bits 3 and 4 should be set to "0" and 
virtual addresses of AQQOQO-AFFFF (Hex) are used. 


Bit 6, 7 (Only for VP 1) 
VP1 display mode is selected. 


| Bit 7, Bit 6 Meaning . 


0 0 ' All text modes 

0 1 ' Low resolution graphics mode 

1 0 Open 
1 1 i High resolution graphics mode 


& ee ne eee | 





Low Resolution Graphics Modes: 


- 160 x 200 dots 16 colors 
- 320 x 200 dots 4 colors 
- 640 x 200 dots 2 colors 


High Resolution Graphics Modes: 


- 320 x 200 dots 16 colors 
- 640 x 200 dots 4 colors 


The CPU page register allows pages other than that being 
displayed to be selected and to be read/written. A change of 
the contents of the CPU register does not affect the displaying 
Screen, but when the contents of the CRT page register are 
changed, the screen being displayed will change. Page changes 
are performed by the CRT page register by BIOS at the time of 
vertical line retrace of the display raster. Because of this, 
you can use page changes effectively to achieve an animation 
effect without garbling the screen. 


(Reference: 2.2.6 Memory Space and I/O Address Setting) 
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3. Video Subsystem 


3.3. Character Generator 


The Video Subsystem has two different character generators: 
Character Generator 1 (CG1) and Character Generator 2 (CG2). 


3.3.1. Charactor Generator 1 (CG1) 


CG1 consists of 2 KB of storage, for alphanumerics and special] 
characters and is used only by VP1. One character consists of 
8 x 8 dots. CG1 has a 350 ns access time/350 ns cycle-time. 

An NW2364 (or equivalent) is used. 


The kinds of characters contained in CGl are as follows: 


16 special characters for games 

15 characters for word processor editing 
96 ASCII graphic characters 

48 English characters 

48 graphic characters for business use 
16 symbols 

15 scientific characters 


3.3.2. Character Generator 2 (CG2) 


CG2, used by VP2 and VP3,uses 128 KB of ROM. 
The following are its characteristics: 


1. The IBM 5510 uses the JIS Level 1 Kanji character set. 
(G2 contains Hankaku (half-size)characters of 8 x 16 dots 
such as alphanumerics, special characters and Katakana, and 
Lenkaku (full-size) characters of 16 x 16 dots such as 
Hiragana and JIS Level 1 character set Kanji. CG2 contains 


8 x 8 alpha/numerics, special characters and Katakana which 
are used for 80 x 25 text mode display by VP2. 


2. ins Guba of four 32 KB ROMs of type TM23256(or equiva- 
ent 


3. Access time and cycle-time are both 250 ns. 


4. (G2 can be accessed from the yp2 and VP3 code buffer and 


fonts can be read through BIQS, . ji 
characters in graphics mode, (G9 - ae ii ct Aion! pale 
is written on the video RAM. . y BIOS 3m 
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3.3 Character Generator 


In order to distinguish one-byte (Hankaku) codes from two- 

byte (Zenkaku) code, 256KB of virtual address space are 

ey The codes are then compressed 128KB of Kanji ROM 
CG2). 


When a Kanji is written on video RAM, the hardware uses 
the Kanji code to point to a ROM Kanji address and the 
character at that address is displayed. 


In memory, CG2 is allocated to 80000 - BFFFF. 
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3. Video Subsystem 


3.4. Display Function of VP1 and VP2 
VP1 and VP2 have the following two display modes: 


- Text rode 
- Graphics mode 


The Graphic displaying functions of VP1 and VP2 are the same, 
but their text displaying functions are different: 


VP1/VP2 Displaying functions 






! 40 char. X 25 lines (AN) 20 char. X 11 lines (Kanji) 
Display 80 % X25 4% (AN)*¥! 40 + X11 4% (7 ) 
| 40 X 25 (ANK) 

| 80 X 25 (ANK) 

| 160 X200 dot 16 colors | 

: 320X200 + 4 + 

| 320 X200 + 16 + x 
! 


' Graphics 
Display 







The same as VP]1 
640 X200 +» 2 » 


} 
! 
| 
640 X200 +» 4 4% & 











Character ; Alphanumeric JIS Level 1 Kanji 
: display Special Characters (16 X 16 dot) 
_ possible (8 X 8 dot) Hiragana (16 X 16 dot) 


Katakana, Alphanumeric, 
Special Char. (16 X 16 or 
8 X 16 dot) 


Katakana, Alphanumeric, 


Special Char. (8 X 8 dot) 


Super- : : | : 
| aes Graphics display only Graphics and Text display 


es ee ee a ee 





Remarks) 1. ¢ indicates that 64 ; 
for VPI. are ce KB expanded memory is required 
2. AN stands for Alphan . Hs 
and Katakana. wmeric and ANK for Alphanumer! 


Figure 3-4 VP1 and VP2 Display Function 
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3.4 Display Function of VP1 and VP2 
3.4.1. VP1 Text Display 


In color-text mode, 16 colors are available either for the 
foreground or the background. The number of background colors, 
however, becomes 8 when “blink” is used. One of 16 colors is 
available for use in the text mode screen border. 


The character generator contains 256 character fonts in its 2 KB 
ROM (CG1). 


The display character codes are stored in even addresses, while 


their character attributes are stored in the odd addresses next 
to then. 


Video RAM Addresses 


0005+ 


Character Code Attribute | Character Code Attribute Character Code 


The right-half of Zenkaku Character or 
One character of Hankaku character 


The left-half of Zenkaku (full-size) character or 


One character of Hankaku (half-size) character 


VP1 Attributes 
(1) Blink is possible 


In the mode control 2 register, a "1" makes blink possible. 


The number of background colors, however, is reduced to a 
maximum of 8. 


MSB LSB 
: G 5 4 3 2 l 0 
B PA2 PAl PAO PA3 PA2 PAl PAO 


Foreground color (Palette address) 


Background color (Palette address) 


Blink control 


3. Video Subsystem 
(2) Blink is not possible 


MSB LSB 
7 6 5 4 3 2 1 0 
PA3 PA2 PAl PAO PA3 PA2 PA] PAO 


Foreground color 
(Palette address) 


Background color 
(Palette address) 


3.4.2. VP2 Text Display 
VP2 Attributes 
(1) Blink is possible 


In the VP2 mode control 1 register, if bit 6 is "0", it is 
possible to display alphanumeric mode characters. (8 x 8 dots 
to display one character. Reference: 3.4.4 Video Gate Array.) 
In this display mode, an attribute has the same meaning as in 
VP1. 


MSB LSB 
7 6 5 4 3 2 1 0 
ZN PA2 PAl PAO 2nd PA2 PA] PAO 


) 


Foreground color 
(Palette address) 
Zenkaku character 
0 : Ist byte 

1: 2nd byte 

Background color 
(Palette address) 


Character 
0 : Hankaku 
1 : Zenkaku 
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3.4 Display Function of VP1 and VP2 
3.4.3. VP1 & VP2 Graphics Display 


VP1 and VP2 support the following six graphics modes: 


Graphics Mode 1 


Graphics mode 1 displays on an ordinary TY set, 12” color display 
or 14" color display and has the following characteristics: 


- 160 dot horizontal and 200 dot vertical display 
- 16 colors are available for each dot 


- 16 KB memory per screen are necessary, as the color is speci- 
fied for each dot 


- 1 byte is required to specify 2 dots 
- This corresponds to Screen Mode 1 in Basic. 


MSB LSB 
7 6 5 4 3 2 1 0 


PA3_PA2 PAl PAO PA3 PA2 PAl PAO 


nS | 


Ist display dot 2nd display dot 


Graphics Node 2 


Graphics mode 2 displays on an ordinary TV set, 12” color display 
or 14" color display and has the following characteristics: 

- 320 dot horizontal and 200 dot vertical display 
4 out of 16 colors can be displayed 


16 KB memory per screen are necessary, as the color is speci- 
fied for each dot 


1 byte is required to specify 4 dots 
This corresponds to Screen Mode 2 in Basic. 


MSB LSB 
7 6 5 4 3 2 1 0 
PA] PAO, PAL PAO PAI PAO PAI] PAO 

Ist 2nd 3rd 4th 
display display display display 
dot dot dot dot 
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3. Video Subsystem 


Graphics Hode 3 


i i igh- i hics and 
aphics node 3 displays high resolution 2 color grap 
i: ces Ls only on high-resolution displays. This mode has 
the following characteristics: 


640 dot horizontal and 200 dot vertical display 
2 out of 16 colors can be displayed 


16 KB memory per screen are necessary, as the color is speci- 
fied for each dot 


1 byte is required to specify 8 dots 
This corresponds to Screen Mode 3 in Basic. 


MSB LSB 
7 66 5 4 3 2 1 0 
PAO PAO PAO PAO PAO PAO PAO Pao 


ae dot 


7th dot 
6th dot 
5th dot 
4th dot 
3rd dot 
2nd dot 
Ist dot 


Graphics Hode 4 


Graphics mode 4 displays on 
or 14" color display and has the following chara 


an ordinary TV set, 12" color disp] aay 
cteristics: 


320 dot horizontal and 200 dot vertical] display 

16 colors are available for display 

32 KB memory per screen are nec eti~ 
fied for each dot “seary, as the color fs sp 

1 byte is required to Specify 2 

64 KB expanded memory jg required fey VPI 

This corresponds to Screen Mode 4 in Basic 


MSB 


LSB 
fa St & ee Ff 
PA3 PAZ PAl PAO PA3 PA? pay PAg 
eS | 


Ist display dot 2nd display dot 


3.4 Display Function of VP1 and VP2 


Graphics Mode 5 


Graphics mode 5 can display only on high-resolution displays 
and has the following characteristics: 


640 dot horizontal and 200 dot vertical display 
4 out of 16 colors can be displayed 


32 KB memory per ‘screen are necessary, as the color is speci- 
fied for each dot 


64 KB expanded memory is required for VP1 
2 bytes are required to specify 8 dots 
This corresponds to Screen Mode 5 in Basic. 


MSB LSB 
byte 7 6 5 4 3 2 1 0 
Even PAO PAO PAO PAO PAO PAO PAO PAO 
Odd PAl PAl PAL PAl PAl PAl PAl PAl 


8th dot 
7th dot 
6th dot 
5th dot 
4th dot 
3rd dot 
2nd dot 
Ist dot 


[ 


3. Video Subsystem 


Graphics Mode 6 


Graphics node 6 can display only on a high-resolution display. 
This mode is achieved by combining two screens. One is screen 
mode 5 of VP1 and the other is screen mode 5 of VP2. 


has the following characteristics: 


640 dot horizontal and 200 dot vertical display 
16 colors can be displayed 


64 KB memory per screen are necessary, as the color is speci- 


fied for each dot 

64 KB expanded memory is necessary 

4 bytes are required to specify 8 dots 

This corresponds to Screen Mode 6 in Basic. 


The lowest 2 bits of the palette address a dt e % 
value in VP1 video RAM. re used to set the 


MSB LSB 
byte 7 6 5 4 3 2 1 0 
Even PAO PAO PAO PAO PAO PAO PAO PAO 
Odd PAl PAl PAl PAl PAl PAl PA] PAI 


| eer 8th dot 


7th dot 
6th dot 
5th dot 
4th dot 
3rd dot 
2nd dot 
lst dot 
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This mode 


3.4 Display Function of VP1 and VP2 


The highest 2 bits of the palette address are used to set the 
value in VP2 video RAM. 


MSB LSB 
a a a er ee ee or 
Even PA2 PA2 PA2 PA2 PA2 PA2 PA2 PA2 
Odd PA3 PA3 PA3 PA3 PA3 PA3 PA3 PA3 


| ee dot 

7th dot 
ees 
Sth dot 

4th dot 

3rd dot 

2nd dot 


lst dot 


In graphics mode 6, methods of specifying the palette address 


differs from those of graphics modes 1 through 5. 


Mode 1—5 address Mode 6 address Hex. Value 
PA3 PA2 PAl PAO PA3 PA2 PAl PAQ 





3. Video Subsystem 


3.4.4. Video Gate Array 


The video gate array controls the video functions and the 1/0 
address is 3DA (Hex). The gate array for VP1 and VP2 has 8 kinc 


of internal registers. There are internal registers for each 0% 
VP1 and VP2 and also ones used commonly by VP1 and VP2. 


To contro! read/write to a register, a flip-flop latch is used. 
Each time a write is performed to an I/O register, address/data 
flip-flop latch will be reversed. When a read is performed, 
this flip-flop changes to “address status”. 


i Write 2 Write a 


I/O address Register Data 
3DA address 





The following are descriptions of the registers: 


Internal Register Address 


The addresses for VP1 and VP2 are the same. When a register for 
VP1 is accessed, however, the "P" bit of memory block GA2A shoul 
be "1". Similarly, when a register for VP2 is accessed the "P"” 
bit of memory block GA2B should be "1", (Reference 2.2.6 Memory 
Space and I/0 Address Setting) 


; Address(Hex) | Register Name 





00 , Mode control 1 register (separate) -—-- 
01 : Palette mask register (separate) —— 
| 02 : Border color register (common) ama 
i I nk - 
! 03 ; Mode control 2 register (separate) | 
! 04 | Reset register (oun 
| 08 | *Byensonent » Somat FOE ee ae ee 
j 05 | Transparent palette register (for VP] ome 
___1 Transparent palette register (for V 
-—————_ PL only) 1 
j 06 ' Superimpose contro] register (common) 3 
MIF | Palette register (common) Pe eccies -; 
Terral 
Remarks) separate --- separately useg — 
common ----- comgonly used by VP 1 and VP2 
1 and vp2 


Mode 


This 
gate 


By, 


| 


! 


NY on fw nw! 'o! 


w 
=e 
ct 


Bit 
Bit 


Bit 


! 
4 


i 
ce. 


-"ifden ankle 


: 16 color graphics 


3.4 Display Function of VP1 and VP2 


Control 1 Register 


is a write-only 8 bit register and the address in the video 
array is 00 (Hex). 


it. VP1 function “T vp2 function 








- - Souunmemieeerent oo Reet | 
i High to low bandwidth | High to low bandwidth | 
: a een es — 

raphics/Text , Graphics/Text 





jae os 
| Video enable 


_——— —}  -_.. 


a 


_{ 1 color graphics | 





a ~ VRAM 2 Kanji/AN mode 





— Super 16 color 


The high video bandwidth display requires it to be "1". 
The following display modes require the high video 
bandwidth. 


An optional 64 KB expanded RAM card is required for VP1. 


- 80 char. x 25 lines text mode 
- 640 x 200 dot 4 color graphics 
- 320 x 200 dot 16 color graphis 


" 


1” for all graphics modes, "0" for text mode. 


Always "0". 


"1" makes the video signal available. "0" makes it not 
available and the screen becomes border color. 


"1" for 160 x 200 dot 16 color graphics and 320 x 200 
dot 16 color graphics. 


For VP2. "1" makes it possible to display Kanji charac- 
ters using VRAM 2. When it is "0" and bit 1 is "0", 


80 chars. x 25 lines text display (ANK) is possible 
using VP2. 


For VP2. "1" makes it possible to display 640 x 200 dot 
16 color graphics (screen mode 6). In this case, as 
both VRAM 1 and VRAM 2 are used, superimpose is not 
possible. 


3. Video Subsystem 


Palette Hask Register 


This is a write-only 8 bit register and the address in the vide 
gate array is 01 (Hex). "0" makes it possible to mask the 


palette. 


Bit ; VP1 function 
Mask bit 0 Mask bit 0 

Extended video 

Video bandwidth control 


Bit 0- 3 : "O" masks palette register address bit. 










Bit 4: "1" makes VP1 access VRAN 1. 
Bit 5: "1" makes VP2 access VRAM 2. 
Bit 6 : "1" makes VP3 access VRAM 3. 


Bit 7 : This changes the video bandwidth. "0" sets 14 Mig 


while "1" sets 20 MHz. 


Border Color Register 


This is a write-only 4 bit register whose address in the video 
gate array is 02 (Hex). The four bits correspond to R, G, B ance 


I and the border color is fixed by their combination. 


VP1, VP2 












B (Blue) 







1 | ¢ (Green) 
2 | R (Red) 
3 | 1 (Intensity) 
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3.4 Display Function of VP1 and VP2 


Mode Control 2 Register 


This is a write-only register whose address in the video gate 
array is 03 (Hex). 





















VP 2 function 


Blinking (0” in Kanji) 
always “0” 


2 color graphics 2 color graphics 
= | English mode 


VP 1 function 
always ‘‘0” 
Blinking 


always 6 0” 








Bit 1 : When "1", the attribute byte in text display has the 
following meaning: 


MSB LSB 
7 6 5 4 3 2 1 0 
B PA2 PAl PAO PA3 PA2 PAl PAO 


Foreground color 
Background color 
Blinking 


When "O", the attribute byte in text display has the 
following meaning: 


MSB LSB 


t 6 R) 4 3 2 1 a 


PAS PAZ PAL PAQ PA3 PA2 PAL Pao 


ue 


Foreground color 
Background color 


In graphics mode, when the control 2 register bit 1 is 
"1", the palette (PA3) high bit address is replaced by 
character the blink rate and for this, 2 colors will be 
displayed alternately. If the palette of the higher 
half and the lower half are the same, the color remains 
unchanged. If they are different, two colors will be 
displayed alternately in accordance with the blink rate. 
To cause this, only 8 colors are possible and bit 3 of 
the palette mask register becomes inactive. 
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3. Video Subsystem 


Bit 3: "1" when in 640 x 200 2 color graphics mode. 


Bit 4 : "1" when in English mode. The memory space for the 128 
KB expanded RAN card is placed after that of the 64 KB 
memory on the system board and the 64 KB expanded RAM. 
"O" when in Native and Extended Video mode. In this 
case, memory space for the 128 KB expanded RAM is always 
placed after memory address 20000 (Hex). 


Reset Register 


This is a write-only 2 bit register whose address in the gate 
array is 04 (Hex). 


0 | Asynchronous Reset 






Synchronous Reset 


Bit 0 : "1" issues an asynchronous reset in the video gate array 
and stops all memory cycles. All output signals are 
tri-stated and memory is cleared. This reset should be 


issued only once after power-on and then the synchronous 
reset should be used. 


Bit 1 : "1" issues a synchronous reset in the video gate array 
and stops all memory cycles. All output signals stop. 
Vhen a synchronous reset is made after a memory refresh 
at the time of a display mode change, the contents 
of the gate array mode control register and the CRT 


control register will be changed. After the synchronous 
reset is released, a memory refresh is done. 


In this way, the memory contents will not be changed 
even at the time of display pode change. 


Transparent Palette Register 


This is a register for VP1 only and specifies which palette 
register will become transparent. The address in the gate array 
is 05 (Hex). 


Bit | Function 


0 | Register Select 0 
Register Select 1 
Register Select 2 
Register Select 3 
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3.4 Display Function of VP1 and VP2 
Superimpose Control Register 


The address in the gate array is 06 (Hex). It controls super- 
imposing of VRAM 1 and VRAM 2. 


Function 


Priority Control 


Transparent Control 
Mode Control 1 
Mode Control 2 





Bit 3, 2 = 11 --- OR 
10 --- AND 
01 --- XOR 
00 --- has the following meanings depending on bits 
0 and 1. 





oe i 7 


VRAM 1 VRAM 2 NO 
poe tT vRAM2 | VRAM 1 
VRAM 1 VRAM 2 YES 


VRAM 2 VRAM 1 























Background color is 
displayed in the 
foreground 
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3. Video Subsystem 


Palette Register 


This is a write-only 4 bit register. The combination of the 4 
bits selects a color. There are 16 registers and the addresses 
in the video gate array are 10 - 1F (Hex). 

Each address has a corresponding color code. 


: Color Code | Palette Register 


(Hex) | Address (Hex) | 


— 


0 10 


_ 
i) 


— 
~ 


1D 


MONO DWDF Down awmn & ww = 


eal 
— 
7" 


Figure 3-5 Palette Register and Color Code 


3.4 Display Function of VP1 and VP2 











B Color 


I RG 
0000 | Blak —*d 
1 oO 0 
1 2 1 


Purple 


aoa 1 _| Bright Light Bios 
[a1 a 1 | Bright White | 


0 
0 





[oo i 0_| Gree 
eS: 


Figure 3-6 Palette Register and the color displayed 


When the palette is loaded, the video is in a "display disable” 
status and the color on the screen is set depending on the 
contents of the register which the processor specifies. 


When the program finishes loading the palette, the video changes 
again to a "display enable" status. 
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3. Video Subsystem 


3.4.5. Superismpose 


VP1 and VP2 operate on the same clock at 14.31818 MHz. The two 
video signals can be imposed using the mixer. The video mixer 
includes a 4 bit x 16 word palette. The mixer sets the priority 
of VP1 and VP2 and allows screens to be imposed using such logic 
operations as AND, OR, or XOR. 


ae Kanji ANK | 160x | 320x | 640x | ANK | 320x | 640 | Kanji 
ia Blox | 40x | 200! 200! 2001 sox | 200 200 | 40x 
ar 5 25 }16C |4c |2C a 5 5 a 
160% 200 x | x 
16C 


0 Xx | a 
0 C 





Remarks) © ---- Imposition Possible 
X ---- Impossible 
AN --- Alphanumeric, Special Chap 
ANK -- Alph ic, S aE LOE 
oe ot epee pecial Character, Katakana 


Figure 3-7 Combinations for Superimposa 
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3.4 Display Function of VP1 and VP2 


3.4.6. Video RAM and Display Screen Relationships 


The size of video RAM necessary to display graphics depends on 
what is being displayed. 


The following displays require two banks of memory, each of 
which is 8000 bytes: 


- Graphics mode 1 (160 x 200 dot 16 colors) : 2 dots/byte 
- Graphics mode 2 (320 x 200 dot 4 colors) : 4 dots/byte 
- Graphics mode 3 (640 x 200 dot 2 colors) : 8 dots/byte 


|_—______—_______— 80 bytes /line ————_} 


neo | 
Ea 





Remark) The value in the rectangle indicates the relative 
address (Hex) of the video RAM. 


Figure 3-8 Video RAM and the screen (1 of 2) 


3. Video Subsystem 


The following displays require four banks of memory, each of 
which is 8000 bytes. 


- Graphics mode 4 (320 x 200 dot 16 colors) 
- Graphics mode 5 (640 x 200 dot 4 colors) 


|-—_—____—_——_le0 bytes/line————____J 





Remark) The value in the rectangle indicates the relative 
address (Hex) of the video RAM, 


Figure 3-8 Video RAM and the Screen (2 of 2) 
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3.5 VP3 Display Function 


3.5. VP3 Display Function 


VP3 is a video processor for Extension Video mode and is 
included in an optional Extension Video card. 


3.5.1. VP3 Text Display 
VP3 supports display of the following types of text 


- Kanji, Hiragana 
Zenkaku(Full-size) 16 x 16 dot, 40 characters x 25 lines 


- Katakana, Alphanumerics, Special Characters 
Zenkaku(Full-size) 16 x 16 dot, 40 characters x 25 lines 
Hankaku (Half-size) 8 x 16 dot, 80 characters x 25 lines 

- Vertical and Horizontal Grid lines 


Attributes differ between monochrome and color displays. 


Monochrome display attributes: 


MSB LSB 


7 6 5 4 3 2 1 0 
[8 [ws] we vopwry wry eR] on 





Character 
BQ Messe Hankaku 
] Peseeee Zenkaku 
When Zenkaku 
SQ Perse 1st byte 
Messe 2nd byte 


Reverse video 
Intensity 

Grid line (vertical ) 
Grid Line (horizontal) 
Underline 

Blink 
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3. Video Subsystem 


Color Display Attributes: 


MSB 


7 6 R) 4 3 2 1 0 


| 
| 
MicrcoresacoetcnasarxeRaaD 


Remarks) 1. 


The combination of bits 3, 


to display 8 colors. 


Character 
0) “esses Hankaku 
| Meseeee Zenkaku 
When Zenkaku 
SQ Meseeee lst byte 
ee Dien 2nd byte 


Reverse Video 

Color : “0” for Red 
Grid line (vertical ) 

Grid Line (horizontal) 
Color : “0” for Green 
Color : “0” for Blue 


6 and 7 makes it possible 


Display is not possible when all of bits 2, 3, 6 and 


7 are "1". 
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3.5 VP3 Display Function 


3.5.2. VP3 Graphics Display 


In VP3 graphics display, the address space of A0000 - AFFFF (Hex) is 
allocated as the video RAM virtual addresses. 


VP3 supports the following two graphics modes: 


- Mode 1 : 360 x 512 dot 4 colors 
- Mode 2 : 720 x 512 dot 2 colors 


Mode 1 
Mode 1 graphics display has the following characteristics: 


360 horizontal x 512 vertical dot display screen 

- 4 out of 16 colors can be displayed at one tine 

- 46,080 bytes of memory are required, as the color is 
specified for each dot. 

- 1 byte specifies 4 dots. 


MSB LSB 
‘ G 3 4 3 2 ] 0 
PA} PAO PAT PAO PAL PAO PAl1 PAO 
lst 2 nd 3rd 4th 
display display display display 
dot dot dot dot 
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3. Video Subsystem 


Mode 2 
Mode 2 graphics display has the following characteristics: 


- 720 horizontal x 512 vertical dot display screen 

- 2 out of 16 colors can be diplayed at one time 

- 46,080 bytes of memory are required, as the color is 
specified for each dot. 

1 byte specifies 8 dots. 


MSB LSB 
7 6 5 4 3 2 1 0 
PAO PAO PAO PAO PAO PAO PAO PAO 


8th dot 
7th dot 
6th dot 
5th dot 
4th dot 
3rd dot 
2nd dot 
lst dot 


| 
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3.5 VP3 Display Function 
3.5.3. Gate Array 


The VP3 gate array is contained in an optional Extension Video 
Card and the I/0 address is 3DD (Hex). The gate array has eight 
internal registers whose internal addresses are 00 - 07 (Hex). 
The internal registers perform various controls on VP3. 


Write to internal register 


Step 1 Read (Dummy) at I/0 address 3DD (Hex) 


Step 2 
> Write internal register address 


at I/0 address 3DD (Hex). 


Step 3 
Write the internal register data 
which was specified in the above 
step 2 at I/0 address 3DD (Hex). 
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3. Video Subsystem 


Register 0 


The internal address is 00 (Hex). When any data are written 
in this register, a write to the internal register is made 


possible. 
Register 1 


The internal address is 01 (Hex). When any data are written 
in this register, a write to the interna] register is made 
impossible. Registers other than the palette register are 
cleared. 


Register 2 
The internal address is 02 (Hex). 


MSB LSB 


Pfs] s}s] sj 2tifo | 


Cursor mode selection (Mono. text only ) 


“0” : CRITIC Guess 


“1” > Character Box Reverse 
Display mode 
“OO” = Text 


“1” > Graphics 
Synchronous Pulse 
“0” : impossible 
“1” = possible 
Video Pulse 
“0” = impossible 
“1” = possible 
Open 
Cursor Length 
“0” > Hankaku length 
“1” > Zenkaku length 
Open 
Open 


In color node ("1" at bit 7 of Register 5), only sh at bit 0 
is valid. 
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3.5 VP3 Display Function 
Register 3 


This register contains the information for setting the color in the 
palette register. The internal address is 03 (Hex). 


I (Intensity) 


Open (0) 
Palette register address 





Palette register address 


Bit 7, 63 
00 Palette register 0 
01 Palette register 1 
10 Palette register 2 
11 Palette register 3 


The palette registers 0 through 3 can be used in 360 x 512 dot 
graphics display. The palette registers 0 and 1 can be used 
in 720 x 512 dot graphics display. 


Register 4 


The internal address is 04 (Hex). A write is performed against 
this register to make the clock available (any data vill do). 
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3. Video Subsystem 


Register 5 


The internal address is 05 (Hex). 


Grid line color : B (Blue) 
Grid line color : G (Green) 
Grid line color : R (Red) 
Grid line color : | (Intensity) 


Foreground Intensity 
(Color text, Mono-graphics ) 
Display 





“0” = Mono. mode 
“1” = Color mode 


Register 6 


The internal address is 06 (Hex). 


MSB LSB 

t]e]s{4] 3f2tifo | 
Reserved 
Reserved 
Reserved 
Resolution 


“0” : 360 X 512 dot 4 colors 
“1" 5 720 X 512 dot 2 colors 
Reserved 
Reserved 
Reserved 
Reserved 
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Register 7 


The internal address is 07 (Hex). 





Display Mode Selection 


Background color : 


Background color 


Background color : 
Background color : 


3.5 VP3 Display Function 


B (Blue) 

: G (Green) 
R (Red) 

I (Intensity ) 


The VP3 display mode is set by the combination of the bits as 


follows: 


Ls Register 2, bit 1 --- X 
2. Register 5, bit 7 --- Y 
3. Register 6, bit 3 --- Z 


Display mode 













Mono. Text 


Color txt 
‘Mono. Graphics 
Color Graphies (inode 1) 
‘Color Graphics (mode 2) 
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3. Video Subsystem 


3.5.4. Video RAM and Display Screen Relationships 


Tvo banks of memory each of 23,040 bytes are used to display the 
following: 


- Graphics mode 1 (360 x 512 dot, 4 colors) 
- Graphics mode 2 (720 x 512 dot, 2 colors) 


| _________99 bytes/line —————______ 





Remark) The value in the rectangle indicates the absolute 
address (Hex) of the video RAM. 


Figure 3-9 Video RAH and the screen (VP3) 
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3.6 CRT Controller 


3.6. CRT Controller 


The HD46505 is used as the CRT Controller (CRTC). It has 19 
accessible internal registers. One of these registers, the 
Index register, is actually used as a pointer to the other 18 
registers. It is a write-only register and the I/0 address is 
3D4 (Hex). In order to write data in any of the 18 registers, 
the Index register is first loaded with the necessary pointer. 
Then, the Data register is loaded with the information to be 
placed in the selected register. The data register is loaded 
from the processor by executing an OUT instruction to I/0 
address 3D5 (Hex). 


The following are the relationships between the modes and the 
registers: 








VP 1& VP 2 


Register 
Text Graphics 


3 
— Low igh] Text | Graphic 
aes 'y 40x25 | 80x25 | Band|Band 
TS 








ain NO 








a|> 


} 
! 
1 


jmio:a 


















a—_ foe 
= s n 
‘ 


Lightpen data (low Address) : Read-only 


Remark) All register values are given in Hexadecinal. 


Figure 3-10 Display and CRTC Register Value 


3. Video Subsystem 


3.7. Light Pen Interface 


The light pen interface is designed for RGBI (Red, Green, 


Blue, 


Intensity). Due to timing differences depending on different 
display types, the row/colugn value returned from the CRT may 
vary. These differences must be compensated for through 


software. 


The following show the light pen data read sequences: 


Read CRTC 
R16, R17 


Reset 
LP Strobe 
Latch 





Read I/0 address 3DA (Hex) 
Bit 1 : LP strobe latch 
Bit 2 : -LP SV 


0 : Light Pen switch is on. 
1 : Light Pen switch is not pressed. 


0 : Light Pen is not lighted. 
1: Light Pen is lighted and address 
data are in R16 and Ri7 of CRTC. 


Write data in I/0 address 3DB (Hex). 
(Any data will do.) 


3.7 Light Pen Interface 


Hardware Interface 


A light pen is connected to a five pin connector on the back of 
the system unit. 


—LPEN INPUT 


+5V 
—LPEN SW 





(System Side) 


Figure 3-11 Light Pen Interface Connector (J9) 


3. Video Subsystem 


3.8. Video Subsystem I/0 Addresses 
In Native Mode, I/0 addresses used by the Video Subsystem are 


initialized with the following but they can be changed by 
the software: 


Address 
(Hex. ) 








io A8 AT AG AS AY AZ AZ Al AO Register 


VP1/2 Gate Array 
Light Pen Latch Clear 


















ee Light Pen Latch Set 
,3D0,3D2 CRTC Index Register 


1 3D4.3D6 





CRTC Data Register 





Page Register 


VP3 Gate Array 


Figure 3—12 Video I/O Addresses 
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3.9 Hardware Interface 


3.9. Hardware Interface 


This interface provides power to an optional TV Adapter. The 
signal level is standard TTL but the audio output operates with 
a 1V Peak-to-Peak signal biased at OV which can drive a 10 K Oha 
or greater input impedance. 





ft 0 

8 2_i 3 ' — HSYNC O 

(amy 4 !-VSYNC 0 

15 9 5 H -L. SW O 

6 l 0 

(System Side) | ; B 0 
Ps GND = 

as GND = 

i 10 _ iG O 

1 COLOR CLOCK =O 

ae Boas re) 

1 13 | POT Loch OO 

AUDIO 0 


Figure 3—13 Display Interface (J15) 
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4. System Options 


The IBM 5510 system provides connectors on the system board 

for optional feature installation. In this Chapter, optional 
features and their connection to the system are described. 

I/0 devices can be connected to the Expansion Channel connectors. 


4. System Options 


4.1. 64KB RAM Card 


To display 80 characters x 25 lines in text mode, or 640 x 200 
dots in 4 colors or 320 x 200 dots in 16 colors in graphics 
mode, the system RAM size should be expanded to 128KB through 
installtion of this option. This card consists of one board 
and connects to a 50 pin connector on the system board. 

(Only one 64KB card can be installed.) 

When this card is inserted, the addressing method is changed. 
This memory option uses the ODD memory space, while the system 
memory is decoded as the EVEN memory. When an additional 128KB 
of RAM is installed, the addresses will again be changed. 
(Reference : 5.5 Memory Map) 

Memory refresh is performed on the system board logic. 





Figure 4—1 64KB RAM Card 


4-2 


4.1 64KB RAM Card 


The following are the connector specifications for the JX 64KB 
RAM Card. 


Signal 





Figure 4-2 64KB RAM Card Connector Specifications (J6) 
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4. System Options 


I/0 refers to the view from the card side. 


Signal _ 1/0 DESCriphPOR oo ee 

-RAS I Row Address Strobe. This timing pulse 
sets the row address for the RAM modules. 

AO I Address line AO. When this bit is "1", 
the 64KB RAM card is selected. 

-DISABLE I When the expansion RAM card is installed 

EDATA and the microprocessor is reading an odd 


byte of data, the expansion card tri- 
states the latch for an even byte of data 
on the system board using this line. 


SAT1 I This signal indicates that the expansion 
RAM card should latch up data from the 
expansion RAM into the attribute latch. 


GACO - GAC7 0 These data lines contain VP1 data from 
the attribute latch. 

DO - D7 1/0 Data lines DO - D7. 

V1A0 - V1A7 I These are multiplexed address lines and 


contain the row, column, and CRT 
addresses. 


VIDEO MEMR I This signal when high indicates that the 
video RAM is being accessed. 
-AGDP I This line when low indicates that a CPU 
RAM cycle is occurring. 
-DIS CASO 0 This line is used to disable the system 


Z sor 
board CASO when a system aero 
write is occurring in the expans! 


RAM. 
CAS1 I Column Address Strobe 1 
: sten 
LCG 0 This line is used to instruct ees apes 
board that attributes or graph RAM 


should be read from the expans! 
card. 


GATE is 
I This line becomes the -LCG outP¥ 
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Signal 


SPL1 


-64KB CDIN 


1/0 


4.1 64KB RAM Card 


~~] 
mm, 
me me a a a a ae a a a a a a ee 


This lite instructs the weacry that the 


ie see write cycle is occur- 


This line instructs the expansion RAM 
card to latch the data from the 


expansion RAM into the microprocessor 
latch. 


When a 64KB expansion RAM card is 
Inserted, this line is low. 
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4. System Options 


4.2. 128KB RAM Card 


The 128KB RAM card expands the system's memory size by 128KB 
increments up to 512KB maximum. The 128KB RAM card plugs into 
the I/0 Expansion Connector on the system board or Expansion 
unit. This mesory is 150ns dynamic RAM. Addres decode and 
refresh logic are included on this card. 

One card can be installed in the base system. When the Expan- 
sion unit is installed, a total of three cards can be installed. 
When installing the 128KB RAM cards, an address decoder jumper 
should be connected. 


128 KB RAM Jumper Address Address 
Card Range (English Mode) 
| 1 __| _+00000~1FFFF | 20000~3FFFF 


20000~3FFFF | 40000~5FFFF 
40000~SFFFF | 60000~7FFFF 












Figure 4-3 128KBR RAM Card and Jumper 


When the 128KB RAM card is installed with the jumper, base | 
memory addresses are placed after the 128KB RAM addresses 


+ e e ia ° 2 t 
the initial self-diagnostic Power-on test or system res english 


oe memory addresses, however, will not change in 


(Reference: 2.2.7 Expansion Channel, 5.5 Memory Map) 
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4.3 Extension Video Card 


4.3. Extensjon Video eae 


2 F Card consists of p 

The Extension Video ; @ gate array for Video 
Processor 3 (VP3)» . Fiecticn tert aaa a 32KB Expansion Video 
RAM. Enhanced video func ya Extension Video mode) becomes 
possible when the Extension Video Card, Extension Video Mode 


Cartridge and the high-resolution display (12" monochrome or 
installed. 


14" color) are 





Figure 4—4 Extension Video Card 
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4. System Options 


The following are the connector pin assignments for the Extension 
Video Card: 










< 
~] 
a 


9 
@/— 


<i< </< 
ie) 9/9 
= o|N 
a 


vo11 
013 


= 


+5V 


_ 
~ 
= 


2) 
Zz 
e) 


NCCLK3 






HSYC 


RPT3 


RST3 
OSsT3 
osc3 


© 
il 
N 


N 


—RESET 


WwW Ww N 
N o ~N 


f 
N 








Figu = 
re 4-5 Connector for Extension Video Card (J5) 
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1/0 refers t° the 
1/0 


Signal Name 


VDO - VD15 
-RAS 2 


-CAS 2 


-W10E 


-~W100 


-GP10 
-32K CD IN 


VDO - vD15 
-SX03 


NCCLK3 
DSPTO 


CUSR 
VSYNC 
HSYN¢ 


I 


1/0 
I 


4.3 Extension Video Card 


view from the card side 


Description 


These lines are the multiplexed address of 
the expansion Video RAM. 


Data lines DO - pqs5 


Row Address Strobe. This line instructs the 
Extension Video Card to latch up the address 
on the first MPX'd address. 


Column Address Strobe. This line instructs 
the expansion VRAM to latch up the address 
on the second MPX'd address. 


This line instructs the expansion VRAH to 
write the even addresses of the expansion 
VRAM. 


This line instructs the expansion VRAH to 
write the odd addresses of the expansion 
VRAH. 


This line instructs the expansion VRAM to- 
gate out the expansion VRAM on a read option. 


When an extension video card is inserted, 
this signal is low. 


Video RAM I/0 Data Bus line. 


When this signal is low, the VP3 gate array 
is selected. 


Inverted signal for"GATEE” (A35 pin) 


i Timing signal from CRTC. 
See Bik. tle contents of VRAN read are 


displayed 
Video signal to display the cursor. 


Vertical synchronous eiane) “neo CE 


Horizontal synchronous signal from CRTC 
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4, System Options 
S gnal Name 1/0 Description FS a eT area a 
CB MMR Rh 

ps These lines are raster add ee oe pe 

RAO - RA4 : and are available in text ors from CRTC 
are decoded and then the ragz. RAO - RA4 
displayed in a character box fr to be 
Interlace mode is used. 1S determined. 

0 This line is a timing sj : 

PRT 3 which of the CRTC, CPy or ene” determine 
accesses VRAM2. resh 

20N 0 20MHz clock output 

BOR sd : Eee VER ata reset requests for 

DSPT 3 0 This line is used to correct th 
timing from CRTC to VRAM. This sienal. 
is derived by delaying “DSPTO" (a20 Pin) 
by one character. 

RST 3 0 RAS Time 

GRMN 3 0 When VP3 is in graphics mode, this signal 
is high. 

DST 3 0 This line is used as a timing pulse to 
keep the timing of memory timing data 
with the character generator timing. 

CSC 3 0 This line is used as a chip select signal 
of a character generator. 

GDO - GD7 I These lines are image data signals for 
screen display. 

-RESET I System Reset Signal 

-I0W I I/O Write signal 

~ TOR I I/0 Read signal 

DO - 

D7 1/0 Data bus DO - D7 


4.3 Extension Video Card 


Signe) Wane 270 Seamebetios 
DUSW I Wren this signal is high, VP3 operation is 
EVS, -R. When lov, the signal lines EHS, 
, » “G, -B, -T float. 
-B 0 Blue signal to CRT. When consecutive 


vertical lines are displayed, the frequency 
becomes maximun. 


(1OMHZ? Applied the same as the following 


-I, -R, -G) 

a 0 Intensity signal to CRT. 

-R 0 Red signal to CRT. 

-G 0 Green signal to CRT. 

EHS 0 When the DUSW signal is high and bit 2 of 
VP3 gate array register 2 is "1" 
(synchronous), the HSYNC signal is output. 

EVS 0 When the DUSW signal is high and bit 2 of 


VP3 gate array register 2 is st oa 
(synchronous), the VSYNC signal is output. 
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4. System Options 
4.4. Diskette Drive Adapter 


: ; dapter consists of a single 
The diskette drive * system unit connector (go 2 ;board (card) 


and is connected to : Pj 
signal cable. It is eae bl - ple diskettn drives” 
through two kinds of sina - 4 * Bae tS Supplied to each 
diskette drive via the diskette Orive adapter conneomrs- 


the JPD765 or equivalent and 


y Modulation (MFM). 1S designed for 


The adapter uses 
Modified Frequenc 


The following are descriptions of its components: 


DOR (Digital Output Register) 


The digital output register (DOR) is a write-only 8 pj ist 
used to control] the three diskette drive motors and eh tiebeiied of 
the diskette drives. The I/0 address is F2 (Hex), 


Drive A Selection 

Drive B Selection 

Drive C Selection 

Open 

Open 

Watchdog Timer Enable 
Watchdog Timer Trigger 
Reset 





Bit 0 (Drive A Selection) tor 
"1" activates drive A signal path and turns on the oO . 
0" deactivates it and turns off the motor. 


Bit 1 (Drive B Selection) — 
1" activates drive B signal path and tu 


0" deactivates it and turns off the motor. 


rns on the 
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4.4 Diskette Drive Adapter 


Bit 2 4" activates drive C sigy 
i 


i at turns on the motor. 
“Q" deactivates it and tur Path and 


NS off the motor. 
(WATCHDOG TIMER CONTROL) 


"y" activates functions of WaTcHpOG TIMER CYCLE and 
allows interrupts. 


wg" deactivates functions of yATCHDOG TIMER CYCLE and 
rejects interrupts. 
Bit 6 (WATCHDOG TIMER TRIGGER) 


By alternating 1 and 0 being written, the timer cycle 
gets started. 


_ set) 
Bit 7 ne resets diskette controller. 


"Qo" releases the reset status of the diskette controller. 
Watchdog Timer 
The Watchdog Timer (WDT) is a one-to-three second timer 
eed for output to IRQ 6 (Interrupt Level 6) of the 8259A 
PIC. The Watchdog Timer is used for the system unit to watch 
the stopped status of the adapter. 


Diskette Controller 


There are two kinds of registers: 







-————_ 


Register I/O Address 


-—— 


Status Register | F4 
Data Register | F5 










Status Register 


The 8-bit Status register which can be read contains the status 
inf 


Ormation of the Diskette Controller. 
Data Register 
Data transmission between the diskette and the CPU are performed 


through : i i Commands and parameters which 
thi = ster. on 3 
are Eabawieved bateccs the CPU and the diskette controller are 


te . . 
™"Porarjly Stored in this register. 
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4. System Options 


: . tions 
Programming Considera 


Ws 


te controller is initialized with th 
e ter system power uP. Parameters 
s which the interrupt vector jf 


e following 
are stored 
(Hex) 


The disket 
parameters af 
in the addressé 
indicates. 











Parameter 
(Hex) 






Remarks 







512 Bytes/Sector 
Sectors/Track (9 sector) 
Always ’ 1’ (32ms) 
4ms/step 






Head Unload 
Head Step Rate 
Head Load Time 
Format Gap 














Minimum Head Load Time (4ms) 








Non-DMA Mode 
Fill byte for Format 


Oo 
_ 





BIOS uses the following commands for the diskette drive 
adapter. 


= SPECIFY 

- SEEK 

- RECALIBRATE 

- SENSE INTERRUPT STATUS 
- SENSE DRIVE STATUS 

- READ DATA 

- WRITE DATA 

- FORMAT TRACK 


Head Load 


When a diskette is correctly inserted in a diskette S casieils 
and the drive is selected, the head is automatically 
Programming for head load is, therefore, not Meee ee weer 
Read/Write commands cannot be accepted until after , 

onds of head load. 


Interrupt 
° terrupt 
The systen Should not allow other interrupts than This is 
sere 6 (IRQ6 : used by diskette drive adapter). | read/ 
ue to the strict time limitations during diskette 


write. 
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Figure 4-6 


System ait Pewee 


P17 
L 


To the System Board 


+5V 
ww43 (Uv 


P43 


System Board 


er 
Pe | neal 


|| J21 
J a 
: i Signal Cable ai ih 


Diskette 
Drive 
Adapter 


Expansion 
Unit Power 







—~-—--—-+-—---— 


c 
me 
il She 

(eo 


J39 J40 J41 J42 


Terminal Board 


Figur 
© 4-6 Diskette Drive Connections 
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” Signal Cable 


4.4 Diskette Drive Adapter 


Drive A 
i 


Drive B 
t 
| 


Cooling Fan 






Cooling Fan 


4. System Options 


Interface Connector 


The adapter is provided with the signal cable eonnector and 
power-supply connectors. 





J21 
J23 


J45 
J46 


r 
Power for the diskette drive C is supplied from the powe 


J22 


J43 : 
J44 : 


Signal Cable 
Signal Cable 
Signal Cable 
Power-supply 
Power-supply 
Power-supply 
Power-supply 


Connector 
Connector 
Connector 
Connector 
Connector 
Connector 
Connector 


In the Expansion Unit. 


Figure 4-7 


(Drive A, B) 

(Drive C) ; 

(From the Power Unit) 

(To the Cooling Fan) 

(To the Drive A) 

(To the Drive B) 

unit 


e r 
The connector on the diskette drive adapte 
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4.4 Diskette Drive Adapter 


ce 
System inter ?? ? 
connected using the dedic 


The adapter 4) on the system board. Welles Cable to the 
connector ( and their descriptions: ng are the pin 


assignmen 


0 


> n 

—|~N os 
aq 
S 
& 


—lOW 






(7) 
z 
Oo 


Figure 4-8 Connector for Diskette Drive Adapter (J3) 
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4. System Options 


I/0 refers to 


ee ee ww we ewe een 


-RESET 


DSKT INTR 


-FDC CS 


AQ 


1/0 


1/0 


the view from the card side. 


Description 
These eight lines form a bus 


through which al] 
c 
and data are transfernng status 


These lines are 


: addre ines 
used in register oe 118 


Selection. 


Data are written in the register by 
the trailing edge of this signal. 


This line is used to read the 
contents of the register. 


This line is used to reset the 
controller and to clear DOR. 


This line becomes "high" by time-out 
of WATCHDOG TIMER. 


This line remains “low” while the 
CPU performs read/write to a 
diskette drive adapter 


Address line AQ. 
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4,4 Diskette Drive Adapter 


ce 
Drive Interf? 


e provided on the Card f : 
ers af ; , or connection to the 
Two CORN EE ve. One is a ae BY neta akekts davies ‘es, tee 
dtd eater (Figs. 4 , nd the 
system u . : 


= . '€ other is for the 
y sya in an Expansion unit (Fig, 4-9, 2 of 2). 
ted a at standard TTL levels, 
Signals ar 
prive A Adapter Drive B 
Adapter EN? no sty 
Signal 
INDEX 


Motor ON B 
Drive Select A 
Drive Selec: B 
Motor ON A 
Direction 

Step Pulse 
Write Data 
Write Enable 
Track U 
Wrue Protect 
Read Data 
Select Head 





Remarks) 1. Odd number pins from 5 through 33 are gid, wine, Bees 


, 1 through 4 are open. 


2 is connected to drive A, 
to drive B. 


vhile CN3 is connected 


i 2) 
Figure 4-9 Diskette Drive Signal Cable Ch oF 
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Remarks) 1. 


4. System Options 


Adapter 
Signal 
INDEX 
Open 
Drive Select C 
Open 
Motor ON C 
Direction 
Step Pulse 
Write Data 
Write Enable 
Track 0 
Write Protect 
Read Data 
Select Head 





Adapter 
CN 4 
Pin 


Drive-side 
Signal 
INDEX 
Open 

Drive Select 
Open 

Motor ON 
Direction 
Step Pulse 
Write Data 
Write Enable 
Track 0 
Write Protect 
Read Data 
Select Head 


Odd number pins from 5 through 33 are GND, 


1 through 4 are open. 
2. CN5 is connected to drive C. 


Figure 4-9 Diskette Drive Signal Cable (2 of 2) 
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and 


pins 


4.4 Diskette Drive Adapter 


I/0 refers to the view from the adapter side. 


Signal 
-DRIVE SELECT 
-MOTOR ON 


-STEP PULSE 


-DIRECTION 


-WRITE DATA 


-SELECT HEAD 


- INDEX 


-WRITE PROTECT 


-TRACK 0 


-READ DATA 


-WRITE ENABLE 


1/0 


Description 


This line is used to select the 
diskette drive. 


This line is used to turn on the 
drive motor. 


This line is used to move the head 
by 1 cylinder. 


This line is used to set the moving 
direction of the head. When this 
line is low, the head moves inward. 


When WRITE ENABLE (pin 24) is low, 
the change of the signal is written 
on the diskette. 


When “high”, diskette side 1 is 
selected : When “low”, diskette 
side 2 is selected. 


Each time the diskette goes round, 
one pulse (index pulse) is issued. 


This line is used to indicate that 
the diskette is write-protected. 


This line is used to indicate that 
the head is located at track 0. 


The selected drive must supply a 
pulse on this line each time when 
magnetic flux change is encountered 
on the diskette. 


Vhen “low”, a data write to the 
diskette is possible. 
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4. System Options 


Power Supply Connector 


The power supply connector provides each drive with direct current 
from the power unit. It also provides the cooling fan with +12V. 





+12 V 






J43, J45, J46 


Figure 4-10 Power Supply Connector on the Diskette Adapter 
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4. 
By 


5. 
characteristics: 


4.5 Diskette Drive 


5. Diskette Drive 


installing an optional diskette drive, the IBM 5510 can be 
expanded to include a maximum of three 3.5" diskette drives 
or two 3.5" and 


25” diskettes 


one 5.25" diskette drives. Both 3.5” and 
have the same format and have the following 


Double-sided double-density 
- 80 tracks per 


9 sectors per 
512 bytes per 
Seek time 4ms 
Write-protect 


- Cooling fan 
Track 00 sensor 


Index sensor 
+5VDC, +12VDC 


side 
track 
sector 
per track 
sensor 


used 
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4. System Options 


4.6. TV Adapter 


The TV adapter includes the RF Modulator and allows an ordinary 
TV set to be used as a display by getting the RGBI direct video 
signal through the encoder and modulating it to the frequencies 
of channel 1 or channel 2. 

The adapter has two switches, one for changing the channel 
(channel 1 or 2) and the other for color mode (B/W or color). 
The RF modulator output is automatically directed to the TV 

set at the time of system power-on. When the system unit is 
turned off, the normal TV broadcasting signal is received. — 
pe output becomes the external output as a composite video 
signal. 







3.58MHz_ 11 \V TV Antenna 











B/W Color. 





10° 
Channel 


RF Converter - 


To TV Set 


Composite Signal 


Figure 4—11 TV Adapter 
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ad 


Ne 


4.7 Keyboard Cable 


4.7. Keyboard Cable 


The IBM 5510 Cordless Keyboard can be attached to the JX using 
the optional Keyboard Cable. When the keyboard cable is 
connected, the signal level of -CBL CONNECTED becomes "low" 
(O Volt) and the system unit's infrared (IR) receiver circuit 
is disabled, allowing keyboard input via the keyboard cable. 


+5V 
FG 


Keyboard GND 
« -CBL KBD DATA 


- CBL CONNECTED 








» 3 System Board 





Figure 4—12 Keyboard Cable 


System Options 
RS-232C Card 


RS-232C card allows asynchronous communication under the 
ogram control. It contains an INS8250A LSI chip. 






Address AO ~A2 
EIA 
DRIVER 


Data Bus 


Interrupt Signal 


EIA 
Clock RECEIVER 
(1.7895MHZ) 





25 Pin 


Control Signal Connector 


Figure 4—13 RS-232C Card Block Diagram 


The following is a standard send/receive data format of asynchronous 
communications: 


DO 01 02 D3 04 DS D6 D7 


: Parity 
Bit 











Mark 


Stop Mark 
Status 


Bit Status 


Figure 4—14 Asynchronous Communication Data Format 
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4.8 RS-232C Card 


Following are the programming considerations and the necessary 
data for use with the IBM JX. 


1. When a diskette read/write is performed, asynchronous 
communications can not be made. (Interrupts are prohibited.) 


2. The speed of asynchronous communication is up to 4800 bps. 


A speed below 1200 bps is recommended when keyboard data are 
received. 


3% Consecutive I/0 operations to the 8250A should not be made in 
view of the necessary I/0 time for the 8250A. An interval of 


more than 15 clocks is necessary. 
4. The hardware interrupt level is "3". 


5. 8250A pin 34 (OUT1) and pin 31 (OUT2) are not used. 


6. 1/0 addresses are as follows: 


I/O Address 





iH Register DLAB Status 

2 Bs TX Buffer ~~~—~—”—SdDLAB=0 (Write) _ 
2h a RX Buffer DLAB =v (Read) 
248 Divisor Latch(LSB) DLAB- 1 

2ha Divisor Latch(MSB) DLAB= } 

2ky 


Interrupt Enable Register DLAB=0 
Interrupt Identification 
Registers 


2A 


2kb l.ine Control Register 


EY Modem Contrel Register 
2b l.ine Satus Register 

i IEE Modem Status Register 
SEE Seratch Register 


Figure 4—15 8250 I/O Addresses 
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4. System Options 


7. 


The folloving Assembler language program initializes the 


8250A. 


1200 bps 
8 bits 


1 stop bit 
Odd parity 


Saaple progran: 


PROC 
HOV 
MOV 
OUT 
JHP 
MOV 
MOV 
OUT 
JHP 
HOV 
HOV 
OUT 
JHP 
HOV 
HOV 


OUT 
JMP 
HOV 
IN 
ENDP 


NEAR 
AL, 80H 
DX, 2FBH 
DX, AL 
$+2 

DX, 2F8H 
AL, 5DH 
DX, AL 
$+2 

DX, 2F9H 
AL, OOH 
DX, AL 
$+2 

DX, 2FBH 
AL, OBH 


DX, AL 
$+2 
DX,2F8H 
AL, DX 


we we we we 


Operating conditions are: 


SET DLAB=1 
To Line Control Register 


I/0 Delay 
LSB of Divisor Latch 
LSB Value 


I/0 Delay 
MSB of Divisor Latch 


I/0 Delay 

Line Control Register 

8 Bits/Word, 1 Stop Bit, 
Odd Parity, DLAB = 0 


I/0 Delay 
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4.8 RS-232C Card 


8. RS-232C card connector specifications are as follows: 















[si | Le | oe 
Eames 
ees os 
a ee a 
ee ee a 
Pg ee eo 
rr eee ee 2 ee 
Tseniaccom] 7 | 7 | Oren | 
Teauocux |e |e | reser _] 
Tseniainta | 9 | 0 | -sas0cs_ 
f-ioR,—id|st0sSs|_—st0—sd[-1ow_ id 
a Ta a 
Pye |e ev 
aa a A 
OT 
- Open 1515] Oven 
PGND] 16 | 16 =| GND 





Figure 4—16 RS-232C Card Connector (J8) 
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4, System Options 


Signal Name 1/0 Des rE OY oa Sc geiinng oe 

DO - D7 1/0 Data Lines DO - D7. 

A0,1,2,9 I Address Lines AO, Al, A2, and AQ. 

-SERIAL CD IN 0 When an RS-232C card is inserted, 
this signal becomes "low" 

BAUD CLOCK I 1.7895 MHz Clock input. 

RESET I Signal for RS-232C card reset. 

SERIAL INTR 0 Interrupt request signal. 

-8250 CS I 8250 LSI Chip Select Signal. 

-I0R I I/O Read 

-10V I I/O Write 


9. This card provides an EIA RS-232C electrically compatible 
interface for connection to external devices. 






areas bata 
a [ReceIve bata | 
[4 | Reavest ro Sex| 
[s_[ctean 70 sexo | 
[on Ser Renny 


Signal Level 


Valid signal levels for 
all pins except 1 and 7 
are: 

+:+3V~+15V 
—:-—3V~-15V 















CARRIER DETECT 
=a DATA TERMINAL READY 






Figure 4—17 RS-232C External Interface 


) 


\ 


4.8 RS-232C Card 
10. Baud Rate Generator 


The baud rate generator which resides within the 8250A generates 
the clock signal that is the basis for data transfer speed (baud 


rate) by dividing the 1.7895MHz clock input by the programmable 
divisor. 


The output clock frequency of the baud rate generator should be 


set with the product of 16 multiplied by the baud rate. 
The divisor of the baud rate generator is calculated as follows: 


Divisor = (1.7895X10°) + (Baud Rate X16) 


Sample: 


Required Divisor Value ne 
0.006 
75 

0.033 
134.5 167 0.05% 


12 0.050 

























O00 03B 0.140 


100 


0” 
9 





{au O17 
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4. System Options 


4.9. RS-232C Cable 


This IBM 5510 optional feature is provided with a 25-pin, "D" 
shaped connector. The cable is used to connect the RS-232C 
card with serial and asynchronous communication devices. 








t) a 
P00 000000000 6 
p900000000009 


25 


(Reference : 4.8 RS-232C Card) 


Figure 4—18 RS-232C Cable 
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4.10 Display 
4.10. Display 


There are three types of displays: 


- 12” Color Display 
- 12” Monochrome Display 
- 14” Color Display 


The 12” Monochrome or 14" Color display is required for operation 
in Extension Video Mode. These are dual-scan displays and they 
work in all operational modes. The 12" color display can be used 
in Native and English modes. 


Their characteristics are as follows: 















Contents 





12” Color | 14” Color ; 12” Mono. 
| 14.318 MHz! 20.000 MHz _ =, 20.000 MHz 


| '14.318MHz | 14.318 MHz 
Vertical Scan i 59.92 Hz | 76 .68 Hz ' 76.68 Hz | 

| 59.92 Hz : 59.92 Hz { 
Horizontal Scan | 15.700 KHz | 21.930 KHz 


"21.930KHz | 


Video Frequency 








| '15.700KHz | 15.700KHz_ | 
No. of Colors 16 Color | 16 Color ' Gray Scale 16} 
Dots (Graphics) | 640 X 200 | 720 X 512 * | 720 X 512 ¥ | 
| 1640 X 200 +640 x 200 | 
Dots (Text) | 640 x 200 he x 6 * 720 X 525 * | i 
x : 640 X 200 
Characters (Hankaku) | 80X11 | 8X 25 + 80 X 25 | 


| sxll 'gsxu | 
Character Box 8 X 18 9 X 21 oa 9 X 21 
_(Hankaku) _ 8 X 18 ; 8 X 18 | 


Remark) * is for Extension Video Mode. 
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4. System Options 


4.11. CHT Cable 


The CHT cable connects the system unit with a cassette 
recorder. Connector pin assignments are as follows: 


: CASS AUDIO(4) 
~~ _ ‘endi 
MIC DATA OUT(5! 
GNDi1) 

2 MOTOR CTL‘6) 
3 CASS MTR CTRI7) 

3 
5 
: 6 
7 


Figure 4—19 Cassette Cable Pin Assignments 
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4.12 Joystick 


4.12. Joystick 


The joystick is an input device with the location control 
function indicated in X/Y coordinates. It consists of two 
Switches and two potentiometers. By moving the operational 
stick vertically (Y coordinate) or horizontally (X coordinate), 
each potentiometer varies within a range from 0 to 100K Ohms. 
A maximum of two joysticks can be installed and they are con- 
nected to connector J13 (joystick 1) and J14 (joystick 2). 


+5 (5)—~< Gaal 
oord. 
RX (3) —~< 100K 
. Y Coord. 
RY (4) —< 100KQ 
Switch | —x— 
SW1ili—< 
Switch 2 —xr— 
SW 2(2} — 
GN D\(6) ~< 





Switch 1 


Figure 4—20 Joystick 
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4. System Options 


4.13. Expansion Board 


The Expansion Board is connected to the I/0 channel via the 
expansion adapter. There are five 64-pin connectors on the 
board. The pin assignments are the same as those for the I/0 
channel. (Reference: 2.2.7 Expansion Channel) 





Power Connector 





Figure 4—21 Expansion Board and Pin Assignments 
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4.10 Expansion Unit 


4.14. Expansion Unit 


The expansion unit contains a power unit whose power capacity is 
the same as that of the system unit. An expansion board and 
diskette drive C (either 3.5” or 5.25”) can be optionally 
installed. Alternating current is supplied from the connector 
on the system unit. 





Figure 4—22 Expansion Unit 
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5. Software 


This chapter contains information about system software, 
especially information about putting BIOS to practical use. 


5. Software 


5.1. Software Structure 


The IBM 5510 is utilized by the FORTRAN, PASCAL, ASSEMBLER, and 
BASIC programming languages in Native or Extension Video mode. 
interface between software and hardware. 


BIOS is the 






—_———_— em ewe a oe ee ee 


Application 


Application 
Application 
Application 


me W DO 


Application | 


FORTRAN 


| Compiler | 


_—— ee ee ee Ce oe Oo 












i ee eee — High level 


Language 
Interface 












MACRO 


ASSEM. 
BLER 







PASCAL BASIC 








Compiler Interpreter 














— DOS Function Calls 
Interface 


_ BIOS 
Interface 


__ Hardware 
Interface 






Joystick Sound Light pen 


by Assembly Language or High level Language using 
hardware interface 

by Assembly Language using BIOS interface 

by Assembly Language using DOS interface 

by High level Language 


Figure 5-1 Software structure 
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5.2 System Software 


5.2. System Software 


The Basic Input/Output System (BIOS) of JX Native mode resides 

in ROM on the system board and provides device level control 

for the major I/0 devices in the system. In Extension Video mode, 
the initialization routines, video I/O and keyboard I/0 routines 
are replaced by code which resides in the optional Extension 
Video mode cartridge. The other BIOS routines are shared with 
Native mode. In English mode, the initialization routines 

are replaced by code which resides in the optional English mode 
cartridge. The value at address FFFFE indicates whether English 
mode or one of the other two modes is currently active. 









Mode Contents of Address FFFFE (Hex) 


English mode FD (Hex) 
Native mode / Extension Video mode ED (Hex) 


Distinction between Native or Extension Video mode is made 
possible by reading the AL register after issuing INT 11. 





Bit 5,4 in AL 
10 : Extension video mode 
0 1: Native mode 


Figure 5-2 shows a map of-systen software routines in ROK. 
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5. Software 


English mode Native mode 


BASIC BASIC 


F 0000 
English mode 


BIOS 
Native mode 
English mode dictionary 


BASIC 


Native mode 
BIOS 


English mode 


BIOS 
FFFFF 


Figure 5-2 System Software Map 
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Extension Video 














Extension 
Video mode 
BIOS 


Extension 


Video mode 


BASIC 


Native mode 
BASIC 





Native mode 


dictionary 


Native mode 
BIOS 


5.3 BIOS Usage 
5.3. BIOS Usage 
Access to BIOS is made through the software interrupts. ; 
All data and parameters passed to and from the BIOS routines go 


through the registers of the MPU(8088). 


If a BIOS routine supports several possible functions, the AH 
register indicates the desired function. 


For example, the following code can be used to set or to read the 
time-of-day. 


To set time-of-day: 


MOV AH, 1 > function is to set time-of-day 
MOV CX, {HIGH COUNT] 
MOV DX, [LOW COUNT] 


INT 1AH + software intrrupt 

To read time-of-day: ( CX and DX get values of TOD ) 
MOV AH, 0 > function is to read time-of-day 
INT 1AH > software interrupt 


Generally, the BIOS routines save all registers except for AX 
and the flags. 


BIOS Programming Guidelines 


Lis To invoke the BIOS code use Software interrupts. 
Do not ‘hard code’ BIOS addresses into applications. The internal 


workings and absolute addresses in BIOS are subject to change 
without notice. 


2. When any error is detected in diskette operation, the 
diskette drive adapter must be reset before retrying the operation. 
A specified number of retries should be required on diskette "read” 
to insure that the problem is not due to motor start-up. 


3s When altering I/0 port bit values, change only those bits 
which are necessary to the current task. Upon completion, restore 
the original environment. Failure to adhere to this practice may 
cause incompatibility between present and future systems. 


5. Software 


The following are the BIOS interrupt vectors explained in this 
chapter. 


Vector Address Type of Function 
baie mci, UUM oe a 
40-43 10 Video I1/0 
44-47 11 System configuration 
48-4B 12 Memory size definition 
4C-4F 13 Diskette 1/0 
50-53 14 ASYNC port I/0 
54-57 15 Cassette I/0 
58-5B 16 Keyboard I/0 
5C-5F 17 Printer 1/0 
60-63 18 Resident (ROM) BASIC 
64-67 19 System reset 
68-6B 1A Time of Day 
6C-6F 1B Keyboard Break address 
10-73 1C Timer 
74-77 1D Video parameter 
718-7B 1E Diskette Parmeter 
49 Conversion table 
7A Dictionary pointer 
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5.3 BIOS Usage 


Application Program 





aor 
ae eae mR: BOS 4 Conde xem 


a 








Software es a 
Interrupts oa Qieses 


{BM BIO. COM 











Interpreter 











Hardware | NMI : Diskette drive 


ee mca . Timer “6 ZB [oo] 


CRT Joystick Cassette 


/ Tape Recorder 


Parallel I/O 
Serial I/O 


e.g. Printer 


Figure 5-3 Software Interrupt Architecture 
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5. Software 


5.3.1. Native Mode BIOS Interrupts 


TYPE 10 Video I/0 


This vector points 


to the the code to be executed when video I/0 
The function 


operation is needed. 


value placed in the 


( AH )= 0 > SET 
( AL ) HO 
0 40X 
1 40X 
2 80X 
3 80X 
4 320X 
5 320X 
6 640X 
7 Not 
8 160X 
9 320X 
A 640X 
B Not 
C Not 
D Not 
E Not 
F Not 
10 20X 
11 20X 
12 40X 
13 40X 
14 320X 
15 320X 
16 640X 
17 Not 
18 160X 
19 320X 
1A 640X 
1B 640X 
REMARKS ) 
ANK : 
KJ 


AH r 
MODE 


DE 


25 
25 
25 
25 
200 
200 
200 
used 
200 
200 
200 
used 
used 
used 
used 
used 
11 
11 
11 
11 
200 
200 
200 
used 
200 
200 
200 
200 


Kan 


egister. 


The 
des 
Whe 
are 


16 
16 
16 
16 
4 
4 
2 


16 
16 
4 


1 1 & 00 OO Oo Oo 


— 
= OO 


16 


Alphanumeric, 


ji 
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AL 
ired 
n AL 

not 


color 
color 
color 
color 
color 
color 
color 


color 
color 
color 


color 
color 
color 
color 
color 
color 
color 


color 
color 
color 
color 


performed depends 


on the 


register is used to set the 


video display mode. 
VRAM contents 


bit 7 is "1", 
cleared. 


ANK 
ANK 
ANK 
ANK 
(40X25 
(40X25 
(80X25 


(20X25 
(40X25 
(80X25 


KJ 
KJ 
KJ 
KJ 
(20X11 
(20X11 
(40X11 


(10X11 
(20X11 
(40X11 
(40X11 


Special character, 


ANK) 
ANK) 
ANK) 


ANK) 
ANK) 
ANK) 


KJ) 
KJ) 
KJ) 


KJ) 
KJ) 
KJ) 
KJ) 


Katakana 


( AH )= 1 
( AH )= 2 
( AH )= 3 
( AH )= 4 


5.3 BIOS Usage 


Set cursor type. The cursor type is. specified 
by the following bits in the CX register: 


Bit 14,13 = 00 Non-Blink 
= 01 Non-Display 
= 10 Blink at 4 times per second 
= 11 Blink at 2 times per second 
Blinking is not supported in graphics mode. 
Bit 12-8 Start line of the cursor in a 
character box 
Bit 4-0 End line of the cursor in a 


character box 


Set Cursor. position. The cursor position 
(row,col) is specified by values in ( DH,DL ). 
A sub page (16 KB page is further separated into 
1 KB or 2 KB units) is specified in (BH). 

In graphics mode,a sub page is set to 00 in(BH). 
(0,0) indicates the home (upper left) position. 


Read cursor position. When sub-page number is 
specified in (BH), the current cursor position 
(DH=row,DL=col ) and the cursor type (CH,CL) 
are read in. 


Read Light pen position. 

(AL)=0 : Light pen switch is not pressed. 
(AL)=1 : Valid light pen value is in registers. 
(DH,DL) : light-pen position (row,col) 

(CH) > raster value (0-199) 

(BH) > column value (0-319,0-639) 


§<9 


5. Software 


( AH )= 5 Select active page. 

(AL) =00-OF : sub-page ( 16 KB page is further 

separated into 1 KB or 2 KB units ) is specified. 

(AL)=80 : Read CRT/CPU page-registers 

(AL)=81 : Write the contents of (BL) to CPU 
page-register. CPU page mode is 
specified in (CL). 

(AL)=82 : Write the contents of (BH) 
to CRT page-register 

(AL)=83 : Write the contents of (BL) and (BH) 
to CPU and CRT page-registers. 
CPU page mode is specified in (CL). 


( AH )= 6 Scroll display upward. (CH,CL) specifies the 
upper left corner of the portion to be scrolled 
(CH=row,CL=column). (DH,DL) is the lower right 
corner (DH=row,DL=column). AL is the number’ of 
lines to be scrolled. BH holds the attributes 
for the space left. 

AL=0 clears the area defined by CX and DX. 


( AH )= 7 Scrolls display downward. Same as ( AH )= 6. 


( AH )= 8 Read a character ( into AL ) and its attributes 
(into AH ) at the current cursor position. 
A sub page is specified in (BH). 
Full size characters return the following 
attributes: 


lst byte 1XXX OXXX (left half of a character ) 
2nd byte 1XXX 1XXX (right half of a character) 


The attributes returned are the same as those 
written when specifying ( AH )= 9. 


All the attributes are supported in graphics mode. 
In color graphics mode, the color attribute bits 


of AH have no affect on the color of the 
characters. 


( AH )= 9 


( AH 


y= A 


5.3 BIOS Usage 


Writes one or more copies of the character in AL 
and its attributes in BL starting at the current 
cursor position. CX contains a count of the number 
of characters to be written. 

The attributes of full size characters change 
after the 2nd byte is written. 


The meanings of the attribute bits are explained 
in Chapter 3, " 3.4 Display function of VP1 and 
VP2 " 


Write characters only. Same as (AH)=9 , except 
that attributes are not written. 
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5. Software 


( AH )= B Set a color in the palette. 
Specify in BL the color number to be assigned to 
the specified palette number. 
(BH)=0 : Set color number for background 
(BH)=1 : Select the palette number to be used 


i color 2-color 4-color 8-color , 16-color | 
a BL=0) BL=1|BI-=0| BL=l 





me a free light blue] blue blue | 
| red |purple green . green | 







i white | light blue fbive | light blu ext blue 
red lr 
| purple ar 
yellow yellow 
+ | ! white | white 
a aaa | Bray 


—_ 
es 
ee eS ES! Trike 


pu | \ J bright light blue 
Esmee (esas ceneeien 2° T 
aaa i bright purple 
Le | * bright yellow 


ae i bright white 
2 ee ooo 





Remarks) Color number 0 specifies border color in 40X11 or 


80X11 character mode. a 
In graphics mode, color number 0 specifies border and 


background color. 


( AH )= C 
( AH )= D 
( AH )= E 
( AH )= F 


5.3 BIOS Usage 


Write a dot. (DX,CX) specifies the bit position 
(row,column) where the dot is to be written. 

(0,0) represents the home position on the display. 
Both the row and the column numbers are in units 
of dots, not characters. In color mode, AL 
specifies the palette number for the color dot 

to be written. 

If the eighth bit (bit 7) in AL is specified as 0, 
the value of AL will be written directly. If the 
value in bit 7 is set to 1 , however, the current 
value of the dot will be XOR'ed (exclusive OR) 
with bit 0 and the result will be written. 

This function works only in graphics mode. 


Read a dot. (DX,CX) specifies the (row,col) 
of the dot position to be read ( both the row and 
column number are in units of dots, not 


characters ). The dot value (on/off) of a dot is 


read into AL. The function only works in graphics 
node. 


ASCII teletype routine for output. 

Writes a character in the cursor position and 
advances the cursor. If the cursor is already in 
the rightmost position in line 10, the screen is 
scrolled upward. 


The character to be written is specified in AL. 


In graphics mode, color is specified in (BL). 
THe status/mode symbols line is located outside 
the screen scroll area. 


If the cursor is at the last position ina rov 
and a full size character is to be written, a 
space is entered at the last position, and the 


character is written at the first position in the 
next line. 


This function also works in graphics mode. 


Get the current display status. AL receives the 
current mode, AH receives the number of character 


columns displayed and BH receives the nuaber of 
the sub-page. 


5. Software 


( AH )=10 


( AH )=11-12 


( AH )=13 


Set Palette Register. Set the parameter in (AL). 


(AL)=0 : Specifies the number (OOH-OFH) of the 
Palette register in (BL), and the color 
number in (BH). 


(AL)=1 +: Sets contents of (BH) in the boreder 
color register. 


(AL)=2 += Sets the palette register and the border 
color register. ES:DX points to a 17 
byte list. Bytes 0-15 are written to 
palette registers 0-15. Byte 16 is 
written to the boreder color register. 


Reserved 
Request a character font. Return the character 
font for the specified character in the 


user-designated memory location. CX must hold the 
internal code of the requested character. CH must 
be 0 for half size characters. AL must be 0. 
The font will be placed in the memory location 
designated by ( ES:BX ). 
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5.3 BIOS Usage 


( AH )=14 Superimpose 


(AL)= 0 


(AL)= 1 
(AL)= 2 : 
(AL)= 3 
(AL)= 4 : 


> Mode is specified in (BH). VRAH is not 


cleared if bit 7 of (BH) is 1. 

(BH) =0-3 not used 

(BH) =4 320X200 4 colors : 40X25 ANK 
(BH) =5 320X200 4 colors : 40X25 ANK 
(BH) =6 640X200 2 colors : 80X25 ANK 
(BH) =7 not used 

(BH) =8 160X200 16 colors: 20X25 ANK 
(BH) =9 320X200 16 colors: 40X25 ANK 
(BH) =A 640X200 4 colors 

(BH) =B-13 not used 

(BH)=14 320X200 4 colors : 20X11 KANJI 
(BH)=15 320X200 4 colors : 20X11 KANJI 
(BH)=16 640X200 2 colors : 40X11 KANJI 
(BH)=17 not used 

(BH)=18 160X200 16 colors: 10X11 KANJI 
(BH)=19 320X200 16 colors: 20X11 KANJI 
(BH)=1A 640X200 4 colors : 40X11 KANJI 


(BH)=1 ‘°Superimpose is set to enable 
(BH) =0 Superimpose is set to disable 


(BH) =0 VRAM 1 is set for a 
foreground page. 


Set a transparent color to the palette 
register specified in (BH). 


Set superimpose mode through (BH). 
(BH) =0 priority 


(BH) =1 XOR 
(BH)=2 AND 
(BH)=3 OR 


5. Software 


TYPE 11 Device Configuration Status 


The device configuration status is returned in AX. 
The information specified by the bits in AX is listed below: 


Bit 15,14 Number of printers (usually 1 is returned) 

Bit 13 Serial printer is connected when 1 

Bit 12 Game I/0 is connected when 1 

Bit 11-9 Number of ASYNC communication ports connected 
Bit 8 Hard-disk unit is connected 

Bit 7,6 Number of diskette drives (besides A) 

Bit 5,4 Video mode initialized ( always 01 )# 

Bit 3,2 RAM size on board ( always 11 ) 

Bit 1 Reserved 

Bit 0 IPLed from a diskette drive 


= Native or Extension Video mode is identified by a 1 
in bit 4. In Native mode it is always 1. 


TYPE 12 Get Memory Size 


Memory size is set in AX in 1K-byte units. 


TYPE 13 Diskette I/0 
Executes different functions based on the value in AH. 


( AH )= 0 Reset the diskette systen. Bits 5-0 in DL must 
be set to the drive number. 
Set bit 7 to 0 when diskette drive units are 
connected, and set bit 6 to 0 (40 tracks) or 1 (80 
tracks). Set bit 7 to 1 when a hard disk unit 


is connected. 


5.3 BIOS Usage 


( AH )= 1 Read the system status. The DL setting is the same 


( 
( 


AH 


AH 
AH 
AH 


as for (AH)=0. The status from the last operation, 
returned in AL, is described below. 


Value(Hex) Operation status 


80 Time out 


40 Bad seek operation 
30 No hard disk (only when bit 7 of DL is 1) 
20 Device out of order 


10 CRC (Cyclic Redundancy Check) error found 
in reading a diskette 


04 Desired sectors not found 

03 Attempt to write to a write-protected disk 
02 Address mark not found 

01 Incorrect command 


y= 2-7 Set registers as follows: 


(AL) Number of sectors ( value unchecked, not used 
by FORMAT ) 
(CH) track number (0-79, value unchecked) 
(CL) sector number (value unchecked, not used by FORMAT) 
(DH) head number (0-1, value unchecked) 
(DL) drive nuaber (0-3, value checked) 
bit 7 =0 identifies a diskette drive, 
bit 6 =1 identifies double track access. 


(ES:BX) buffer location ( not required for checking) 


) =2 Read sectors 
)=3 Write sectors 
)=4 Check sectors 


5. Software 


( AH )= 5 


( AH )= 6-7 


Format sectors. The buffer pointer (ES:BX) must 
point to the set of address marks of a track. Each 
address mark consists of 4 bytes (C,H,R,N), where 


C stands for track, H for head number, R for 
sector number, and N for number of bytes ( 00=128, 
01=256, 02=512, 03=1024) within a sector. Each 
sector in a track must have a corresponding 
address mark, which helps locate the desired 
sector in a read/write operation. 


Reserved 


If the transfer of data succeeds, the carry flag (CF)=0 will be 


returned. 


If not, (CF)=1 is returned, and the status is returned 


in (AH) as when (AH)=1. 

For read, write, and check operations, only AX and the carry flag 
value will be altered. The number of sectors actually read will 
be returned in AL, but this value is meaningless when a time-out 
occurs or the system is reset with (AH)= 0. The contents of AH 
cannot be guaranteed in the latter case. 


When an error message is received, retry after resetting the 
diskette adapter. More than 10 retries are required. 





5.3 BIOS Usage 
TYPE 14 ASYNC Communication Port Input/Output 


This routine provides byte stream I/0 to the communication 
ports as designated by the following parameters. Port number 
(0-1) is specified in DX. 


( AH )= 0 Initializes the communications port as specified 
in AL : 
baud rate parity stop bits character length 
BIT 765 4 3 2 1 0 
000 -110 X 0 -none 0 -1 bit 10 -7 bits 
001 -150 0 1 -odd 1 -2 bits 1 1 -8 bits 
010 -300 1 1 -even 
011 -600 
10 0 -1200 
101 -2400 
110 -4800 
1 11 -9800 


The DTR signal will be ON upon completion of initialization. 
When the routine exits, the AL value will be set ina cal] 
for communications status (AH=3). 


( AH )= 1 Send the character in AL over the communications 
line. The contents of AL are preserved. 


If the character can not be transmitted, bit 7 of 
AH is set to 1. Otherwise, the current line status 


will be returned by the remaining bits as when 
(AH) =3. 


( AH )= 2 Receive a character from the communications line 
into AL, before returning to the caller. On exit 
AH has the current line status, as set by the 
Status routine (AH=3), except that the only bits 
left on are the error bits (7,4,3,2,1). 


5. Software 


( AH )= 3 


Returns port status in AX. 


AH will contain the communications line status 
as shown below: 


bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 


Sor NWF OO 


time out 

transmitter shift register is empty 
transaitter holding register is empty 
break detect 

framing error 

parity error 

overrun error 

data ready 


AL will contain the modem status as follows: 


bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 


or NWhOIOs) 


data carrier detect 

ring indicator 

data set ready 

clear to send 

data carrier detect status changed 
ring indicator end 

data set ready changed 

clear to send changed 
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5.3 BIOS Usage 


TYPE 15 Cassette Input/Output 


The function is specified in AH as follows: 


( AH )= 0 Turn Cassette motor on 
( AH )= 1 Turn Cassette motor off 
( AH )= 2 Read data from the cassette tape unit. 


(ES,BX) contains the pointer to the data buffer. 
(CX) contains the number of data to be read. 


The registers and the values returned are 
as. follows: 


ES:BX : buffer address of the last byte read 


plus 1 
DX >: the number of actual bytes read 
AH > =1 when CRC error is detected 


=2 when no signal is detected 
=4 when no leader is detected 

CY > carry flag =0 no error is detected 
carry flag =1 some error is detected 


( AH )= 3 Write data to the cassette tape unit. 


(ES:BX) contains the pointer to the data buffer. 
(CX) contains the number of data to be written. 


The registers and the values returned are 
as follows: 


ES:BX : buffer address of the last byte written 
plus 1 

Al > Any other than the above values causes 
(CY)=1 and (AH)= 80 to be returned. 
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TYPE 16 


Keyboard Input/Output 


Executes one of the following functions as indicated by AH: 


( AH )= 0 


Reads next character. Reads a character from the 
ea and puts the following codes into AH and 


Data type AH AL 
l-byte character scan code ASCII code 
2-byte char. lst-byte scan code lst-byte 
2-byte char. 2nd-byte scan code 2nd-byte 
function key, etc. pseudo scan 00 
code 

input JIS 8 bit code 00 pseudo scan 
with ALT key pressed . code 
Kanji lst-byte FF lst-byte 

2nd-byte FF 2nd-byte 


by Kana-Kan conversion 


If more data remain in the buffer, the initial data are returned. 
Otherwise, the routine stays active for the new data input. 


( AH )= 1 


(ZF) =1 
(ZF) =0 


Indicate if a .character is available to be 
read. ZF (zero flag) will be set as follows, to 
indicate whether data have been transmitted into 
the buffer or not: 


no character is in the buffer for reading 
character is in the buffer for reading 


When (ZF) =0, the next character will be sent 
to AX. The character remains unchanged in the 
buffer until a call is made with (AH)=0 to read 


the next character. 


5-22 

















( AH )= 2 
( AH )= 3 
( AH )= 4 


5.3 BIOS Usage 


Reads shift status. Current shift status is sent 
to AL and AH as follows: 


AL register 


bit 7 = 1 Insert mode 

bit 6 = ] CAPS Lock pressed 

bit 5 Unused 

bit 4 =1 Scroll Lock pressed 

bit 3 = 1 ALT key pressed 

bit 2 =1 Control key pressed 

bit 1-0= 01 Right-shift key pressed 
bit 1-0= 10 Left-shift key pressed 


AH register 


bit 7-3 Unused 

bit 2-1 =00 Alphanumeric shift 
=01 Katakana shift 
=10 Hiragana shift 

bit 0 =] Full size mode 
=0 Half size mode 


Sets typamatic rate 


AL=0 Return to default values 

AL=1 Increase initial delay 

AL=2 Slow typamatic rate by one half 
AL=3 Combine AL=1 and AL=2 

AL=4 Disable typamatic 


AL=0 Turn keyboard click off 
AL=1 Turn keyboard click on 
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( AH )= 5 
( AH )= 6 
( AH )= 7 
( AH )= 85 


Alters keyboard status or 


mode. Sets desired 


status or mode in AL. 


Status/Mode symbols displayed are altered. 


AL register 


bit 7-6 =00 Shift out Kanji-mode 
=01 Shift in Kanji-mode 
=10 Shift Kanji-mode in or out 
=11 Not switched 
bit 5-4 =00 CAPS Lock off 
=01 CAPS Lock on 
=10 Switch CAPS Lock on or off 
=11 Not swithed 
bit 3-2 =00 Alphanumeric shift 
=01 Katakana shift 
=10 Hiragana shift 
=11 Not changed 
bit 1-0 =00 Half size mode 
=01 Full size mode 
=10 Switch Half/Full-size mode 
=11 Not switched 
Reserved 


Status/symbol line and Kana-Kanji conversion 


possible or 


impossible. 


Bit 0= 0 Kana-Kanji conversion is possible 


( default ). 
= 1 Kana-Kanji conversion is impossible 
Bit 1= 0 Access to the indicator line is 
possible. ( default ) 
= 1 Access to the indicator line is 
impossible. 
When the screen mode is reset , these parameters 
will revert to the default values. 


Same as (AH)=5, except status/mode symbols 


displayed are not altered. 
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5.3 BIOS Usage 


DEPE 17 Printer I/0 


The printer BIOS supports the IBM 5512 Thermal Transfer Printer 
( hereafter called PT-2 ) and the IBM 5513 Thermal Paper Printer 
( hereafter called PT-1 ). When the printer is called by (AH)=0, 
the entire contents of AL are printed to the PT-2 printer. 

The situation may not be the same as PT-1. ; 

Descriptions of PT-1 output when called by (AH)=0 are provided 
followed by a description of the BIOS common to both printers. 


When PT-1 is connected and BIOS is called by AH=0, the contents 
of AL determines whether they are character code, control code 
Or data. As for the multiple number of bytes of control code, 
the control code sequence should strictly be followed at the 
time of BIOS process. 


Character codes for sending one byte (ANK) or two byte characters 

should be IBM internal codes. 

The character font output to the printer is an image of what was 

obtained by a request for a Video BIOS character font. 

The characters use Hankaku 7 X 16 dot and Zenkaku for 15 X 16 

font patterns. 

The printer output is performed in units of one line. The data 

are stored in the BIOS character buffer until the printing 

COmmands such as LF, FF are received. 

At the time when BIOS receives printing commands, character 

patterns for one line are output to the printer as image data. 

For this reason, characters and image data can not reside within 

the same line. ( In this case, a line is automatically fed.) 

The PT-1 uses an 8 dot print head. 16 dot vertical printing 

requires the head to move twice. 

Printed characters can be large or small characters. A change 

ska One size to the other must be made at the beginning of a 
ine. 

Small characters are the default. 
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Control codes used are those for the IBM 5553/5557 printers and 
some of these differ from those of the PT-1. BIOS converts then 
to PT-1 codes. Due to the PT-1 hardware limitations, those 
codes which BIOS can not convert are replaced by blanks. 


Out of the IBM 5553/5557 control codes, the following are 
converted by BIOS: 


1) CAN : Cancellation 
After the image buffer or code buffer within BIOS are 
cleared, the CAN code is output to the printer. 


2) CR : Carriage Return 
Because the PT-1 automatically issues an LF, the CR 
code is neglected within BIOS. 


3) LF : Line Feed 
An LF is taken as a print command and after data 


in the buffer are output to the printer, the LF is 


performed. 
The PT-1 automatically issues an LF. 


4) FF >: Page Change 
FF is taken as a print command and after data in the 


buffer are output to the printer, the page change is 
performed. 


5) SP : Space 
One Hankaku character space corresponds to one space 


output. 


6) ESC ¥ 1: Single length image data transfer 
( graphics image handling code ) 
This is used when graphics image data are sent. 
Conversion is made as follows: ( 2 byte code data 
transfer mode should be followed. ) 


ESC ¥ 1 N1 N2 D1 D2 D3 D4 ..... D(2 X N1N2) 
is converted to 

ESC L N1 N2 D1 D3 D5 ....D(2 X N1N2)-1 
+LF 


+CR 
+ESC L N1 N2 D2 D4 D6 ....D(2 X NIN2) 


> |5]>| Image data (ODD) . i 
2] +] Image data (EVEN) i 







MSB 






LSB 
MSB 


LSB 


5.3 BIOS Usage 


7) ESC % 2 : Double length image transfer ( graphics 
image handling code ) 


This is used in graphics image data transfer as follovs: 
(2 byte data transfer mode should be followed.) 


ESC % 2 N1 N2 D1 D2 D3 D4 ....D(2 X N1N2) 


is converted to 


ESC L N1' N2' D1 D1 D3 D3..D(2 X N1N2)-1 D(2 X NIN2)~-1 


+LF 
+CR 
*ESC L NI’ N2* D2 D2 D4 D4..D(2 X NIN2) D(2 X N1N2) 





MSB 





3 3] Image data (ODD) 


214/41] Image data (EVEN) 


LSB 
MSB 
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8) ESC % 3 : Horizontal skip ( graphics image handling code ) 


This is a command to skip the dots specified and is 
converted as follows: 


ESC % 3 Nl N2 

is converted to 

ESC 1 N1 N2 00 00 00 00 ..... 00 00 
NiN2 


9) ESC ¥ 5 : Vertical skip ( graphics image handling code ) 


This is a command to feed the paper vertically for 
the number of dots specified. As the PT-1 is unable 
to process dots, the conversion is made as follows: 


ESC % 5 N1 N2 
is converted to 
ESC 0 ( NIN2 / 13 ) 


The actual paper feed is made in units of 1/9 inch 
(2.82 mm), N1IN2 / 13 times (rounded). 

( 2 inch maximum ( 50.8mm ) ) 

Where NIN2 / 13 is less than 2, the value is rounded 


up to 2. 


10) ESC % 6 : Set CR point ( graphics image handling code ) 


This is a command to move the print-begin-position 
the dots specified and is converted as follows: 


ESC % 6 N1 N2 


is converted to 


CR ( carriage return ) 
+ESC L NIN2 00 00 00 00 00 00 00 00 00 00 


N1N2 


5.3 BIOS Usage 


11) ESC & 9 : Set Line Space 
¢ The number of line spaces when LF is received is set 
N by the value of N1N2 as follows: 
0 SNIN2 < 13 cvvees 1/9 inch LF 2 Times 
13 SNIN2 < 26 ---- 1/9 inch LF 3 Times 
26 S NIN2 < 39 --- 1/9 inch LF 4 Times 
39 S NIN2 < 52 weer 1/9 inch LF 5 Times 
52 S NIN2 <) 65 -- 1/9 inch LF 6 Times 
65 S NIN2 < 78 we 1/9 inch LF 7 Times 
78 S NIN2 < 9] «+e 1/9 inch LF 8 Times 
91 SNIN2 < 104 «++ 1/9 inch LF 9 Times 
104 S NINQ <ccsrsssssseeees 1/9 inch LF 10 Times 

“(a 12) ESC F > Set page length 

This is a command to set the length of a page with 
6 LPI for small characters and 3 LPI for large 
characters. Conversion is made as follovs: 
ESC F N1 N2 
is converted to 

G ESC C N1 N2 ( N1 N2 < 126 (SMALL) ,63 (LARGE) ) 
When N1IN2 is greater than 126 or 63, the value is 
forced to 126 or 63. 

13) ESC E£ > Set ANK Enlargement 
2 When this command is received, a double size 
character will be printed. 
14) Esc | > Release ANK Enlargement 


When this command is received, ESC£ is released and 
the normal size characters will be printed thereafter. 
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15) FS : Fixed length image transfer ( graphics image 
handling code ) 


When this command is received, the same image transfer 
commands ( ESC ¥ 1 , ESC % 2 ) as those most recently 
issued and the image data transfer using data numbers 
will be initiated. 


16) Other control codes 


The following control codes do not have meaning to 
the PT-1 and are neglected by BIOS. In this case, 
commands which consist of single or multiple bytes 
neglect all the bytes which the command takes as 
valid. The printer waits for the next control code 
to be presented. 











No. of bytes for 
Command generation 






Control Code overlooked - 




























CR CARRIAGE RETURN 







BS BACK SPACE 
DC 1 SELECT 
DC 3 DESELECT 





HORIZONTAL REVERSE SKIP 
VERTICAL REVERSE INDEX 


ESC %4N1N2 
ESC %8N1N2 












ESC %B BIDIRECTIONAL PRINT 

ESC %U NORMAL PRINT 

ESC S SHEET FEED 

ESC V SHEET EJECT 

ESC O HIGH SPEED PRINT START 
ESC P HIGH SPEED PRINT RELEASE 
ESC ( 3 BYTE DATA TRANSFER 


ESC ) 2 BYTE DATA TRANSFER 


REMARKS) 1. As ESC % 1, ESC % 2, ESC % 3, ESC ¥ 5, ESC % 6,FS 
are operated within BIOS as the graphics image handling 
codes, another LF is added when thay are used together 
with character data. 


2. When ESC % 1, ESC % 2, ESC % 3, ESC ¥ 6 as_ used, 
the total of NIN2 within a line should not exceed 
1120 dots, larger values are ignored. 


3. When multiple ESC commands are received, the first 
ESC is valid and other ESC are ignored until a code 
other than ESC is issued. 


5.3 BIOS Usage 


The value in AH indicates to BIOS which of the following 


functions to execute. 
PT-1 and PT-2 have the same function unless otherwise stated. 


When returning to the calling program, DX must be 0. AH vill 
contain status values, while other registers remain unchanged. 


( AH )= 0 Prints the character specified in AL. 
A hex 7F (DEL) prints a special character. 
Also sends control codes to the printer through AL. 
In processing output data, there are differences 
between PT-1 and PT-2, as stated before. 


CAH )= 1 Initializes the printer. Initializes the hardware, 
resets the software status, and then sets’ the 
initial control values, as shown below. 

PT-1 values are in parentheses. 
- Alphanumeric 10 (12) characters per inch 
- Kanji 5 (6) characters per inch 
- Line feed 6 (4.5) lines per inch 
- Page length 66 (49.5) lines per page 
- Speed normal 
( AH )= Print character SMALL character 
= 2 Reads status-l. Reads printer status into AH 
as follows: 
bit 7 =0 In use. 
bit 6 Reserved 
bit 5 =] Out of paper (EOF) or paper jam in the 
automatic sheet feed. 
bit 4 2] Printer ready. 
nt §. < An error such as EOF, printer 
disconnected, CANCEL key pressed or 
time-out has occurred. 
bit 2,1=1 Reserved 
bit 0 =] Time out. The printer is taking an 
abnormally long period of time to print 
characters. 
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( AH )= 3 
( AH )= 4 
( AH )= 5 
( AH )= 6 
( AH )= B 


bit 
bit 
bit 


bit 


bit 


-A 


1,0 


Reads status-2. Reads the printer status into AH 


as follows: 


7 Always “1" 
6,5 Unused 
4,3 =11 7.5 LPI 
10 6 LPI 
01 5 LPI 
00 4 LPI 
2,1 =11 7.5/15 CPI 
=10 6, 7718: 35 Cre 
=01 6/12 CPI 
=00 5/10 CPI 
0 =1 PT-1 is connected 
=0 PT-2 is connected 


Prints contents of AL register directly. 


Prints double wide. Same as in (AH) =0 except that 
the horizontal size of the character is doubled. 


Unused 


Prints a line (including associated attributes) 

in Extension Video mode. ( PT-2 only 

Prints the character string in the character 
buffer indicated by ES:DI. The nth character in 
the character buffer will be printed with the nth 
attribute in the attribute buffer. The length of 
the buffer is specified in CX. 


The attributes for this function are one or two 
byte values indicating how characters are printed. 
The meaning of each bit in an attribute byte are 
as follows: 


Meaning 
Reserved. Must be set to 0. 
Underline 
Reserved. 
Reserved. Must be set to 0. 
Vertical grid line 

=00 None 

=01 Single solid line 

=10 Heavy solid line 

=11 Single dotted line 
Horizontal grid line 


The values are the same ‘ 
: ° as f 
grid line. or a vertical 
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5.3 BIOS Usage 


A one-byte attribute is needed for a half-size 
character; a 2-byte attribute is needed for a full-size 
character. Horizontal lines are printed above the 
characters involved: vertical lines are printed to the 
left of the characters involved. 


After the number of bytes specified in the CX register 
1S printed, BIOS will automatically print a carriage 
return character and a line feed character unless the 
character buffer ends with a carriage return character 
Or a line-feed character, or both. Thus the character 
buffer must contain al] the characters to be printed 
In one line. The control characters that can be 
Included in the character buffer are limited to the 
Carriage return, line-feed, ESC [and ESC] that are used 
at the end of the character buffer. 


Sets printer control values. 
The control values are specified in AL as follows. 


(AL) Specified control value 


0 Reset printer default values. See (AH)=1. 
1 Change character pitch 
(BH) =90 5 Full size characters/inch 
(BH) =78 6 Full size characters/inch 
(BH)=6C 6.7 Full size characters/inch 
(BH) =60 7.5 Full size characters/inch 


The value for half size characters is double 
that of full size characters. 


2 Change line feed pitch 
(BH)=1E 4 (3) lines per inch 
(BH)=18 5 (3) lines per inch 
(BH)=14 6 (3) lines per inch 
(BH)=10 7.5 (4.5) lines per inch 


3 Change page length. 
(BX) number of lines per page 
(based on 6 lines/inch) 
4 Set double/normal speed node. 
(BH) =0 set double speed mode 
(BH) =1 set normal speed mode 
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5 Set unidirectional/bidirectional printing mode 
( PT-2 only ) 





(BH) =0 set unidirectional printing mode 
(BH) =1 set bidirectional printing mode 
6 Change printing character ( PT-1 only ) 


(BH)= 0 SMALL character 
(BH)= 1 LARGE character 


’ 


TYPE 18 ROM BASIC 
This interrupt executes a BASIC program. 


TYPE 19 System reset 
DOS is restarted by the BOOT program, or by issuing 6 
INT 18. 

TYPE 1A Timer Support. Reads or sets the time as specified 
in AH. 


( AH )= 0 Reads the current value of the time-of-day counter 
and returns the following: 





CX most significant word of count 

DX least significant word of count 

AL=0 count has not passed 24 hours since the 
last time it was read 

AL<>0 24 hours have passed 


( AH )= 1 Set time-of-day counter to the value specified in 
the CX and DX registers. 


Cx most significant word of count 

DX least significant word of count 

note: Counting rate is 1193180/65536 per sec,i.e., 
there are 18.2 counts per sec. 
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5.3 BIOS Usage 


5.3.2. Extension Video Mode BIOS Interrupts 


INT10, INT11, and INT16 have different meanings in Extension 
Video mode from in Native mode. An explanation of these three 
interrupts in Extension Video mode are as follovs. 

Refer to chapter 3 " 3.5 VP3 Display Function ", for more 
information on Extension Video mode. 


TYPE 10 Display Input/Output 


Execute the following functions as specified in AH. 


( AH )= 0 Set mode. Sets display mode as specified in AL. 
(AL) Mode 
0-7 Reserved 
8 80X25 mono character mode (initial mode) 
9 720X512 mono graphics mode 
80X25 characters displayed 
10 Reserved 


11 360X512 4 color graphics 

- 40X25 characters displayed 

- double size character width 

- palette 11 used for character color 

- palette 00 used for background color 
- normal size characters printed except 

for screen print. 
- All palettes, except palette 0 are 


printed. 
Refer to(AH)=11, "set palette color”. 
12-13 Reserved 
14 80X25 color characters 
( AK )= 1 Set cursor-type. The cursor type is specified by 
bits in the CX register. 
bit 14,13 =00 non-blink 
=01 non-display 
=10 blink at 4 times per second 
=11 blink at 2 times per second 


Blinking is not supported in graphics node. 


bit 12-8 start line of the cursor in a character 
box 
bit 4-0 end line of cursor in a character box 


CH 
cl— 
2 
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( AH )= 2 
( AH )= 3 
( AH )= 4 
( AH )= 5 
( AH )= 6 
( AH )= 7 
( AH )= 8 


Set cursor position. The cursor. position 
(row,col) is specified by values in ( DH,DL ). 
(0,0) indicates the home (upper left) position. 


Read cursor position. (DH,DL) contains the 
current cursor position ( DH=row,DL=col ). 
(CH,CL) contain the cursor type. 


Reserved 
Reserved 


Scrolls display upward. (CH,CL) specifies the 
upper left corner of the position to be scrolled 
(CH=row,CL=column), (DH,DL) the lower right corner 
(DH=row,DL=column), AL the number of lines to be 
scrolled, and BH the attributes for the space left. 
AL=0 clears the area defined by CX and DX. 


Scrolls display downward. Same as ( AH )=6. 


Reads the character at the current cursor position 
into AL and its attributes into AH. 


Full-size characters return the following 
attributes. 


lst-byte XXXX XX01 
2nd-byte XXXX XX11 


The attributes returned are the same as those 
written by ( AH )=9. 


All attributes are supported in graphics mode. 


In color graphics mode the color attribute bits 
of AH have no affect on the color of the 
characters. 
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( AH )= 9 
( AH )= A 
( AH )= B 
( AH )=C 


5.3 BIOS Usage 


Writes cursor posision attributes and characters. 
Characters to write in AL and their attributes, 
with the number of characters indicated units of 
half-size characters, should be specified in CX. 
For full-size characters, the attributes change 
after the 2nd byte is written. 


Bit 1 or 0 of the attribute is set depending on 
the contents’ of the AL register. 


Half-size character XXXX XXXO 
Full-size character 
lst byte XXXX XX01 
2nd byte XXXX XX11 


All the attributes except high-intensity and blink 
are supported in graphics” mode. 


In color graphics mode, the color attribute bits 
of BL have no affect on the color of the 
characters. 


Write character only. Same as (AH)=9, except that 
attributes are not written ( nothing specified in 
BL ). 


Set a color in the palette. Specify in BH 
the palette number to be set (0-3). Specify in BL 
the color number ( 0-15 ) to be assigned to the 
specified palette number. 


Write a dot. (DX, CX) specifies the bit 
position (row,column) where the dot is to be 
written, (0,0) represents the home position on the 
display. Both the row and the column number are 
in units of dots, not characters. 

In color mode, AL specifies the palette number (0- 
3) for the color dot to be written. 

In monochrome graphics mode, bit 0 or 1 is 
specified in AL. If the eighth bit (bit 7) in AL is 
specified as 0, the value in bit 0 (or bit 0,1) of 
AL will be written directly. 

If the value in bit 7 is set to 1, however, the 
XOR (exclusive OR ) value of the current value and 
the value of bit 0 in AL will be written. 


This function works only in graphics mode. 
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( AH )= D 
( AH )= E 
( AH )= F 
( AH )=10 


Read a dot. (DX,CX) specify the (row, column) 
of the dot position to be read ( both the row and 
column number are in units of dots, not 


characters). The dot value (on /off) is read into 
bit 0 (or 0,1) of AL. 


This function only works in graphics mode. 


ASCII teletype routine for output. 

Writes a character at the cursor position and 
advances the cursor. If the cursor is already in 
the rightmost position in line 24, the screen is 


scrolled upward. 
The character to be written is specified in AL. 


If the cursor is at the last position in a row 
and a full-size character is to be written, 
a space is placed at this position and at the lst 
position in the next row the full-size character 


is written. 


This function also works in graphics mode. 


Get the current display status. AL receives the 
current mode and AH _ receives the number of 
character columns displayed. 


Request a font pattern. Returns the font 
pattern for the specified character in the user- 
designated memory location. CX must hold the 
internal code of.the requested character. CH must 
must be 0 for half-size characters. AL must be 0. 
Fonts will be placed in the memory location 
designated by (EX:BX), as follows: 


8 
ES:BX? Li | 





Li6é 
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( AH )=11 


TYPE 22 


5.3 BIOS Usage 


Sets the display attributes. The display 
attributes are specified in BH as follows: 


(BH) 


Display attributes 


bit 6 =1 display in high-intensity 
bit 3-0 grid line color (0-15). The colors are 


the same as those described in “Setting 
the palette ". 


Device Configuration Status 


The device configuration status is returned in AX. 


The information, 


bit 15,14 
bit 13 =1 
bit 12 

bit 11-9 
bit 8 = 
bit 7,6 
bit 5,4 
bit 3,2 
bit 1 

bit 0 


4 


specified by the bits in AX, is listed below: 


Number of printers (usually 1 is returned) 
Reserved 

Reserved 

Number of ASYNC communication ports connected 
Reserved 

Number of diskette drives 

Video mode initialized ( always =10 )# 
Type of display 

12 inch monochrome display( always =00 ) 
Reserved 

Reserved (=1 diskette drive is connected) 


* Extension mode is identified by checking bits 5 and 4 
for values of 


1 and 0, respectively. 


RAM addresses 700-701 (Hex) are reserved for system use 
Extension Video mode. 


in 


TYPE 16 


Keyboard Input/Output 


One of the following functions is executed depending on the 


value in AH: 


( AH )= 0 


Reads next character. Reads a character from the 
keyboard and puts the following codes into AH 
and AL. 
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If more data remain in the buffer, the initial data are returned. 












Data type 


| AH AL 

1 byte code character 

2 byte code ist byte 

E byte code 2nd byte | scan code 2nd byte 

Function key, etc. pseudo scan 

JIS code Using ALT key | code 

JIS-8 bit code input ae! 
scan code 

Kanji lst byte Ist byte 

by kana-kan 2nd byte | FF 2nd byte 

conversion 















Otherwise, the routine stays active for the next data input. 


( AH )= 1 


(ZF) =1 
(ZF) =0 


( AH )= 2 


Indicates if a JIS-8 bit code character is 
available to be read. ZF (zero flag) will be set 
as follows, to indicate whether data have been 
transmitted into the buffer or not: 


No character is in the buffer for reading 
Character is in the buffer for reading 


When (ZF)=0, the next character will be sent to 
AX. The character remains unchanged in the buffer 
until a call is made with (AH)}=0 to read the next 
character. 


Reads shift status. Current shift status is sent 
to AL and AH as follows: 


AL register 


bit 7 = 1 insert mode 

bit 6 = 1 CAPS Lock pressed 

bit 5 unused 

bit 4 = 1 Scroll Lock pressed 

bit 3 = 1 ALT key pressed 

bit 2 = 1 Control key pressed 

bit 1,0= 01 right shift key pressed 
= 10 left shift key pressed 
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( AH )= 3 
( AH )= 4 
( AH )= 5 
( AH )= 6 
( AH )= 7 


AH register 


bit 7-3 

bit 2,1 =00 
=01 
=10 

bit 0 =1 
=0 


Clicker on : 


Clicker off : 


Alters keyboard status or mode. 
status or mode in AL. 


AL register 


bit 7-6 =00 
=01 
=10 
=11 
bit 5-4 =00 
=01 
=10 
=11 
bit 3-2 =00 
=01 
=10 
=11 
bit 1-0 =00 
=01 
=10 
=11 


Status/Mode symbols displayed 


Reserved 


Kana-to-Kanji conversion and 
line possible or impossible. 


5.3 BIOS Usage 


Unused 
Alphanumeric shift 
Katakana shift 
Hiragana shift 
Full-size node 
Half-size mode 


Causes the speaker to generate sound 
with frequencies of 31-32767 Hz as specified 


in CX. 


Turns keyboard click off. 


Sets desired 


Shift out Kanji-node 

Shift in Kanji-mode 

Shift Kanji-mode in or out 
Do not switch 

CAPS Lock off 

CAPS Lock on 

Switch CAPS Lock on or off 
Do not switch 

Alphanumeric shift 
Katakana shift 

Hiragana shift 

Do not change shift status 
Half-size mode 

Full-size mode 

Switch Half/Full size mode 
Do not switch 


are altered. 


status/node symbol 
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AL 
Bit 0 = Kana-to-Kanji conversion is enabled & 
(default) 
=] Kana-to-Kanji conversion is disabled 
Bit 1 =0 Indicator line is enabled (default) 
=] Indicator line is disabled 


When display mode is reset, these parameter are 
reset to default values. 


( AH )=85 Same as (AH)=5, except that status/mode symbols 
displayed are not altered. 


@ 


@ 
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Srouas 


The 
use: 


INT 5 


INT 1B 


INT 1C 


INT 1D 


following are descriptions of the BIOS routines for 


5.3 BIOS Usage 


Interrupt Routines For Special Use 


special 
: Screen print 


When screen prints, either in Native mode or 


Extension Video mode are required the screen mode 
(character or graphics mode ) is automatically set 
for the printer, and the printing is done in the 
correct mode. The printing direction for character 
mode is the same as that displayed. For the graphics 
mode, the printing line is rotated 90 degrees. 


Keyboard Break Address 


This vector points to the code to be executed when 
Break is pressed on the keyboard. The vector is 
invoked while responding to the keyboard interrupt, 
and control should be returned through an IRET 
instruction. The POWER-ON routines initialize this 
vector to an IRET instruction, so that nothing occurs 


when Break is pressed unless the application program 
sets a different value. 


Control may be retained by this routine, with the 
following problem. The ‘Break’ may have occurred 
during interrupt processing, so that one or more ‘End 
of Interrupt’ commands must be issued in case an 
operation was underway at the time. 


> Timer 


This vector points to the code to be executed on every 
system-clock tick. This vector is invoked while 
responding to the ‘timer’ interrupt, and control should 
be returned through an IRET instruction. 


The 
POWER-ON routines initialize this vector to point to 


an IRET instruction, so that nothing occurs unless the 
application modifies the pointer. It is the 


responsibility of the application to save and restore 
all registers that are modified. 


> Video Parameter 

This vector points to a data region containing the 
parameters required for the initialization of the CRT 
Controller. Note that there are six separate tables, 
and all six must be reproduced if all modes of 
operation ( ANK, Graphics, Kanji ) are supported. 

The POWER-ON routines initialize this vector to point 
to the parameters contained in the ROM video-routines. 
It is recommended that if a programmer wishes to use a 
different parameter table, that the table contained 


in 
ROM be copied to RAM and just modify the values needed 
for the application. 
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INT 1E 


INT 1F 


INT 49 


INT 7A 


: Diskette Parameter 

This vector points to a data region containing the 
parameters required for the diskette drive. The 
POWER-ON routines initialize the vector to point to 
the parameters contained in the ROM DISKETTE-routine. 
It is recommended that if a programmer wishes to use 
a different parameter table, that the table contained 
in ROM be copied to RAM and just modify the values 
needed for the application. The motor start-up-time 
parameter (parameter 10) is overridden by BIOS to 
force a 500-ms delay (value 04) if the parameter value 
is less than 04. 


: RESERVED 


: Conversion Table 

This interrupt contains the address of a table used to 
translate non-keyboard scan-codes (scan codes fron 
56(Hex) to 69(Hex).) If Interrupt hex 48 detects a 
scan code between 56 - 69 (Hex) it translates it using 
the table pointed to by Interrupt Hex 49. The 
address that Interrupt Hex 49 points to can be changed 
by users to point to their own table if different 
translations are required. 


Pointer To Dictionary 
This routine includes pointers to the dictionary for 


Kana-to-Kanji conversion. 
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5.4 Keyboard Scan Code 
5.4. Keyboard Scan Codes 


Scan codes are used to transfer keyboard data to the system unit. 
A different scan code is generated by pushing or releasing a key. 
Functions not represented by a single keystroke can be achieved 
by pressing two or more keys simultaneously. The BIOS keyboard 
routine converts them and returns one single character code. 

BIOS sends scan codes and converted character codes to the CPU. 


The BIOS routines for processing keyboard data are INT2, INT48, 
INT49, INT16, INT9, INT78, INT79, and INT7A. 
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5.9. 


RAM for general use can be expanded to a 512KB maximum. 
The memory space allocation is referred to in Chapter 2, 


Memory Map 


Memory Space and I/O address Setting.” 


00000 


10000 


80000 
88000 
88800 
A0000 


B0000 
B8000 


C0000 
D0000 


E0000 


FFFFF 


Remarks ) 


Figure 5-4 





Native mode : 
i Extension 


English mode ideo mode 


Base RAM 


Expansion 


— Same as the Character 
left column Generator 2 
80000 


8 X 8ANK 
8 X16, 16X16 
NON- KANJI 


User Font 


VRAM 
(Graphics) 


VRAM VRAM virtual 

virtual 

address address (Text) 

BFFFF 

ROM reserved 
ROM cartridge] Same as the 
System left column 
ROM 
on Board 


The map of addresses 00000-80000 (Hex) 
depending on whether or not a 128KB RAM 


installed. Refer to Figure 5-5 and 


Memory Map 





ROM 0 


ROM | 


ROM 2 


ROM 3 


" 


changes 
card 
5-6. 


is 


2.2.6 


‘@ 


as 


(@ 


(@ 


(@ 


(@ 





Meaning of abbreviations : 
@® 64K :64KB Base Memory 
© 64K :64KB RAM Card 
© 128K : 128KB RAM Card 
EVEN : Even address used 
ODD : Odd address used 


Figure 5—5 Memory Space (Native and Extension Video mode) 
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5. Software 


: b memory and 64K bytes of expansion 
Ear arta Peet at addresses 00000-FFFFF (Hex). 
a 


00000 


t 
| VEN! ODD 


10000 © 


20000 


30000 


40000 


50000 


60000 


70000 





80000 


Meaning of abbreviations : 
64K :64KB Base Memory 
© 64K :64KB RAM Card 
© 128K :128KB RAM Card 
EVEN : Even address used 
ODD =: Odd address used 


Figure 5—6 Memory Space (English mode) 
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(e 





5.6 I/O Map 


5.6. I/0 Map 


I/0 addresses are initialized as follows. Addresses can be 
changed for some I/0. The relocation of I/0 addresses is 
referred to in Chapter 2, " 2.2.6 Memory Space and I/0 Address 
Setting”. 


170 Name 


1X Reserved 

20 8259 PIC 

21 8259 PIC 

40 8253 Timer 1 

41 8253 Timer 2 

42 8253 Timer 3 

43 8253 Mode 

60 8255 Port A 

61 8255 Port B 

62 8255 Port C 

63 8255 Control 

AO NMI Control 

CO 76489A Sound generator 
F2 ; Diskette controller 

F4 Diskette status register 
F5 Diskette data register 
1FF Gate Array-08 

201 Joystick 

278 Reserved 

279 Reserved 

27A Reserved 

2F8-2FF | 8250 register addresses 
32X Reserved 

378,37C | Parallel interface 
379,37D | Parallel interface (status) 
Parallel interface (command) 






















































Figure 5—7 I/O Addresses (1 of 2) 
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Address 
3D0,2,4,6 | CRTC address registers 
| 3D1,3.5,7 | CRTC data registers 







3D8 Reserved 
1 3D9 Page register 2 
| 3DA Video Gate Array VP1, VP2 
| 3DB Clear light pen latch 
| 3DC Set light pen latch 
| 3DD Video gate array VP3 

3DE | Light pen gate 





Page register 1 
Reserved 





Figure 5—7 I/O Addresses (2 of 2) 


®@ 
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6. Compatibility 


This chapter describes points to keep in mind to maintain 
compatibility among the IBM 5510, IBM 5550 and PCir systems. 
The differences among these systems are also described. 


To have compatibility between the IBM 5510 and PCjr, it is 
necessary to operate the IBM 5510 in English mode. 


In order to 
be compatible with the IBM Multistation 5550, the 5510 must be 
operated in Extension Video mode. 


ROM cartridges are available 
for changing the mode of operation. 


It is recommended that an application program use only the BIOS 
and DOS interrupt interfaces in order to achieve compatibility 


with the PCjr and IBM 5550, since absolute addresses vary among 
the three machines. 


There are several factors to keep in mind to maintain compati- 
bility. They are: 


Unequal Configurations 


. Hardware Differences 


1 
2 
3 Diskette Compatibility 
D 


iscussions of these topics follow. 
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6. Compatibility 


6.1. Unequal Configurations 


From the configuration/hardware point of view, there exist 
some functions which the IBM 5550 has, while the IBM 5510 does 
not have. Application programs which call for those functions 
might not work on the IBM 5510. The following are functions 
unique to the IBM 5550: 


1. Hardware 
- 5550 ROM Function 
- DMA 
- 1024 x 768 dot display function 
- IBM 5550 unique key-tops 
- IBM 5550 unique printer function 


2. BIOS 
- 1024 x 768 dot graphics mode 
- Hard Disk 

3. DOS 


- User fonts of 63 or more characters 
- Hard disk support commands (SWITCH, BACKUP, RESTORE) 
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6.2 Hardware Differences 
6.2. Hardware Differences 


The IBM 5510, PCjr, and the IBM 5550 differ in hardware design 
and there might be instances where application program compati- 
bility is not maintained because of the differences in the 
hardware. Figure 6-1 shows the hardware features of the IBM 
5550 and PCjr compared with those of the IBM 5510. 

Due to different shapes in connectors, some hardware might need 
modification before being used, but when the hardware is func- 
tionally compatible, it is classified as compatible. 


Comparison 





Hardware/Function _ 























+ 5550 PC-jr 
" User Memory ‘ at 7 2a & * 
‘Compact Keyboard XH 
' Full Keyboard x* N/A 
‘Diskette I Drive Geka —— 7 * x * 
"Printer Interface _ eae x * iz 
RS-232C Interface 5% = 
~ Joystick Interface WA SG 
~ Cassette | Interface : N/A € 
"Color Graphics _ co . 
“Light Pen N/A iad 
8253 Timer — : 
_ Interrupt Controller _ co * “a 
_ Beep ‘Subsystem ae = 
" Sound “Generator N/A x 
“ROM Cartridge Interface, N/A. 
Remarks) © --- Compatible 
X --- Incompatible 
= --- With Conditions (Mentioned hereafter) 


N/A - Not Applicable 


Figure 6-1 Hardware Configuration Comparison 
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Hardware Differences from PCjr 


1. 


User RAH 
PCjr always shares the user RAM with the video RAM, while the 


IBM 5510 has dedicated video RAM and only utilizes user RAM 
as video RAM in special cases. When a program uses video 
pages 0 through 7 on the 5510 system, user memory of 16 KB 
per page is required. Pages 8 through B (Hex) are areas for 
the dedicated video RAM and when these are accessed, user RAM 
is not used. 


Diskette Drive 
- JBM 5510 : 80 tracks/side or 
40 tracks/side, 3.5" or 5.25" 


- PCjr : 40 tracks/side, 5.25" 


The size difference between the 3.5" and 5.25" diskettes 
makes physical compatibility impossible, but the diskette 
formats are compatible. 


Keyboard 
The IBM 5510 keyboard has added keys for Kanji handling but 


other keys are compatible with the PCjr keyboard. 


Sound Generator 
The IBM 5510 and the PCjr use compatible chips. 


RS-232C Card 
This is provided as a standard feature on the PCjr, while on 


the IBM 5510, it is an optional feature. English mode 
applications using either COM1 or COH2 mode should have this 


optional feature to run on the IBM 5510. 


6-4 














6.2 Hardware Differences 


Hardware Differences from IBM 5550 


is 


User RAM 


The IBM 5510 has the concept of multiple pages and can have 
up to 12 pages, while the IBM 5550 does not (one page is 
assumed). The memory maps for the two systems are different. 
However, if an application program accesses the hardware 
through BIOS calls, the memory map differences should be 
unimportant. Memory size should also be taken into account 
when considering compatibility because the minimum memory 
size of the IBM 5550 is larger than that of the 5510. 


Diskette Operation 


The IBM 5510 does not have DMA capability, while the IBH 
5550 has. The IBM 5510 uses a level 6 hardware interrupt. 
When diskette I/0 takes place, the entire system is masked 


and other 1/0 devices are inactivated (operator keystrokes 
and RS-232C etc.). 


Keyboard 


The IBM 5510 keyboard scan codes differ from those of the IBM 
IBM 5550. Compatibility is maintained by using interrupt 
type 16 (keystroke read). The keyboard operation, however, 


differs due to differences in the nusber and the functions of 
the keytops. 


Video Display Function 


There is quite a high degree of compatibility between the IBM 
5550 and Extension Video mode, but the font sizes of the two 
systems differ. The IBM 5550 has a wrap function for 

displaying screens, while the IBM 5510 does not. 


Kanji Font 


The IBM 5510 requires 32 bytes/character, while the IBM 5550 
requires 72 bytes/character. 


Dictionary 


The IBM 5510 dictionary resides in ROM, while the IBM 
5550 dictionary resides on a diskette and is loaded into RAM 
on demand. 


RS-232C Interface 


The IBM 5550 supports up to 9600 BPS communications through 
use of DHA, while the IBM 5510 supports up to 4800 BPS 
communications through use of a level 3 interrupt. When 
diskette 1/0 takes place, interrupts other than level 6 are 


rejected and therefore, RS-232C interface I/0 will not 
occur. 


Timer (8253) Input 
The IBM 5510 clock is 1.19 MHz, while that of the IBM 5550 is 
2.0 MHz. 
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9. 


10. 


11. 


Interrupt Controller 
Both systems use a 8259A PIC, but as the interrupt level 


assignments for the two systems differ, there might be 
instances where compatibility is not maintained. 


Beep ; 
As there is a difference in the frequency of the Timer Input 


clock between the two systems, their beep sounds are slightly 
different. 

Timing 

When an IBM 5550 application program is dependent on the 
processing speed or timing, it might not run on the IBM 5510. 
In this case, the program should be modified in accordance 
with the IBM 5510 specifications. In developing application 
programs, the following points should be taken into 
consideration: 


- The processing speed differs with the size and type of 
merory in which an application program is running. 


Processing Speed Memory for the progran 


Fast ROM 
128 KB RAM Card 
64 KB memory on the system board & 
64 KB expanded memory 
64 KB memory on the board when it is 
functioning as video RAM and 64 KB of 


Slow expanded memory 


- The highest degree of application compatibility can be 
achieved by using a common high level! language and 


accessing the system only through BIOS and DOS interrupts. 
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6.3 Diskette Compatibility 
6.3. Diskette Compatibility 


When a 5.25" diskette drive is installed in an Expansion Unit, 
there will be instances where the PCjr or the IBM 5550 is 
completely compatible with the IBM 5510. When only 3.5” diskette 
drives are provided, the physical shape and size of the diskettes 
makes it impossible to have compatibility. 3.5" and 5.25” 
diskettes are, however, the same in format and logically they are 
compatible. The following chart shows compatibility when a 5.25” 
diskette drive is installed in an IBM 5510 system: 









SYSTEM B 






a 
ce ea <a 
hie | | we | ee 


Remarks) A <----> B : Perfectly compatible 
(both systems can read/write) 


ooc-- ==> > Reading of a diskette which has been 
written by the other systems is 
possible. (The arrow points to the 
system which reads.) 


= > Diskettes formatted with 40 tracks can 
be read. Ones with 80 tracks cannot. 
X > No Compatibility 


Figure 6-2 Diskette Compatibility 
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Appendix A. 


Relative Ref. 


Absolute 

Address PUBLIC Name Module _Address Page 
--------- (EQUATES & DATA AREA) - aa A- 2 
F800:0000  -7-77"7> 1 0000 3 
20030. 9 ---77777 2 0000 15 
0076 VIDEO_I0 2 0048 19 
01CD VIDEO_PARMS 2 019D 21 
:2030 EQUIPMENT 3 0000 93 
:203C MEMORY _SIZE_DETERMINE 3 000C 93 
:2048 DISKETTE_IO 3 0018 94 
:248D SEEK 3 045D 103 
:2539 DISK_BASE 3 0509 104 
:2544  DISK_INT 3 0514 104 
:25B5 RS232_10 3 0585 105 
:2696  CASSETTE_10 3 0666 107 
:27AC - READ_HALF_BIT 3 077C 110 
:2900 KBDNHI 4 0000 113 
:2A27 ~— EXTAB 4 0127 115 
:2A50 KEY62_INT 4 0150 115 
:2C9E KEYBOARD_10 4 039E 119 
:2ED5 = KB_INT 4 05D5 122 
:385D BUFFER _QUEING 4 OFSD 133 
23A00 0 -- roo 5 0000 135 
:3AA0 PRINT_SCREEN 5 OOA0 136 
330C0 0 seamen ooo 6 0000 141 
:3E20  PRINTER_IO 6 0060 141 
:4E00 BOOT_STRAP 7 0000 163 
:4F0O KKKFDH 8 0000 169 
76700 ODDS 9 0000 214 
76708 TIME_OF_DAY 9 0008 214 
76752 READ TIME 9 0052 214 
7677) KB NOISE 9 007D 215 
*679E BAS_ENT g O09E 215 
°67B3  TIMER_INT 9 00B3 215 
76A00 = POST 10 0000 218 
76A6B RESET 10 0068 220 
*6F99~—s«O11 10 0599 229 
:6FCO = DUMMY_RETURN 10 05C0 229 
?79A1 PRT_HEX 10 OFAl 248 
:79C0 BEEP 10 OFCO 247 
?7FCO VECTOR_TABLE 10 15C0 255 
*7FFF = POST_END 10 15FF 256 


Remark) Refer to the table shown above, when you find the character “EF 
for the operand in the BIOS listing. 


we 
eo 
eo 
man 
oo 


eC | 
°o 
°o 
> 
°o 


Ce 
o 
Lod 
so 
> 


onnnnne ou 
o eo 
o « 
o o 
“ @ 


ow 
oo 
oo 
on 
eon 


oC ee 
o 
o 
2s 
o 


Ce 
o 
o 
~ 
o 


$ 
3 <CAVEAT EMPTOR>: 


: 
: 
THE BIOS ROUTINES ARE MEANT TO BE ACCESSED THROUGH s 
SOFTWARE INTERRUPTS ONLY. ANY ADDRESSES PRESENT IN : 
THE LISTINGS ARE INCLUDED ONLY FOR COMPLETENESS, z 
NOT FOR  REFEREHCE. APPLICATIONS WHICH REFERENCE 3 
ABSOLUTE ADDRESSES WITHIN THIS CODE VIOLATE THE : 
STRUCTURE AND DESIGN OF BIOS. 3 


ee we Be we we we we 





3 SYSTEM ID : 
jeewcdeutencocussutasccoseecceeccweeseseses pEGwotuescoosoms leases 
PJSYSID EQu OFDH 3 PCje SYSTEM ID 
IXSYSID Equ OEDH 3 JX SYSTEM ID 
MFG_PORT Equ 10H 3 MFG TESTER PORT 
PORT_A EQu 60H 3 8255 PORT A ADOR 
CPUREG EQU 38H 3 MASK FOR CPU REG BITS 
CRTREG EQu 7 3 MASK FOR CRT REG BITS 
PORT_B EQU 61H 3 8255 PORT B ADDR 
PORT_C Equ 62H 3 8255 PORT C ADDR 
CMD_PORT EQu 63H 
MODE_8255 EQU 10001001B 
KBPORT EQu 60H 3 KEYBOARD PORT 
INTAOO EQu 20H 3 8259 PORT 
INTAOL EQU 21H 3 8259 PORT 
EOI equ 20H 
TIMER EQU 40H 
TIM_CTL EQU 43H + 8253 TIMER CONTROL PORT ADDR 
TIMERO EQU 40H 3 8253 TIMER/CHTER 0 PORT ADDR 
NMI_PORT EQU OAOH 3 HMI CONTROL PORT 
SND_CTL EQU ocoH 3 SOUND GENERATOR CONTROL PORT 
S8STATUS EQU 1FFH 3 $8 STATUS REGISTER 
VRAM2IN EQU 80H 3 32K VRAM CARD IN 
EROM6IN EQU 40H 3 EXT. ROM 6 (F0000-) IN 
EROM7IN EQuU 20H 3 EXT. ROM 7 (F8000-) IN 
JOY_PORT EQu 201H 3 JOYSTICK CONTROL PORT 
RS232_1_PORT EQU 3F8H 3 RSZ232C-1 PORT 
RS232_2_PORT EQU 2F8H . & RS232C-2 PORTCON BASE BOARD) 
PARAL_PORT EQU 378H 3 PARALLEL PORT 
CRT_CTL EQu 3D4H 3 CRT CONTROLLER CTRL PORT 
VGA_CTL EQu 3DAH 3 VIDEO GATE ARRAY CTRL PORT 
VGA_CTL_E EQU 3DDH 3 VIDEO GATE ARRAY CTRL PORT 

3 FOR EXTENSION MODE 
PAGREG EQU 3DFH 3 CRIZCPU PAGE REGISTER 
PAGREG? EQU 3D9H 3 CRIZCPU PAGE REGISTER 2 






H INIT 
(esackswsocecs 
MINI EQU 2000H ; FUTURE USE 
KKOFF EQU 74256 *KANAKAN |_OFF¢INDICATOR_OFF ; 
INIT_CODE EQU 00 ; BOOT INITIA;L JUMP CODE 
BOOT_LOCN1 EQU O00SH 3 IB AREA 
BOOT_LOCKH2 EQU 0005H 3M AREA 
KKNIWIT EQu OFF20H 3 KANA KANJI CONVERSION INITIALIZE 
DICT_ADOR EQU 3A00H 3 DICTIONARY ADDRESS 
isnt Sensewsunecancacawdecsea KUivecwawsces wns ubereesaamaeeee a 
3 DISKETTE EQUATES 2 
jecseasactoccaanbedeceeree aes erat ee ee ee eae rer 
NEC_CTL EQu OF2H 3 CONTROL PORT FOR THE DISKETTE 
FDC_RESET EQU 80H 3 RESETS THE NEC (FLOPPY DISK 

3 CONTROLLER). 0 RESETS, 

3 1 RELEASES THE RESET 
WD_ENABLE EQu 20H + ENABLES WATCH DOG TIMER IN NEC 
WD_STROBE EQuU 40H 3 STROBES WATCHDOG TIMER 
DRIVE ENABLE EQu 01H 3 SELECTS AND ENABLES DRIVE 

EQu OF4H 3 STATUS REGISTER FOR THE NEC 
BUSY_BIT EQU 20H 3 BIT = 0 AT END OF EXECUTION PHASE 
DIO EQU 40H 3 INDICATES DIRECTION OF TRANSFER 
ROM EQU 80H 3 REQUEST FOR MASTER 
NEC_DATA EQu OFSH 3 DATA PORT FOR THE NEC 
DRV_SUPPORT EQU OFH 3 4 BIT SUPPORT UP TO FOUR DRIVE 
DRV_RANGE EQu O3H 3 RANGE CHECK 0 TO 3 
OFF_DBL_TRK Equ 3FH 3 J PARAMETER : DOUBLE TRACK SUPPORT 
an anactacandiucencencsscueess weueteei oso orcuavecueussocsces 
3 8088 INTERRUPT LOCATIONS z 
Pusweawccccceccescessse eweswer seeecectepeesessuleccesseseaeusses 
INT_10 EQU 10H } VIDEO_I0 
INT_11 EQU 11H 3 EQUIPHENT 
INT_12 EQU 12H 3 MEMORY. SIZE_DETERNINE 
INT_1S EQU 13H 3 DISKETTE 10 
INT_14 EQuU 14H ; 32¢_10 
INT_15 EQU 15H , CASSETTE. 10 
INT_16 EQu 16H 3 KEYBOARD_10 
INT_17 EQU 17H 3 PRINTER_IO 
INT_18 EQU 18H 3 RESIDENT BASIC 
INT_19 EQU 19H 3 BOOT_STRAP 
INTLIA EQU 1AK 3 TIME_OF_DAY 
INT_1B EQU 1BH 3 DUMMY_RETURN 
INT_IC EQU 1CH 3 DUMMY_RETURN 
INT_1D EQU 1DH 3 VIDEO_PARMS 
INTLIE Eau 1EH 3 DISK_BASE 
INT_LF EQU 1FH 3 CRT_CHARH 
INT_80 EQU 30H 3 DIAGNOSTICS 
ABSO SEGMENT AT 0 
ORG 2uq 
NMI_PTR LABEL WORD 
ORG cir) 

INTS_PTR LABEL WORD 
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0008 os C 


0010 
0012 
0015 
0015 


oP’ 


rrr ied 
Preller) 
rey 
res 


0017) °? 


vo nee 
o 
o 
Ad 
> 


° 
oe 
uw 
m 
~~ 
< 


OOSF 2? 


0040 2? 


277? 









ORG 5K4 
INT5S_PTR LABEL WORD 
~ ORG Bx4 
INT_PTR LABEL DWORD 
= 10HM4 
VIDEO_INT LABEL WORD 
0 1CHN4 
INT1C_PTR LABEL WORD 
ORG 1DHNG 
PARM_PTR LABEL DWORD 3 POINTER TO VIDEO PARMS 
ORG 18Hx4 en 
BASIC_PTR LABEL WORD 3 ENTRY POINT FOR CASSETTE BA 
ORG 1EHKG 3 INTERRUPT 1€H 
DISK_POINTER LABEL DWORD 
ORG LFHKG 3 LOCATION OF POINTER 
EXT_PTR LABEL OWORD + POINTER TO EXTENSION 
ORG 44HKG 
CSET_PTR care DWORD + POINTER TO DOT PATTERNS 
38H" 
KEY62_PTR LABEL WORD ; POINTER TO 62 KEY KEYBOARD CODE 
ORG OHMS ‘ 
EXST oes LABEL WORD 3 POINTER TO EXT. SCAN TABLE 
400H 
DATA_AREA LABEL BYTE 3 ABSOLUTE LOCATION OF DATA SEGMENT 
DATA_WORD LABEL WORD 
ORG 7COOH 
BOOT_LOCH LABEL FAR 
ABSO ENDS 
qacsecoscacona sc) a ete eee en ee eee Latevieewecs = 
3 STACK -- USED DURING INITIALIZATION ONLY t 
eS OSE Y BPE ee ie a aie me ceaiel moncaeseeus 
STACK SEGMENT AT 30H 
Du 128 DUPC?) 
TOS LABEL WORD 
STACK ENDS 
jopanekusessacssessacess 
3 ROM BIOS DATA AREAS 
ere ging 
SEGMENT AT 40H 
R232 BASE DW 4 pUPC?) 3 ADDRESSES OF RS232 ADAPTERS 
PRINTER_BASE’ DW 4 DUPC?) 3 ADDRESSES OF PRINTERS 
rs DW 3 INSTALLED HARDWARE 
EBD. - DB 3 COUNT OF KEYBOARD TRANSMIT ERRORS 
RERORY SIZE 3 USABLE MEMORY SIZE IN K BYTES 
; 


TRUE_ MEM 





; REAL MEMORY SIZE IN K BYTES 





KB_FLAG 
; 
SHIFT FLAG EQUATES WITHIN KB_FLAG 
cars STATE EQU 40H 3 CAPS LOCK STATE HAS BEEN TOGGLED 
NUM_STATE EQu 20H 3 NUM LOCK STATE HAS BEEN TOGGLED 
ALT_SHIFT EQU 08H 3 ALTERNATE SHIFT KEY DEPRESSED 
CTL_SHIFT EQU 04H 3 CONTROL SHIFT KEY DEPRESSED 
LEFT_SHIFT EQU 02H 3 LEFT SHIFT KEY DEPRESSED 
RIGHT_SHIFT EQU 01H 3 RIGHT SHIFT KEY DEPRESSED 
KB_FLAG_1 DB 2 3 SECOND BYTE OF KEYBOARD STATUS 
INS_SHIFT EQU 80H 3 INSERT KEY IS DEPRESSED 
CAPS_SHIFT EQU 40H 3 CAPS LOCK KEY IS DEPRESSED 
HUM_SHIFT Qu 20H 3 NUM LOCK KEY IS DEPRESSED 
SCROLL_SHIFT Equ 10H 3 SCROLL LOCK KEY IS DEPRESSED 
HOLD_STATE EQU 08H 3 SUSPEND KEY HAS BEEN TOGGLED 
CLICK_ON EQU 04H 3 INDICATES THAT AUDIO FEEDBACK IS 
. 3 ENABLED 
CLICK_SEQUENCE EQU 02H 5 OCURRNCE OF ALT-CTRL-CAPSLOCK HAS 
F URED 
ALT_INPUT DB ? ; STORAGE FOR ALTERNATE KEYPAD 
3 
BUFFER_HEAD DW 2 + POINTER TO HEAD OF KEYBOARD BUFF 
BUFFER_TAIL DW ? s POINTER TO TAIL OF KEYBOARD BUFF 
KB_BUFFER DW 16 DUP?) ; ROOM FOR 15 ENTRIES 
3 HEAD = TAIL INDICATES THAT THE BUFFER IS EMPTY 
NUM_KEY EQU 69 A 
SCROLL KEY EQU 70 t Sceatr tear eee ee 
Ba 1-fey EQU 56 + ALTERHATE SHIFT KEY SCAN CODE 
EIU AEL £QU 29 3 SCAN FOR CONTROL KEY 
cure eet EqU 58 3 SCAN FOR SHIFT LOCK 
Rion we QU 42 + SCAN FOR LEFT SHIFT 
INS KEY ca 54 + SCAN FOR RIGHT SHIFT 
DEL_ ~KEY EQU . + SCAN FOR INSERT KEY 
Se tectewewentee ee oe aces ween 2 SCAN FOR DELETE KEY 
i DISKETTE DATA AREAS ee ee a 
aS aad a were owwnne 
SEEK_STATUS 0B 2, povocencce Renaseeeoson 
DB . i DRIVE RECALIBRATION STATUS 
a | MeurSseet“ies aliens Segtt ErORE 
OR_STATUS i = 0 
DB 2 ; MOTOR STATUS 
; = DRIVE 0 IS CURRENTLY 
MOTOR_COUNT DB ? + RUNNING 
s TIME OUT COUNTER FOR DRIVE 
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0085 «tr 
0086 «ty 
= O00F 
0087 22 
0088 Pt 
= 0004 


v? 


?? 


BD 2 


3 TURN OFF 





MOTOR_WAIT EQU 37 i 2 SECS OF COUNTS FOR MOTOR 
DISKETTE STATUS DB ? ; RETURN CODE STATUS BYTE 
TIM EQU 80H 3 ATTACHMENT FAILED TO RESPOND 
BAD SEEK EQU 40H + SEEK OPERATION FAILED 
BAD_NEC EQU 20H ; HEC CONTROLLER HAS FAILED 
BADICRE EQU 10H ; BAD CRC ON DISKETTE READ 
DMALBOUNDARY —-EQU 09H } ATTEMPT TO DMA ACROSS 64K 
; BOUNDARY 
BAD_DMA EQU 08H ; DMA OVERRUN ON OPERATION 
RECORD_NOT_FND EQU 04H 3} REQUESTED SECTOR NOT FOUND 
WRITE_PROTECT  EQU O3H } WRITE ATTEMPTED ON WRITE 
; PROTECTED DISK 
BAD_ADDR_MARK —EQU 02H ; ADDRESS MARK KOT FOUND 
BAD_CMD EQU 01H 3 BAD COMMAND GIVEN TO DISKETTE 170 
NECTSTATUS DB 7 puPC?) 3 STATUS BYTES FROM NEC 
SEEK_END EQu 20H 
THRESHOLD EQu 300 + HUMBER OF TIMER-O TICKS TILL 
3 ENABL 
PARMO Equ OAFH ; PARAMETER © IN THE DISK PARM 
3’ TABLE 
PARML EQu 3 5 PARAMETER 1 
PARMS EQU 25 3 PARAMETER 9 
PARMLO Eau ‘ ; PARAMETER 10 
; VIDEO DISPLAY _DATA AREA ‘ 
ERT_MODE DB 2 ; CURRENT CRT MODE 
CRT~COLS Dw ? 3 NUMBER OF COLUMNS ON SCREEN 
CRTTLEN Di ; 3 LENGTH OF REGEN IN BYTES 
CRTISTART DW 2 3 STARTING ADDRESS IN REGEN BUFFER 
Du 8 DUPC?) ; CURSOR_POSN IS DEFINDED LATER 
CURSOR_MODE Dil ? 3} CURRENT CURSOR MODE SETTING 
ACTIVE~PAGE DB ? 3 CURRENT PAGE BEING DISPLAYED 
ADDR_6345 ? ; BASE ADDRESS FOR ACTIVE DISPLAY 
rH ARD 
CRT_MODE_SET DB ? ; CURRENT SETTING OF THE 
3 CRT MODE REGISTER 
CRI_PALLETTE DB ? }_CURRENT PALETTE MASK. SETTING 
ravcoeeney ees. De! men ere moncsenucnlh SERRE FAVEMIE MASK: SE 
; CASSETTE DATA AREA. ‘ 
EDGE_CNT DW 2 ; TIME COUNT AT DATA EDGE 
CRC_REG Du ? 3 CRC REGISTER 
LAST_VAL DB ? + CAST INPUT VALUE 
; TIMER DATA AREA 
TIMER_LOW Du ? ; LOW WORD OF TIMER COUNT 
TIMERTHIGH DW ? 3 HIGH WORD OF TIMER COUNT 
TIMERTOFL DB ? 3 TIMER HAS ROLLED OVER SINCE LAST 
3 READ 
; _SYSTEM DATA AREA : 
BIOS BREAK DB ? ; BIT 7=1 IF BREAK KEY HAS BEEN HIT 
RESEY_FLAG DW : 3 WORD=1234H IF KEYBOARD RESET 
3 UNDERWAY 
fUsssoenSSeae cet ire etre seediesecscns a 
3 EXTRA DISKETTE DATA AREAS : 
TRACKO DB ? 
TRACK1 DB ? 
TRACK2 DB : 
DB a 
a er Doe ter AE ee eas teen, - 
PRINTER AND RS232 TIME-OUT VARIABLES : 
PRINT_TIM_OUT DB 4 DUPC?) 
RS232_TIM_OUT DB 4 puPc?) 





BUFFER_START DW ? 
BUFFER_END Dw ? 
INTR_FLAG DB ? 
pesessenierasawewcccsmces 
3 62 Key KEYBOARD DATA AREA 
CUR_CHAR DB ? 
VAR_DELAY DB ? 
DELAY_RATE EQu OFH 
CUR_FUNC DB ? 
KB_FLAG_2 OB ? 

GE EQU 4 
jeeecssaene eiehe wSoooseas a iewewceca eecies 
3 BIT ASSIGNMETS - FOR KB FLAG 2 


3 FLAG TO INDICATE AN INTERRUPT 
3 HAPPENED 


CURRENT CHARACTER FOR TYPAMATIC 
A a WHEN INITIAL DELAY IS 
OVER 


3 

; 

i 

3 INCREASES INITIAL DELAY 

3 CURRENT FUNCTION 

3 SRD BYTE OF KEYBOARD FLAGS 

3 NUMBER OF POSITIONS TO SHIFT 
3 DISPLAY 
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FN_FLAG EQU 30H 
FN_BREAK~ EQU 40K 
FN_PENDING EQU 20H 
FN_LOCK EQU 10H 
TYPE_OFF EQU 08H 
HALF_RATE EQU 04H 
INTT DELAY EQU ae 
HORE Pos BB 2 3 CURRENT VALUE OF HORIZONTAL 

3 START PARM 
PAGDAT DB ? ; IMAGE OF DATA WRITTEN To PAGREG 
; KANJI DOS WORK AREA 
Bn nncen nnn nnn ene nnn cece ence weno nen eennnnr rane 

ORG OFOK 

GATJI_ADDR DW 2. DUPCO) ; RESERVED FOR KANJI DOS 





i TEGHTROL FEAGS) cc cconeeenenoe 
ORG 
J_EXT_STATUS CARTRIDGE CHARACTERISTICS 
JEQUIP_ FLAG FLAG EXTENSION 
La cae 
3 JAPAN KEYBOARD DATA AREA : 
; KEYBOARD_BUFFER 
KANJT_KEY Eau 107 ; SCAN CODE FOR KANJI KEY 
MUHEN-KEY EQU 108 + SCAN CODE FOR MUHENKAN KEY 
HENKAR_KEY EQU «109 * SCAN CODE FOR HENKAN KEY 
ALPHA_KEY EQU 58 * SCAN CODE FOR ALPHA STATE KEY 
KATAKANA_KEY  EQU. 120 i SCAN CODE FOR KATAKANA STATE KEY 
HIRAGANALKEY QU. 121 | SCAN CODE FOR HIRAGANA STATE KEY 
insane te | a IRAGANA SHIFT ACTIVE 
; HIRAGANA AcTI 
KATAKANALSTATE EQU 02H ; KATAKANA SHIFT ACTIVE 
ZENKAKU_STATE _ EQU 01K ; ZENKAKU MODE 
NOT_. ALPHA_ STATE EQU 06H 3 
tiaras EB Sa" : MetheETALEARE 
; ZENKAKU CHARACTER 
vies | BIT _ASSIGHHETS FOR JKB_FLAG_1 : 
10 ; HANKAKU SHIFT KEY DEPRESSE 
ZENKAKUSHIET Eau oBH i ZENKAKU SHIFT KEY DEPRESSED 
3; HIRAGANA SHIFT KEY DEPRES 
KATAKAMA SHIFT Eau oH ; KATAKANA SHIFT KEY DEPRESSED 
; ALPHA SHIFT KEY DEPRESSED 
ag ttt ASSIGHMETS FOR, JKB__ FLAG_2 
; KANJI SHIFT KEY DEPR 
KNUM_SHIFT EQU 40H ; KNUMBER SHIFT KEY DEPRESSED 
MUHEN_SHIFT ececn 
MUHER SHIFT QU 20H ; MUHEN SHIFT KEY DEPRESSED 
HENKAR SHI EQU 10H ; HEN SHIFT KEY DEPRESSED 
tH eh EQU 04K 3 NMI ACTIVE FLAG 
DICATOR_OFF EQU 02H ; INDICATOR ON/OFF SWITCH 
KANAKAN. OFF EQU 01H ; KANAKAN ON/OFF SWITCH 
|_BUFFER_J DW 25 DUPC?) ; ROOM FOR 24 ENTRIES 
JKB_FLAG DB us 3 4TH BYTE OF KEYB 
? OARD FLAGS 
aoe of 1 EVE or ERS FeAGs 
steer eve os H i § OARD FLAGS 
As + ne ; USED BY BUFFER QUEING (INT 41H) 
i NEW VIDEO DATA AREA Ba ee Re Oy 
REGEN_START Eau QBB00H 7 SEGHENT A ADDRESS OF REGEN 
+ ; AG 
Sreeoe 6S 3 NUMBER OF ACTIVE PAGE 
CRT MOD bb 2 ; CURRENT CRT MODE OF VIDEO PROCESSOR 2 
eR nobE sez BB ? ; IMAGE OF DATA WRITTEN TO PAGREG 2 
het ee a H 3; UST CHAR. CODE/ATTR. AT WRITE AVC IN KANA-KAN 
wie TE A SIME fobgzareg At were we 
TY ? q 
Kt Trait =CHAR DM ? } IST CHAR AT WRITE RRY IN KANA-KAN 
SUPTPCR + ? 3 CURRENT CRT COLUMN SIZE 
AC_PRESENT Le ? + LAST VALUE OF SUPERIMPOSE CONTROL REGISTER 
GCTPRESENT H 3; ALTERNATE CURSOR PRESENT 
ALT_CURSOR_POSN DM 2 + GRAPHICS CURSOR PRESENT 
cru cEAcE Be ? i ALTERNATE CURSOR POSITION 
GE : ; PA 
GCURSOR MODE bat ? } ACTIVE CRT PAGE 
ACURSOR-MODE Dd 2 + GRAPHICS CURSOR MODE 
PALETTE-MASK DB H i ALTERNATE CURSOR MODE 
AT : ; PA 
Vo, STAT Mel ? i KANJI ROM STATUS COrOFFS 1:08) 
CTRL by H i VIDEO GENERATER STATUS (0:VG2, 1:VG1) 
VSTACKL DB 2 3 INTERRUPT ENABLE q 
SS_SAVE DW } + USED LEVEL OF VIDEO. STACK rae 
Sr TSAVE DW ; i $3 SAVE AREA 
POSH Du de pur cst SAVE AREA 


ORG 
BASIC_WORK i 


3 
1 ; 
6 DUP (2); TEMPORARY RESERVED FOR BASIC 
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OSFB 
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O3FC 
O3FD 
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000c 
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227? 
223? 
3297 
233? 
239? 
2279 
2299 
272? 


6600 C 
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ORG 3FBH 

VIO_PROCESS DB ? 3 VIDEO I70 IS PROCESSING 

SUPRESS_PAL DB ? 3 SUPRESS PALETTE SET DURING MODE SET 

DATA ENDS 

Jeoncwseachanewacweccenccsencs winiwacmenmanne’ Maieb aisinete! Su nesacassan= 

; EXTRA DATA AREA 7 

XXDATA SEGMENT AT 50H 

STATUS_BYTE DB ? 

e 

; THE FOLLOWING AREA IS USED ONLY burine DIAGNOSTICS 

Dep -MENU_PAGE OB 3 TO CURRENT PAGE FOR DIAG. MENU 

DCP_ROW_COL OW ; 3 CURRENT ROW/COLUMN COORDINATES 
3 FOR DIAG MENU 

WRAP_FLAG OB 2 3 INTERNALZEXTERNAL 8250 WRAP 
3 INDICATOR 

MFG_TST DB 2 3 INITIALIZATION FLAG 

MEM_TOT OW ? 3 WORD EQUIV. TO HIGHEST SEGMENT IN 
+ MEMORY 

MEM_DONES OW ? 3 CURRENT SEGMENT VALUE FOR 
+ BACKGROUND MEM TEST 

MEM_DONEO OW ? + CURRENT OFFSET VALUE FOR 
+ BACKGROUND MEM TEST 

INTICO DW ? + SAVE AREA FOR INTERRUPT 1C 
3 ROUTINE 

INTICS OW ? 

MENU_UP DB z 3 FLAG TO INDICATE WHETHER MENU IS 
3 ON SCREEN CFF=YES, 0=NO) 

DONE128 DB bs + COUNTER TO KEEP TRACK OF 128 BYTE 
+ BLOCKS TESTED BY BGMEM 

KBDONE OW ? > TOTAL K OF MEMORY THAT HAS BEEN 
3 TESTED BY BACKGROUND MEM TEST 

poco eo e-------------- eee darvacesnat~wcasenwcesaeaes, 

; POST DATA AREA 

10_ ROM_INIT DW ? 3 POINTR TO OPTIONAL I70 ROM INIT 
+ ROUTINE 

TO_ROM_SEG ow 2 + POINTER TO IO ROM SEGMENT 

POST_ERR DB & 3 FLAG TO INDICATE ERROR OCCURRED 
+ DURING POST 

MODEM_BUFFER OB 9 DUPC?) + MODEM RESPONSE BUFFER 


+ (MAX 9 CHARS) 


MFG_RIN 3 POINTER TO MFG. OUTPUT ROUTINE 





sP_ FLAG DW z 
SP_CHAR OB 7 
3 THE FOLLOWING SIX ENTRIES ARE 
+ DATA PERTAINING TO NEW STICK 
NEW_STICK_DATA DW M + RIGHT STICK DELAY 
DW M 3 RIGHT BUTTON A DELAY 
OW ? 3 RIGHT BUTTON B DELAY 
DW ? > LEFT STICK DELAY 
OW 2 > LEFT BUTTON A DELAY 
DW 3 + LEFT BUTTON B DELAY 
OW ? 3 RIGHT STICK LOCATION 
DW ? 3 UNUSED 
Ow + UNUSED 
DW z + LEFT STICK POSTITON 


XXDATA ENDS 





VSTACK SEGMENT AT 1A0H 
oB 1536 DUPC?) 


VSTACK_TOP LABEL WORD 
VSTACK ENDS 
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PAGE ,121 
OSEGN SEGMENT AT 
pooereneoser ts rtm eee e wn neeeen= 
3 DATA SEGMENT FOR INT 17 
presesencernrae wove en eeeoee= = 


3 we PORT ASSIGN KKK 
PR_DATA_PORT EQU 0378H 


PRISTATUS PORT EQU 0379H 
PR_CMD_PORT EQU O37AH 
3 woe STATUS NOOK 

PR_BUSY EQU 80H 
PR_PE EQU 20H 
PR_SELECT EQU 10H 
PR_ERROR QU O8H 
PR_ATTACH EQU 04H 
PR_TIMEOUT £QU 01H 

3 woe PRINTER ID s008 
NO_PRINTER EQU 0 

prvi EQU 1 

PRTZ EQU 2 

5 me PRINT MODE Wan 
EVEN_PR_FLG EQU 1 
LOW_PR_FLG EQU 2 

3 woul CHARACTER SIZE HHH 
WOR EQU 8 

BAI 


EQU 
3 wae FLAG 1 Mae 
TWO_BYTE FLO EQU 80H 


PRT_CHK_FLG EQU 10H 
F_FIG EQU 04H 
X"FLG EQU 02H 
ESC_FLG EQU 01K 
une FLAG 2 MM 
IGH_FLG EQU OH 
x9_FLG EQU 20H 
X6_FLG EQU 10H 
XS_FLG EQU 08H 
X3_FLG EQU 04H 
X%2_FLG EQU 02H 
X1_FLG EQ 01H 
3 OO FLAG 3 Me 
CHG_LPI_FLG EQU 80H 
BAI_FUL_FLG EQU 20H 


“Fut EQU 16H 
3 WM MAX SLICE VALUE NHM 
EQU 1120 











3 WORK AREA INT 17 
beinterID. MSO 
RETURN_CODE DB 1 
cpr DB 1 
LPr DB 1 
cPL Dw 1 
LPP Du 1 
PRINT_MODE DB 1 
CHAR_TYPE Dw 1 
SIZE_ESC DB 1 
SIZE_AK DB 1 
cer Du 1 
csp Du 1 
CSPMAX pw 1 


120H 


» INT S 


www www we www neeese== 


DUP 


DuP 


DUP 


DUP 


DUP 


buP 


DUP 


DuP 


DUP 


pup 


(1) 


(or 4p) 


c°Z") 


cz") 


'2zZ") 


("ZZ") 


cz") 


'z") 


("2") 


q'z") 


(°22") 


C'22") 


(°2zz") 


ewww eeen== 


sPRINTER 170 port 


;PRINTER STATUS 


SPRINTER TYPE-1 
SPRINTER TYPE-II 


CHARACTER LINE MODE 
}GRAPHIC IMAGE LINE MODE 


sNORMAL SIZE 
;DOUBLE SIZE 


sTWO BYTES CHARACTER CODE INDICATION 
}PRINTER-ID CHECK FLAG 

sESC-F PROCESS FLAG 

sESC-X PROCESS FLAG 

yESC PROCESS FLAG 

;COMMAND IGNORE INDICATION FLAG 
3ESC-X9 PROCESS FLAG 

;ESC-X6 PROCESS FLAG 

SESC-X5 PROCESS FLAG 

3ESC-X3 PROCESS FLAG 

yESC-%2 PROCESS FLAG 

3ESC-x1 PROCESS FLAG 


;TEMPORARY LPI CHANGE INDICATION 


PBAIKAKU SLICE FULL INDICATION 
3SLICE FULL INDICATION 


;MAX NUMBER OF SLICES 


> 
tf 
wow enn nen nnn ee---3 


sL:PTRA 2:PTR2 

sPRINTER STATUS 

sCHAR 7 INCH 

sLINE 7 INCH 

sCHAR 7 LINE 

sLINE 7 PAGE 

sOsELSE 1:CHAR 2: IMAGE 
BIsLARGE 2:SMALL 

sO:MORMAL 1:DOUBLE CESC¢(,)) 
3O:NORMAL 1:DOUBLE (AH=075) 
sCURRENT CHAR POSITION 
sCURRENT SLICE POSITION 


sCURRENT SLICE MAXIMUM POSITION 


0014 
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0018 
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6025 
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SA 
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SA 


SA 


SASA 


SA 


SA 


SA 


SASA 


SA 


SA 


SA 


SA 


SASA 


SA 


SA 


SASA 


SPSAVE 
PR_TIMEL 
PR_TIME2 
PR_TIMES 
CPIMASK 
STATUSL7 
SYSTEM_ID 
CODEN 

ML 

n2 

NIN2 
LF_cT 
SP_VALUE 
IM_MOD 
FS_N 
DYTE_ONE 
FLGL 
FLG2 
FLOS 


CSIZE 


GVALUE 


TVALUE 


UPPER 
LOWER 


15 


24 


NNN KK Oner 
“nee 


buP 


DUP 


DUP 


DUP 


DUP 


DUP 


buP 


DuP 


DUP 


DuP 


Dur 


DuP 


("22") 


C*zz") 


crzz") 


C'zz") 


C*zz*) 
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C*zz*) 


cz") 


cz") 


C*zz*) 


c'2z") 


c*z") 


cz") 


C'zz*) 


cz) 


cz) 


cz) 


Cz") 


C°zz*) 


C2") 


c*z") 


C*22") 


3SP SAVE AREA 


sBEEP TIMER 1 


sBEEP TIMER 2 


sWAIT TIMER 


313.5 CPI ADJUST MASK 


30:MOT PROGRESS 1:IN PROGRESS 


sOO:MATIVE 20: EXTENSION 


sTHE NUMBER OF CODE 


sESCAPE PARM W1 


sESCAPE PARM N2 


sESCAPE PARM M1N2 


3LINE FEED COUNT 


sSPACING VALUE 


sTMAGE MODE 


sFONT SLICE NUMBER 


SFIRST BYTE OF TWO-BYTED CODE 


sCHARACTER SIZE WORK 


3 ~ RESERVED - 


3GRID LINE CONTROL VALUE 


VERTICAL SOLID LINE 
VERTICAL DASHED LINE 
UNDERSCORE IMAGE 

VERTICAL SKIP SIZE 

KEY OF HORIZONTAL VALUE 
UPPER VERTICAL SOLID LINE 
HORIZONTAL SKIP SIZE 
SPACE BETWEEN CHARACTERS 
CHAR TYPE CONTROL VALUE 


ee we we we we we we ee we 


3 UPPER IMAGE FLAG 
3 LOWER IMAGE FLAG 
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0304 
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ort 
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FEC 


e476 C 


SA 
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SASA 


SASA 


SASA 


SA 


SASA 


SASA 


SA 


SASA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


4 DuP (*'Z") «5 = RESERVED - 


sHORIZONTAL DOT SIZE 





DUP ("ZZ") SWERTICAL «DOT SIZE 





VSIZE Du 1 
HRATIO DW a pup (°ZZ")  SHORIZONTAL ENLARGE RATIO 
VRATIO DH 1 pup (°2Z") VERTICAL ENLARGE RATIO 
PAGENO DB 1 DUP ('Z") — SACTIVE PAGE 
SPSAVES Dw a pup ('22")  5SP SAVE AREA FOR INT 5 
COLORTB Du 1 DUP ("ZZ") COLOR TABLE OFFSET 
VIDEO_MODE DB 1 pup (°Z") — p>0sGRAPHIC <O:CHARACTER 
SLICE oo] 1 pup ("22") sSLICE SIZE (16 OR 24) 
SHIFT DB 1 pup (°Z") — SSHIFT VALUE 
DB 1s pup (°Z")) 3 > RESERVED - 
DoT DB 24 DUP (°Z") — ;COLOR DOT PATTERN AREA 
DB 8 pup C°Z") 5 > RESERVED - 
‘es ca 
cove_purreR DD 200 DUP *Z*)~—«SCODE SAVE AREA 
ATTR_BUFFER DB 240 pup (°Z") —- BATTRIBUTE SAVE AREA 
FOHT DB 32 pup (°Z") — SFONT IMAGE WORK AREA 
GRID DB 54 pup (°Z") —- 3GRID LINE IMAGE AREA 
DB 254 DuP ('Z") 5 > ~RESERVED - 
CODE_INTS DB 160 pup €°2")—- sCODE AREA FOR INT 5 
ATTR_INTS os 160 DuP C'Z") —- SATTRIBUTE AREA FOR INT 5 


RG OFFSET CODE_BUFFER 
1140 DuP ("2") 


0 2 
IMAGE_BUFFER DB sEVEN DOT SAVE AREA 





XXDATA SEGMENT AT SoH 
STATUS_BYTE DB 6 
XXDATA~ EHD 


Ainents | = 
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3 COPYRIGHT NOTICE 


+ REAL SIZE 


va pa pe oe an od a 
PELE LL bladed 
. ” 
« MODULE 3 * 
" " 
PTL EL LLL LL 
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x MODULE 2 * 
1000000000008 


Bere INT 10 ---2en---- nnn n n+ - ------ee 


VIDEO_IO 


THESE ROUTINES PROVIDE THE CRT INTERFACE 
THE FOLLOWING FUNCTIONS ARE PROVIDED: 


CAH)=0 SET MODE (AL) CONTAINS MODE VALUE 
CALY= 0 40X25 COLOR ANK 
CALY= 1 40X25 COLOR ANK 
CALD= 80X25 COLOR ANK 
CALD= 80X25 COLOR ANK 
GRAPHICS MODES 
CALI= 4 320X200 4 COLOR (40X25 AKK) 
CAL 320X200 4 COLOR (40X25 ANK) 
640X200 2 COLOR (80X25 ANK) 
HOT VALID 
D MODES xmx 
160X200 16 COLOR (20X25 ANK) 
320X200 16 COLOR (40X25 ANK) 
640X200 4 COLOR (80X25 ANK) 
NOT VALID 
NOT VALID 
NOT VALID 
NOT VALID 
NOT VALID 
ENSION MODE uuuw 
40X11 COLOR 
40X11 COLOR 
80X11 COLOR 
80X11 COLOR 
320X200 4 COLOR (20X11 KJ) 
320X200 4 COLOR (20X11 KJ) 
640X200 2 COLOR (40X11 KJ) 
NOT VALID 
160X200 16 COLOR (10x11 KJ) 
320X200 16 COLOR (20x11 KJ) 
640X200 4 COLOR (40X11 KJ) 
640X200 16 COLOR (40X11 KJ) 


woe NOTE IF HIGH ORDER BIT IN AL IS SET, THE REGEN 
BUFFER IS NOT CLEARED. 


CAH)=1 SET CURSOR TYPE 

(CH) = BITS 4-0 = START LINE FOR CURSOR 

MH HARDWARE WILL ALWAYS CAUSE BLINK 

MH SETTING BIT 5 OR 6 WILL CAUSE ERRATIC 
BLINKING OR NO CURSOR AT ALL 

uM IN ARK GRAPHICS MODES, BIT 5 IS FORCED ON TO 
OISABLE THE CURSOR 

(CL) = BITS 4-0 = END LINE FOR CURSOR 


CAH)=2 SET CURSOR POSITION 
CDH,DL) = ROW,COLUMN (0,0) IS UPPER LEFT 
(BY) = PAGE NUMBER (MUST BE 0 FOR GRAPHICS MODES) 


CAHJ=3 READ CURSOR POSITION 


(BH) = PAGE NUMBER (MUST BE 0 FOR GRAPHICS MODES) 
ON EXIT (DH,DL) = ROW,COLUMN OF CURRENT CURSOR 
CCH,CL) = CURSOR MODE CURRENTLY SET 


(AH)=4 READ LIGHT PEN POSITION 
N EXIT: 


wn 


NOw 


mis 


MRM KA 


OOOO eee re epererererel - Leterey 


RRR RAR RAR AR RAR ZAR ARARRA 


Pr rrrrrrrrcr>r>>rr>r> 
bh a nt eh Eh 


eee te te ee eae uty a ee ee tee 


el anl ond aed aed and eal endl andl andl aul and 
FPOKVUAUSUNKOANMOOW> woe 


0 -- LIGHT PEN SWITCH NOT DOWN/NOT TRIGGERED 

1 =~ VALID LIGHT PEN VALUE IN REGISTERS 
CDH,»DL) = ROW,COLUMN OF CHARACTER LP POSN 
CCH) = RASTER LINE (0-199) 

(BX) = PIXEL COLUMN (0-319.639) 


CAHD=5 SELECT ACTIVE DISPLAY PAGE (VALID ONLY FOR ALPHA MODES) 
CAL)=NEW PAGE VALUE (0- 7 FOR MODES 081 , 0-3 FOR MODES 283 
O-15 FOR MODES 10811, 0-7 FOR MODES 12813) 


IF BIT 7 (80H) OF AL=1 
READ/WRITE CRI/CPU PAGE REGISTERS 
CAL) = 80H READ CRIVCPU PAGE REGISTERS 
CAL) = 81H SET CPU PAGE REGISTER 
(BL) = VALUE TO SET 
(CL) = CRT MODE TO SET 
CAL) 2 82H SET CRT PAGE REGISTER 
(BH) = VALUE TO SET 
CAL) = 83H SET BOTH CRT AND CPU PAGE REGISTERS 
(BH) = VALUE TO SET IN CRT PAGE REGISTER 
(BL) = VALUE TO SET IN CPU PAGE REGISTER 
(CL) = CRT MODE TO SET 
IF BIT 7 (80H) OF AL=1 
ALWAYS RETURNS (BH) = CONTENTS OF CRT PAGE REG 
(BL) = CONTENTS OF CPU PAGE REG 
MMM NOTE CRIZCPU PAGE 0-8 MEANS MAIN RAM, AND 
9-A MEANS VIDEO RAM. 


CAH)=6 SCROLL ACTIVE PAGE UP 
CAL) = NUMBER OF LINES, INPUT LINES BLANKED AT 
BOTTOM OF WINDOW, AL = 0 MEANS BLANK 
ENTIRE WINDOW 
CL) = ROW,COLUMN OF UPPER LEFT CORNER OF SCROLL 
DL) = ROW,COLUMN OF LOWER RIGHT CORNER OF SCROLL 
= ATTRIBUTE TO BE USED ON BLANK LINE 


} 

OLL ACTIVE PAGE DOWN 

> 5 NUMBER OF LINES, INPUT LINES BLANKED AT TOP 
OF WINDOW, AL=0 MEANS BLANK ENTIRE WINDOW 


(AN) =7 


0 me we we 
. 0 Oe Be We we Be we WF we we He OF OF OF Oe Ue BF Oe BE OF BF Be we Be we we Be Oe He OF Be Be Ee te we Oe Oe tet 
De we Oe We we we Be we Oe we UF BF we we Be Be Be Fr Be BF Oe Be OF OF OF Be Bs OF Oe Oe 
Wee we we Oe Oe we we we Oe we Be Oe Oe we we Be Be Oe We we He Oe Be Oe Be Be we we Oe Be 


A-13 


Appendix A. 


oe Sees. ~ . wee 
wea cso Se 0 Wo: 0i0 09 8 9:00 'SF' OT OF SoS OORT OF WO OH Sn Se en's Osis We Oe We we We we we We we we Os we Be We Be we Oo Oe Oe Oe be Oe Rr ee Be Oe Oe he Oe Oe be OF Oe OP Oe OF OF TE OF OF OF we te OF OF Or Oe OF Os Oe Oe Ue OF On We Oe Be EF TPE Te we Te we wr Oe OP OP OP NP WY OP ~ 


ROW, COLUMN OF UPPER LEFT CORNER OF SCROLL 
: ROW, COLUMN OF LOWER RIGHT CORNER OF SCROLL 
) ATTRIBUTE TO BE USED ON BLANK LINE 


CHARACTER HANDLING ROUTINES 
CAH) = 8 READ ATTRIBUTE/CHARACTER AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE (VALID FOR ALPHA MODE) 
CALS = CHAR READ 
= ATTRIB OF CHARACTER READ (ALPHA MODES AND 
a alaicinaaei . KANJI GRAPHICS MODE) 


? 


c 
DL? 


wu 


ne 


(CH 
(DK 
(BH 


MM MOTE MH 
IN KANJI GRAPHICS MODE, CODE AND ATTRIBUTE ARE ASSURED 
ONLY WHEN CPU PAGE IS NOT SWITCHED. 


TH ANK orerniee MODE, CHARACTER CODE 81H-9FH,EOH-FCH IS READ 
A 


CAH) = 9 WRITE ATTRIBUTE/CHARACTER AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE (VALID FOR ALPHA MODES ONLY) 
(CX) = COUNT OF CHARACTERS TO WRITE 
CAL) = CHAR TO WRITE 
(BL) = ATTRIBUTE OF CHARACTER C(ALPHA)/COLOR OF 
CHARACTER (GRAPHICS). SEE NOTE ON WRITE 
DOT FOR BIT 7 OF BL = 1. 
CAH) = 10 (OAH) WRITE CHARACTER ONLY AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE (VALID FOR ALPHA MODES ONLY) 
(CX) = COUNT OF CHARACTERS TO WRITE 
CAL) = CHAR TO WRITE 
(BL) = COLOR OF CHAR (GRAPHICS) 


SEE NOTE ON WRITE DOT FOR BIT 7 OF BL = 1. 


FOR READ/WRITE CHARACTER INTERFACE WHILE IN GRAPHICS MODE, 

THE CHARACTERS ARE FORMED FROM A CHARACTER 

GENERATOR IMAGE MAINTAINED IN THE CHARACTER GENERATER ROM. 
FOR WRITE CHARACTER INTERFACE IN GRAPHICS MODE, THE 

REPLICATION FACTOR CONTAINED IN (CX) ON ENTRY WILL 

PRODUCE VALID RESULTS ONLY FOR CHARACTERS 

CONTAINED ON THE SAME ROW. CONTINUATION TO 

SUCCEEDING LINES WILL NOT PRODUCE CORRECTLY. 


GRAPHICS INTERFACE 
CAH) = 11 COBH) SET COLOR PALETTE 
(BH) = PALETTE COLOR ID BEING SET (0-127) 
(BL) = COLOR VALUE TO BE USED WITH THAT COLOR ID 
COLOR ID = 0 SELECTS THE BACKGROUND 
COLOR (0-15) 
COLOR ID = 1 SELECTS THE PALETTE TO BE 
USED: 
2 COLOR MODE: 
0 = WHITE FOR COLOR 1 
1 = BLACK FOR COLOR 1 
4 COLOR MODES: 
0 = GREEN, RED, BROWN FOR 
COLORS 1,2,3 
1 = CYAN, MAGENTA, WHITE FOR 
COLORS 1,2,3 
8 COLOR MODES: 
ALWAYS SETS UP reels AS: 


BLUE FOR COLOR 1 
GREEN FOR COLOR 2 
CYAN FOR COLOR 3 
RED FOR COLOR §% 
MAGENTA FOR COLOR 5 
BROWN FOR COLOR $ 


LIGHT GRAY FOR COLOR 
16 COLOR MODES: 
ALWAYS SETS UP PALETTE AS: 


BLUE FOR COLOR 
GREEN FOR COLOR 
CYAN FOR COLOR 
RED FOR COLOR 
MAGENTA FOR COLOR 
YELLOW FOR COLOR 
LIGHT GRAY FOR COLOR 
DARK GRAY FOR COLOR 


LIGHT BLUE FOR COLOR 
LIGHT GREEN FOR COLOR 
LIGHT CYAN FOR COLOR 
LIGHT RED FOR COLOR 
LIGHT MAGENTA FOR COLOR 
LIGHT YELLOW FOR COLOR 
WHITE FOR COLOR 
IN 40X25 OR 80X25 ALPHA MODES OR 40X11 OR 80X11 
KANJI MODES, THE VALUE SET 
FOR PALETTE COLOR 0 INDICATES THE BORDER 
COLOR TO BE USED. IN GRAPHIC MODES, IT 
INDICATES THE BORDER COLOR AND THE 
BACKGROUND COLOR. 


CAH) = 12 (OCH) WRITE DOT 

(DX) = ROW HUMBER 

(CX) = COLUMN NUMBER 

CAL) = COLOR VALUE 
IF BIT 7 OF AL = 1, THEN THE COLOR VALUE IS 
EXCLUSIVE OR'D WITH THE CURRENT CONTENTS OF THE DOT 


CAH) = 13 (ODH) READ DOT 
(DX) = ROW NUMBER 
(CX) = COLUMH NUMBER 
CAL) RETURNS THE DOT READ 


WPUNK OWN FUNSUNE 


oe ee 


wud 
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ASCII TELETYPE ROUTINE FOR OUTPUT 
CAH) = 14 (OEH) WRITE ere TO ACTIVE PAGE 
CAL) = CHAR TO WRIT 
(BL) = FOREGROUND COLOR IN GRAPHICS MODE 
NOTE -- abe cere IS CONTROLLED BY PREVIOUS 
MODE $ 


CAH) = 15 (OFH) CURRENT VIDEO STATE 
RETURNS THE CURRENT VIDEO STATE 
CAL) = MODE CURRENTLY SET (SEE AH=0 FOR ali 
CAH) = NUMBER OF CHARACTER COLUMNS ON SCREE 

= CURRENT ACTIVE DISPLAY PAGE 


CAH) = 16 CLOH) eae PALETTE REGISTERS 
CAL) = SET PALETTE REGISTER 
atte = PALETTE REGISTER TO SET (OOH - OFH) 
(BH) = VALUE TO SET 
CAL) = 1 SET BORDER ieee 


(BH) = VALUE 
CAL) = 2 a Le PALETTE REGISTERS AND BORDER 
R 


ES:DX POINTS TO A 17 BYTE LIST 
BYTES 0 pone 15 ARE VALUES FOR PALETTE 
GISTERS 0 THRU 1 
“BYTE 16 Ts THE VALUE FOR THE BORDER 
RE 


CAH) = 17 (11H) RESERVED 
CAH) = 18 (12H) RESERVED 


CAH) = 19 (13H) REQUEST FONT PATTERN 
RETURNS THE REQUESTED FONT PATTERN IN USER AREA 
CAL)=0 REQUEST BASE-FONT 
CAL)=80H REQUEST BASE-FONT WITH FULL CHARACTER BOX 


CAL)=60H WRITE FONT PATTERN FROM USER AREA 10 GAIJI RAM 
(CX) = INTERNAL CODE FOR REQUESTED FONT 

OR HANKAKU-FONT (CH)=0 
CES:BX) = DATA AREA FOR FONT 


NORMAL-BOX FULL-BOX 
“16X16 5 32 BYTE 36 BYTE 
“16X8 =; 16 BYTE 18 BYTE 


CAH) = 20 (14H) SUPERIMPOSE SCREEN 
CAL) = 8 SET MODE 


320X200 4 COLOR (40X25 ANK) 
5 320X200 4 COLOR (40x25 ANK) 
6 640X200 2 COLOR (80X25 ANK) 
7 NOT VALID 
8 160X200 16 COLOR (20X25 ANK) 
9 320X200 16 COLOR (40X25 ANK) 
A 640X200 4 COLOR (80X25 ANK) 
B-13 NOT VALID 
24 320X200 ¢ COLOR (20x11 KJ) 
15 320X200 4 COLOR (20x11 KJ) 
H)=16 640X200 2 COLOR (40X11 KJ) 
H)=17 NOT VALID 
H)=18 160X200 16 COLOR (10X11 KJ) 
BH)=19 320X200 16 COLOR (20x11 KJ) 
CBHI=1A 640X200 4 COLOR (40x11 KJ) 


mum NOTE IF HIGH ORDER BIT IN AL IS SET, THE REGEN 
BUFFER IS NOT CLEARED. 


CAL) = 1 SET a raer eae 


xZerrTrrIrTII=X 
wuevuvueuvuenT 


RAAR AR AAR RAR AAA 
bh dl adh -odh dh edad dh cd adh odh “adh adh od 
vy 


(BH)= 

(BH)= : One 
CAL) = ’ aise 6 pecres  douace 
CAL) = 3 SET TRANSPARENT PALETTE 

(BH) = PALETTE REGISTER NUMBER 
CAL) = 4 SET SUPERIMPOSE MODE 

(BH) = 0 PRI (PRIORITY) 

(BH) = 1 XOR 

(BH) = 2 AND 

(BH) = 3 OR 


CS,SS.DS,ES,BP,DI,SI,BX,CX,DX PRESERVED DURING CALL 
AX IS DESTROYED 


3 VIDEO GATE ARRAY REGISTERS 


8 
t 
t 
8 
3 
3 
3 
3 
3 
3 
8 
8 
3 
3 
$ 
; 
3 
3 
3 
rf 
3 
; 
3 
$ 
3 
3 
3 
8 
t 
8 
3 
3 
Pf 
3 
3 
3 
3 
3 
3 
3 
3 
. 
3 
3 
; 
3 
. 
; 
3 
3 
3 
C7 
; 
3 
3 
; 
3 
3 
3 
; 
3 
3 
3 
3 
3 
3 
3 
3 
3 
s 
3 
3 
3 
3 
3 
3 
s 
3 
3 
s 


3 PORT SDA OUTPUT 

3 

3 “ VIDEO PROCESSOR 1 (MAIN RAMI VRAML) ¥& VIDEO PROCESSOR 2 (VIDEO RAM: VRAM2) 
3 

3 REG 0 MODE CONTROL 1 REGISTER MODE pale ht 1 REGISTER 

3 01H +HI BANDWIDTH/-LOW BANDWID 

3 02H *GRAPHICS/-ALPHA *GRAPHICS/CALPHA 

4 04H RESERVED RESERVED 

3 08H +VIDEO ENABLE +VIDEO ENABLE 

3 10K +16 hag GRAPHICS +16 evens GRAPHICS 

3 20H RESERV RESERV 

3 40H RESERVED *KANJI “RODE 

5 80H RESERVED *640X200 16 COLOR GRAPHICS 
3 

3 REG 1 PALETTE MASK SETSTER PALETTE MASK REISTER 

3 O1H PALETTE MASK PALETTE MASK 0 

3 02H PALETTE MASK 1 PALETTE MASK 1 

H 04H PALETTE MASK 2 PALETTE MASK 2 

3 08H PALETTE MASK $ PALETTE MASK 3 

3 10K RESERVED *VRAM-1 ENABLE 
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3 20H RESERVED +VRAM-2_ ENABLE 

; 40H RESERVED +HIGH RESOLUTION ENABLE 

3 80H RESERVED +HIGH/-LOW FREQUENCY DISPLAY 

; REG BORDER COLOR REST StER BORDER COLOR REGISTER 
01H 

; 02H GREEN 

ry 04H RED 

H 08H INTENSITY 

; REG MODE CONTROL 2 REGISTER MODE CONTROL 2 REGISTER 

3 01H RESERVED -- MUST BE ZERO RESERVED -- MUST BE ZERO 

3 02H +EHABLE BLINK +ENABLE BLINK 

3 04H RESERVED -- MUST BE ZERO RESERVED -- MUST BE ZERO 

; 08H #2 COLOR GRAPHICS +2 COLOR GRAPHtC $s 

3 (640X200 2 COLOR ONLY) (640X200 2 COLOR ONLY) 

3 10H RESERVED RESERVED 

3 20H RESERVED RESERVED 

3 40H RESERVED RESERVED 

3 80H RESERVED RESERVED 

3 

3 REG RESET REGISTER RESET REGISTER 

3 01H ; +ASYNCHRONOUS RESET 

, 02H +SYNCHRONOUS RESET 

3 

3 REG TRANSPARENT PALETTE 

3 01H SELECT 0 RESERVED 

; 02H SELECT 1 RESERVED 

3 04H SELECT 2 RESERVED 

3 OSH SELECT 3 RESERVED 

3 

3 REG SUPERIMPOSE CONTROL REGISTER 

3 01K +FORE=V-RAM, BACK=MAIN-RAM RESERVED 

3 02H +TRAHSPARENT ON RESERVED 

3 04H MODE CONTROL 1 RESERVED 

3 08H MODE CONTROL 2 RESERVED 

3 

3 REGS 10 TO 1F PALETTE REGISTERS PALETTE REGISTERS 

3 01H BLUE 

3 02H GREEN 

3 04H RED 

3 08H INTENSITY 

3 

3 VIDEO GATE ARRAY STATUS 

3 PORT 3DA INPUT 

3 O1H +DISPLAY ENABLE 

3 02H +LIGHT PEN TRIGGER SET 

3 04H “LIGHT PEN SWITCH MADE 

3 08H +VERTICAL RETRACE 

3 10H ¢VIDEO DOTS 

3 

{cebecssberneccewasaces Wieeecidteweuebvacasesecsecceuss ccoscne 

CR EQu ODH 3 CARTOGE RETURN 

LF EQU OAH 3 LINE FEED 

BELL EQU 7 } BEEP 

BS equ 8 3 BACK SPACE 

HALFTONE EQU OAOH 3 CODE OF HALF TONE 

HT_FONT EQU OAA5SH AND 7F7FH ; FONT PATTERN OF HALF TONE 

TRUE EQU OFFFFH 

FALSE EQU 0 

GRAPHICS EQu 4 3 GRAPHICS MODE 

KJGRAPH EQU 14H 3 KANJI GRAPHICS MODE 

KJ_MODE EQU 10H 3 KANJI MODE 

VIDEO EQU 10H 3 VIDEO INTERRUPT 

KEYBORD EQU 16H + KEYBORD INTERRUPT 

DEFAULT_MODE EQU KJ_MODE ; DEFAULT MODE 


PORT_B_ALPHA 
EXP64K 


PCMODE1 
VIDEOENB 


PCPALETM 
PCBORD 
INTSEL 
PCMODE2 
PCRESET 
SYNCRST 
PCTRPALT 
PCSUPER 
PCPALET 


FOREVRAM 
TRANSON 


SX2STAT 
VERTRET 
LPENSW 

LPENTRG 


IXMODE1 
IXPALETM 
VRAMIENB 
IXBORD 
IXMODE2 
IXRESET 
IXPALET 


S8KJROM 
S8VRAML 
S8VRAMZ 


EQU 04H PORT_B ALPHA MODE 
EQU 08H 3 64K MAIN RAM EXPANTION CARD INSTALLED 


~ 


EQU OCH 3 PC-J MODE CONTROL 1 

EQU 08H 3 VIDEO ENABLE 

EQU O1ln 3 PC-J PALETTE MASK 

EQU 02H 3 PC-J BORDER COLOR 

EQU O8H 3 INTENSITY BIT FOR PALETTE 
EQu O3H 3 PC-J MODE CONTROL 2 

EQU 04H 3 PC-J RESET 

EQu 02K 3 SYNCHRONOUSE RESET 

EQU OSH 3 PC-J TRANSPARENT PALETTE 
EQU O6H 3 PC-J SUPERIMPOSE REGISTER 
Equ 10H 3 PC-J PALETTE REGISTER 

EQU O1H 3 V-RAM IS FOREGROUND 

EQu 02H 3 TRANSPARENT ON 

EQu QOH 3 PC-J SX-02 STATUS REGISTER 
EQU 08H 3 VERTICAL RETRACE 

EQU 04H 3 ~LIGHT PEN SWITCH MODE 

EQu 02H 3 LIGHT PEN TRIGGER SET 

EQu OOH 3 PC-J MODE CONTROL 1 

EQU OlH 3 PC-J PALETTE MASK 

EQu 10H 3 VRAM 1 ENABLE 03705 
EQU 02H 3 PC-J BORDER COLOR 

EQU OSH 3 PC-J MODE CONTROL 2 

EQU 04H 3 PC-J RESET 

EQu 10H 3 PC-J PALETTE REGISTER 

EQu 07H 3 SX-08 KANJI ROM AND GAIJI RAM 
Equ O9H 3 SX-08 VIDEO RAM (SHARED) 
Equ OAH § SX-08 VIDEO RAM (SEPARATED) 


unnwn 


auenn wn 


id nw 


au 


Ce ee 


S8SXO2A 
S8SX02B 


ON 
MEM 
AKJROM 


AVRAML 
AVRAM2 


A6845 
SXO8BASE 
APOCON 
S2ABASE 
S2BBASE 


KJROM_OFF 


VRAM2_ON 


SXO2A_OFF 
SXO2A_ON 
SX02B_OFF 
SX02B_ON 


KJMASKL 


8CH 3 $X-08 SX-02A PC-J VIDEO 
8DH 3 SX-08 SX-02B JX VIDEO 
80H 3 ENABLE BIT 

20H 3 MEMORY BIT 

O8000H 5s KANJI ROM ADDRESS 
OBS800H +» VIDEO RAM 1 ADDRESS 
OBS00H 3; VIDEO RAM 2 ADDRESS 


MOT 1FH AND 1FH 3 32K MEMORY RANGE SELECT 
NOT 1EH AND 1FH ; 64K MEMORY RANGE SELECT 
NOT 1CH AND 1FH 3 128K MEMORY RANGE SELECT 
NOT 18H AND 1FH > 256K MEMORY RANGE SELECT 


40H 3 WRITE ENABLE BIT 
20H 3 READ ENABLE BIT 
7FH AND 03 FULL DECODE 


O3D4H 3 170 ADDRESS OF 6845 

O1FFH + 170 ADDRESS OF I70 ADDRESS CONTROLLER 

O3D8H 3 170 ADDRESS OF PALETTE AND SUPERIMPOSE CONT. 
O3DAH 3 I70 ADDRESS OF VIDEO PROCESSOR 1 

OSDAH + 170 ADDRESS OF VIDEO PROCESSOR 2 


MEM OR AKJROM/800H 
ON QR KJROM_OFF 
MEM OR AVRAM1/7800H 
ON OR VWRAM1_OFF 
MEM OR AVRAM2/800H 
ON OR VRAM2_OFF 


TURN OFF KANJI ROM 
TURN ON KANJI ROM 
VIDEO RAM 
TURN ON VIDEO RAM 
TURN OFF VIDEO RAM 
TURN OX VIDEO RAM 


ewe we ve Oe we 

~« 

c 

7 

=z 

°o 

nm 

n 
NN ww 


S2ABASE/8 3 TURN OFF SX-02 A 
ON OR $SX02A_OFF 3 TURN ON SX-02 A 
S2BBASE/78 3 TURN OFF SX-02 B 

; 


ON OR SX02B_OFF TURN ON SX-02 B 


O7FH 3_ MASK PATTERN FOR LEFT PART OF 16X16 FONT 


EQU 0 
WHITE _BOX EQU (9874H ™ 2) AND SFFFH OR 8000H ;KJ-ROM SEG.ADDRESS OF WHITE BOX CHA 


JISI_L 
JISITH 


ROSS_L_LOW 
ROSS_L_HIGH 
ROSS_U_LOW 
ROSS_U_HIGH 


RROSS_L_LOW 
RROSS_L_HIGH 
RROSS_U_LOW 
RROSS_U_HIGH 


S_RAM 
EXT_CHAR_L 
EXT_CHAR_H 


ZENBIT 
ZEN2BIT 
HAN_MASK 
ZEN2_MASK 
ZEROCOL 


XOR_BIT 
KKN_OFF 
KKNI_OFF 
KKNI_ON 
INDICATOR_ON 
KKN_TERM 


DISABLE_NMI 
ENABLE_RMI 
VRAM2_PAGE 
PCB_MASK 


ROW_KJ 
ROW_ANK 


CBOX_ROW 


BLOCK_CURSOR 
UNDER_CURSOR 


VIO_LOCAL 
VACT_PG 
VCRS_POS 


VKK_FLAG 
VKJ_STAT 


VGC_ON 
VVI0_ON 


EQU 
EQU 


08140H 


LOW BOUND OF JIS 1 CHARACTER 
09872H+1 


, 
3 HIGH BOUND OF JIS 1 CHARACTER 
+ 1 FOR SPECIAL CHARACTER FOR KANA-KANJI CONV. 
8440H 3 LOW BOUND OF ROSSIAN LOWER CHARACTER 
8460H s HIGH BOUND OF ROSSIAN LOWER CHARACTER 
8470K $s LOW BOUND OF ROSSIAN UPPER CHARACTER 
84691H 3 HIGH BOUND OF ROSSIAN UPPER CHARACTER 


8100H 3 LOW BOUND OF ROSSIAN LOWER REGEN CODE 
8120H + HIGH BOUND OF ROSSIAN LOWER REGEN CODE 
8200H 3 LOW BOUND OF ROSSIAN UPPER REGEN CODE 
8221n 3 HIGH BOUND OF ROSSIAN UPPER REGEN CODE 


2048 SIZE OF STATIC RAM (FOR eon CHARACTER) 
OFO40H 3; LOW BOUND OF EXTERNAL CHARACTE 
EXT_CHAR_L+#S_RAM/32-2 ; HIGH BOUND OF EXTERNAL CHARACTER 


80H 3s ZENKAKU BIT 

08H 3 ZENKAKU 2ND BIT 

CNOT ZENBIT) AND (NOT ZEN2BIT? AND OFFH ; HANKAKU MASK 
seer OR ZEN2BIT MASK OF 2ND i ZENKAKU 
ZERO COLUMN FLAG USED IN W_AIST_c 

BIT 8 OF 1ST BYTE OF 2 BYTE cOBE” ts ALWAYS 1 


~~ 


wee 


80H 3 X*OR WRITE IN GRAPHICS WRITE 
0702H 3 KANA~KAN DISABLE 

0703H 3 KANA-KAN & INDICATOR DISABLE 
0700H 3 KANA-KAN & INDICATOR ENABLE 

0701H 3’ INDICATOR ENABLE 

853FH 3 KANA-KAN TERMINATE 

10H 3 DISABLE NMI 

80H 3 ENABLE NMI 

8 $s PAGE NUMBER OF V-RAM 2 


O7FFH 3 MASK FOR PESUDO CODE BUFFER POINTER 


Ai-i-1 5 ROW NUMBER OF KJ MODE 
25 - 1 5 ROW NUMBER OF AN MODE 


18 3 ROW NUMBER OF KANJI CHARACTER BOX 


CBOX 3 BLOCK CURSOR 
COBOR. ROW=2)¥2564(CBOX_ ROW-2) 3 UNDER CURSOR 


3 STACK ae o are FOR ee neresn PARAMETER 


FLBASE + 0 s OFFSET 

FLBASE + 2 + FRAME OFFSET OF SI 

FLBASE + 4 > FRAME OFFSET OF BX 

FLBASE + 6 3 FRAME OFFSET OF CX 

FLBASE + 8 3 FRAME OFFSET OF DX 

F_BASE +10 3 FRAME OFFSET OF DS 

FLBASE #12 + FRAME OFFSET OF ES 

10 3 LOCAL AREA SIZE OF VIDEO 10 
) 3 ACTIVE PAGE 

2 3 CURRENT CURSOR POSITION 

4 3 KANA KANJI CONV. FLAG 

5 3 KJ~ROM STATUS (O:OFF, 1:0N) 
6 3 VIDEO GENETATER STATUS(O:VG2, 1:VG1) 
7 3 GRAPHICS CURSOR STATUS 

8 s VIDEO I70 STATUS 
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SuP_LOCAL EQu 6 3 LOCAL AREA SIZE OF SCROLL UP 
= 0006 $UC_MODE EQU 0 3 CRT MODE 
= 0000 SU_ULR EQU 1 + ROW OF UPPER LEFT 
= 0001 SU_TSR EQu 2 3 TOP OF SOURCE ROW 
= 0002 SU_ES1 Equ 4 3 SEGMENT ADDRESS OF VRAM-1 
= 000 = 
SDN_LOCAL EQU 6 + LOCAL AREA SIZE OF SCROLL DOWN 
= 0006 5DC_MODE EQU 0 + CRT MODE 
= 0000 $D_URR EQU 1 3 ROW OF LOWER RIGHT 
= 0001 $D_BSR EQU 2 + BOTTOM OF SOURCE ROW 
S ee $D_ES1 EQU 4 + SEGMENT ADDRESS OF VRAM-1 
= 1goKe RAC_LOCAL Equ 16 + LOCAL AREA SIZE OF READ AC CURRENT 
W_LOCAL EQu “ 3 LOCAL AREA SIZE OF WRITE AC/C CURRENT 
z soze GH_LOCAL Equ 18 3 LOCAL AREA SIZE OF GRAPHICS WRITE 
3 site SAC_LOCAL EQU 28 + LOCAL AREA SIZE OF SET ALT CURSOR 
Et WGPOSN EQu 0 3 GRAPHICS WRITE POSITION 
= 9002 WPOSN EQu 2 + WRITE POSITION 
= 0004 W2CODE Equ 4 + 2ND BYTE CODE 
= 9005 W2ATTR EQU 5 + 2ND BYTE ATTRIBUTE 
= 0006 WR_SEG EQu 6 3 REGEN SEGMENT 
= 0008 WGHODE EQU 8 3 GRAPHICS MODE FLAG 
= 0009 WC_MODE EQu 9 3 CRT_MODE 
= 000A WFONT Equ 10 3 FONT PATTERN 
= 000F KJ_OFF EQu OOFH 3 MASK FOR CRT MODE 
= 9020 CURSOR_DISABLE EQU 20K 3 CURSOR DISABLE BIT 
= SFFF GCURSOR_MASK Equ SFFFH 3 MASK FOR GRAPHICS CURSOR 
= 0001 VG1_ON EQU 1 3 VIDEO GENERATER 1 IS ON 
= 9000 VG2_0N EQU 0 3 VIDEO GENERATER 2 IS ON 
= 9002 VG12_0N EQU 2 3 VIDEO GENERATER 1 AND 2 ARE ON 
= 0001 PS_PROCESS EQu 1 3 PRINT SCREEN IS PROCESSING 
= 8000 REGEN_SIZE Equ O8000H + SIZE OF REGEN 
= 00a0 P_CODE_START EQU OOOAOH 3 SEGMNT ADDRESS OF PESUDO REGEN 
= 0800 PLCODE_SIZE EQu 2048 + SIZE OF PESUDO REGEN 
Joeeene--------- wonee- eronn---- VIDEO RAM ------ ermeee nce nen nn------ - 
0000 VIDEO_RAM SEGMENT AT REGEH_STARY 
cone seco CS DB REGEN_SIZE DUPC?) 
ny ay 
8000 VIDEO_RAM ENDS 
peornr rer nore cen n------- ~----- PESUDO CODE BUFFER ---~--------------- 
0000 P_CODE_BUFFER SEGMENT AT P_CODE_START 
0000 e8co C DB P_CODE_SIZE DuP(?) 
9 
] 
0800 P_CODE_BUFFER ENDS 
goooee eee neem nnn n nee e------- ~~ INDETERMINATE DS, ES ------------ coon 
6000 INDETERMINATE SEGMENT 
0000 INDETERMINATE ENDS 
ASSUME CS:CODE, DS: INDETERMINATE, ES: INDETERMINATE 
0000 VF_TABLE LABEL WORD + TABLE OF ROUTINES WITHIN VIDEO 170 
0000 o2zD1 R Did OFFSET SET_MODE s AH = 0 
0002 OSCC R DW OFFSET SET_CTYPE + AH = 2 
0006 0689 R DW OFFSET SET_CPOS + AH = 2 
0006 = O6EE R DW OFFSET READ_CURSOR 3 AH = 3 
0008 O716 R DW OFFSET READ_LPEX 3s AH = 6 
000A O7FF R DW OFFSET ACT_DISP_PAGE SAH = 5 
000C O97B R DW OFFSET SCROLL_UP 3 AH = 6 
OOOE oB70R Du OFFSET SCROLL_DOWK 3 AH = 7 
0010 oDaD R DW OFFSET READ_AC_CURRENT 3; AH = 8 
0012 =OF32 R DW OFFSET WRITE_AC_CURRENT 3 AH = 9 
0016 OFS6 R Did OFFSET WRITE_C_CURRENT 3 AH = A 
0016 16C1 R DW OFFSET SET_COLOR 3 AH = B 
0018 1760 R DW OFFSET WRITE_DOT 3 AH = C 
COLA 185B R Du OFFSET READ_DOT 3 AH = D 
bole 18B0 R Did OFFSET WRITE_TTY sp ARE E 
OO1E 19CA R Did OFFSET VIDEO_STATE + AH = F 
tose, eee ® DW OFFSET SET_PALLETTE i AH = 10 
tee oes DW OFFSET NO_OPERATION + AH = 11 
Seee taza f DW OFFSET NO_OPERATION b AH = 12 
0028 icee e DW OFFSET FONT_PATTERN + AH = 13 
R DW OFFSET SUPERIMPOSE 3 AH = 14 
002A 1E2A R 2 
0 Dw OFFSET SET_ALT_CTYPE 3 AH = 81 
sere teee © DW OFFSET SET-ALT~CPOS 3; AH = 82 
0030 1ns2R Dk OFFSET READ_ALT_CURSOR 3 AH = 83 
0032 1052 R DW OFFSET NO_OPERATION 3 AH = 84 
0034 1A52 R DW OFFSET NO OPERATION 3 AH = 85 
6036 1a52R DW OFFSET NO_OPERATION 3 AH = 86 
0038 oDsD R DW OFFSET NO_OPERATION 3 AH = 87 
OOSA 1EEB R OW OFFSET READ_AC_CURRENT 3 AH = 88 
0o3C 1EFDR DW OFFSET K_WRITE_AC_CURRENT + AH = 89 
OOSE ias2R Dw OFFSET K_WRITE_C_CURRENT 3 AH = BA 
0060 1452 2 Ow OFFSET WO_OPERATION 3 AH = 8B 
0062 1452 R ow OFFSET HO_OPERATION 3 AH = BC 
0066 «IFOF R Du OFFSET WO_OPERATION + AH = 8D 
Dw OFFSET K_WRITE_TTY 3 AH = 8E 
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= 00466 


0046 
0046 
0047 


0048 
0049 


Q04A 


FB 
Fc 


55 
1E 


13.) 


VFT_END EQU 
VIDEO_IO 
sT 
CLD 
PUSH 
PUSH 
0000 E CALL 
1BE4 R CALL 
06 0357 R FF TEST 
12 INZ 
D5 MoV 
16 0358 R MOV 
26 OS5SA R MOV 
---- R MoV 
z nay 
0600 R 
VIOO: 
06 0357 R INC 
1BEC R CALL 
EC OA SUB 
Ec MOV 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
46 04 00 MOV 
0353 R MOV 
46 05 MOV 
0354 R MOV 
46 06 MOV 
OSFB R MOV 
46 08 MOV 
OE O3FB R FF OR 
POP 
Fc 81 CMP 
3F JB 
Ec 6c Sus 
FC 18 CMP 
33 JB 
FC 22 CMP 
2€ JE 
PUSH 
PUSH 
FF XOR 
1E 0062 8 MoV 
—3 SAL 
SE 00 MOV 
OS4A R MOV 
87 O35C R XCHG 
46 02 MOV 
0340 MOV 
06 OSE R XCHG 
0340 R MoV 
26 0349 R mov 
66 07 MoV 
46 04 FF MOV 
PoP 
POP 
VI: 
SE 0062 R MoV 
VI2: 
c4 MoV 
e&4 xOR 
£0 SAL 
FO mov 
0046 CMP 
03s JB 


6-VF_TABLE 
PROC NEAR 

3 INTERRUPTS BACK ON 

3 SET DIRECTION FORWARD 
BP 3 SAVE BP 
DS 3 SAVE DS 
pps 3 POINT BIOS DATA AREA 

ASSUME DS:DATA 

DISABLE_INT + DISABLE INTERRUPT 
VSTACKL, TRUE 3 VSTACK IS ALREADY USED ? 
VIo0 3 YES 
BP,SS 3 SAVE STACK SEGMENT 
SS_SAVE,SS 3 
SP_SAVE, SP 3 SAVE STACK POINTER 
BP -VSTACK SETUP NEW STACK SEGMENT 


wee 


S,BP 

SP.OFFSET VSTACK_TOP 
BYTE PTR VSTACKL 
ENABLE_INT 
SP,VIO_LOCAL 

B P 


SETUP NEW STACK POINTER 
INCREMENT VIDEO STACK LEVEL 
ENABLE INTERRUPT 


ALLOCATE LOCAL WORK AREA 
ASSIGN BP AS FRAME POINTER 


a 


woes 


o 
vy 
~ 


SAVE SEGMENT REGISTERS 


3 SAVE AX VALUE 


AX 
BYTE PTR CBP+VKK_FLAG],FALSE 3; 
AL, KJROM_STAT 


CLEAR KANA KANJI FUNCTION FLAG 


CBP¢VKJ_STAT).AL ; SET CURRENT KJROM STATUS 
AL,VG_STAT 3 

UBP4VVG_STATJ,AL 3 SET CURRENT VG STATUS 
AL.VIO_PROCESS 3 

(BP+VVIO ON),AL 3 SET CURRENT VIDEO I70 STATUS 
yee PROCESS, TRUE + SET VIDEO I70 PROCESSING FLAG 


AH,81H FUNCTION FOR KANA-KANJI CONVERSION ? 
vI2 NO 


wee 


~~~ SET DATA FOR KANA-KANJI CONVERSION 
ADJUST FOR JUMP TABLE 


ALTERNATE CURSOR FUNCTION ? 
YES, SKIP WORK SWAP 


WRITE TTY FUNCTION ? 


AH, 81H-14H-1 
AH,84H - (81H-14H-1) 
VIl 


AH,8EH ~ (81H-14H-1) 
v1 


wewe 


YES, SKIP WORK SWAP 

3 VIDEO FUNCTION IS WRITE AC/C 
ax 3 SAVE AX 
BX 3 SAVE BX 
BH ; 
BL ACTIVE PAGE 3 SET CURRENT ACTIVE PAGE TO BX 
Bx 3 TIMES 2 FOR WORD OFFSET 
CBP+VACT —PG),BX 3 SAVE ACTIVE PAGE * 2 


AX, ALT_CURSOR_POSN 
AX, (BX#OFFSET CURSOR POSH] 
C(BP+VCRS_POS1],AX i 


AX, WLIST_CHAR 3 GET 1ST BYTE CHARACTER AT WRITE A/C 
AX, K-1ST_CHAR 3 SWAP 1ST BYTE CHAR FOR KANA-KAN 
WLISY_CHAR, AX 3 


SET ail al POSITION TO AX 
SWAP CURSOR POSITION 
SAVE IT 


AH, GC_PRESENT 
(BPeVGC_ON).AH 


BYTE PTR CBP*VKK_FLAG),TRUE ; 


3 SET GRAPHICS CURSOR FLAG 
3 


SET KANA-KANJI FUNCTION FLAG 


BX 3 RESTORE BX 

Ax 3 RESTORE AX 

BH, ACTIVE_PAGE + SET ACTIVE PAGE TO BH 
AL, AH 3 GET INTO LOW BYTE 

AH. AH + ZERO TO HIGH BYTE 

AX,1 3 2 FOR TABLE LOOKUP 
S1,AX + PUT INTO SI FOR BRANCH 


TEST FOR WITHIN RANGE 
3 BRANCH AROUND BRANCH 


AX, VFT_LEND 
VIS 
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COEB 58 PoP ax 3 THROW AWAY THE PARAMETER 
OOEC EB 44 JMP SHORT VIDEO_RETURN 3 DO NOTHING IF NOT IN RANGE 
OOEE VI3: s---_DETERMINE SEGMENT ADDRESS OF REGEN 
OOEE 8A 26 0049 R Mov AH, CRT_MODE 3 GET CURRENT CRT MODE 
OOFZ 80 E4 OF AND AH, KJ_OFF 3 MASK KJ-BIY OFF 
OOFS 80 FC 09 CMP AH, 9 3 IN MODE USING 32K REGEN ? 
OOFS8 B&8 B800 MOV AX, REGEN_START + SEGMENT FOR COLOR CARD 
QOFB 72 0C JB VIS + NO, JUMP 
OOFD 80 SE O34C R 08 cmp CPU_PAGE, VRAM2_PAGE 3 IN MODE USING V-RAMI ? 
0102 73 1B JAE vVI4 3 NO 
t---~ SETUP SEGMENT VALUE Of 3et BE REGEN ACCORDING TO MEMORY SIZE 
0104 E8 1D95 R CALL ci ae + GET DIRECT SEGHENT OF MAIN RAM 
0107 EB 16 JMP SHORT 
0109 VI3Si: 
0109 80 FC 04 cmp AH, GRAPHICS 3 GRAPHICS MODE ? 
o10c «672 11 JB VI4 3 NO 
O1LOE 80 SE O34C R 08 CMP CPU_PAGE, VRAM2_PAGE 3 IN MODE USING V-RAN2 ? 
0113 72 0A JB VI4 3 HO 
0115 Fe 06 O34C R OL TEST CPU_PAGE,1 3 PAGE 9 ORB? 
OL11A 74 03 JZ VI4 3 NO 
O11C 65 0400 AbD AX, 400H 3 SET BIAS FOR ACCESS HIGH 16K OF REGEN 
OllF VIG: 
O11lF 8E CO MoV ES,AX 


3 a UP TO POINT AT VIDEO RAM AREA 
ASSUME ES: VIDEO_R¢M 


0121 POP Ax + RECOVER VALUE 
O122 8A 26 0049 R mov AH, CRT_MODE 3 GET CURRENT MODE INTO AH 
0126 «80 E4 OF AND AH, KJ_OFF 3 MASK KANJI MODE FLAG OFF 
0129 BF 0132 R MOV DI,OFFSET VIDEO_RETURN ; GET RETURN ADDRESS 
o12c «(57 PUSH DI 3 STACK IT 
Q12D 2E: FF AS 0000 JMP WORD PTR CS:(SI*OFFSET VF_TABLEJ; JUMP TO VIDEO ROUTINE 
ASSUME DS:INDETERMINATE, ES: INDETERMINATE 
0132 VIDEO_RETURN: 
0132 Fs 46 05 FF EST BYTE PTR CBP+VKJ_STAT), TRUE; KJ-ROM ENABLED AT ENTERANCE ? 
0136 74 03 JZ VIS + NO 
e138 E8 1B88 R vis CALL ENABLE_KJROM 3 ENABLE KJ-ROM 
: 
0138 F6 466 06 FF TEST BYTE PTR [BP*VVG_STAT], TRUE; VG-1 ENABLED AT ENTERANCE ? 
OlSF 74 0C JZ vI6 3 NO 
0141 E8 1DBO R CALL ENABLE_VG1 3 ENABLE VIDEO GENERATER 1 
0144 80 7E 06 62 cmP BYTE PTR CBP+VVG_STATJ,VG12_ON ; VG-182 ENABLED ? 
0148 #75 03 JNE vI6 3 WO 
016A E8 1DFC R CALL ENABLE_VG12 + ENABLE VIDEO GENERATER 182 
014D VI6: 


014D E8 0000 E CALL DDS 3 POINT BIOS DATA SEGMENT 


ASSUME DS:DATA 
0150 F6 46 04 FF TEST BYTE PTR CBP*VKK_FLAG),TRUE; FUNCTION OF KANA-KANJI CONVERSION? 
0154 74 1D JZ vI7 + NO 


g--~-- RESTORE THE SAVED PARAMETER 
0156 8B GE 02 : Mov CX, (BP#VCRS_ poe + GET SAVED CURSOR POSITION 
0159 8B SE 00 mov BX, (BP+VACT_PG) 3 GET ACTIVE PAGE 
O15SC 89 BF O35C R MOV CBX¢OFFSET ZURSOR -POSNJ,CX ; RESTORE IT 
0160 8B OE 0340 R MOV W_1ST_CHAR 3 GET 1ST BYTE CHAR IN KANA-KAN 
0164 «87 OE O33E R XCHG ex, K_IST_CHAR 3 SWAP CX AND K_1ST_CHAR 
0168 89 CE 0340 R MoV WwW isT_ CHAR, CX 3 SET W_IST_CHAR 
O16C BA TE 07 MoV BH, (BP+VGC_ON) 3 
Bios 88 SE 0349 ® MoV GC_PRESENT, BH 3 RESTORE GRAPHICS CURSOR FLAG 
VI7: 
Ol173) 8A SE 08 mov BL, CBP+VVIO_ON) + RESTORE VIDEO 170 PROCESSING FLAG 
0176 8° 1E OSFB R MoV VIO_PROCESS, BL 3 
O17JA SF PoP DI 
017B OSE POP SI 
O17C SB POP BX 
017d 59 POP cx 
443 a PoP ox 
9180 07 ts Be 


uv 
o 
7. 
m 
uw 


RECOVER SEGMENTS 
DEALLOCATE LOCAL WORK AREA 
DISABLE INTERRUPT 


0181 83 ce OA 

0186 EB BES R 

0187 FE OE 0357 R 
75 OA 


aDD SP,VIO_LOCAL 
CALL DISABLE_INT 


~~ 


+t4 DEC BYTE PTR VSTACKL 3; DECREMENT STACK LEVEL = 0? 
JNZ vI01 + NO 

0180 88 2E 0358 R Mov BP.SS_SAVE i RESTORE OLD STACK SEGMENT 

0133 35 2 03 GOV SS. BP i 

SAR ve. SP.SP_SAVE j RESTORE OLD STACK POINTER 
2 

v3? ea IEC R CALL ENABLE_INT ; ENABLE INTERRUPT 

019A 

0198 $0 PoP Ds ; RESTORE DS 
POP BP 3 RESTORE BP 

019 

oe BE TRET 3 ALL DONE 
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019D 


o19D 


019D 


38 
19 
00 


= 0010 


O1AD 


01BD 


o1cD 


0100 
01DD 


coun Of8u on~ny 
oONe Of0 Cor 


2F 
00 


5c 
60 
2€ 
00 
58 
00 


2F 
00 
5c 
00 


50 
4 


1F 
06 


1lF 
06 


7F 
26 


3F 
26 


06 
07 


06 
07 


06 
07 


07 


11 


OA 
11 


50 28 28 
28 50 50 


i TT 

i SET_MODE INT 10H, AH = 0 

i THYS ROUTINE INITIALIZES, THE, ATTACHMENT 10 

; INPUT AL = MODE SELECTED 

; OUTPUT NONE 

; VOLATILE AX, BX,CX,DX,SI,DI,ES 

mae “ASSUME CS!CODE, DS:DATA, ES:VIDEO_RAM 

proeeene wecrenn- eae eeennn= “--~- TABLES FOR USE IN SETTING OF CRT MODE 
VIDEO_PARMS LABEL BYTE 37- INIT_TABLE FOR 6845 


gree -B on = 1--- 22-2 $$$ 4-5 ---6---7---8--- 9--10-- 11-12. 15 
DB 38H,28H,2FH,O6GH.1FH, 6H,19H,1CH, 2H, 7H, 6H. 7H,0,0,0,0 3 SETUP FOR $0x2S 


VPARML EQU $-VIDEO_PARMS 
DB 71H,50H,5CH,OCH,1FH, 6H19H,1CH, 2H, 7H, 6H» 7H,0,0,0,0 3 80X25 


DB 38H,28H,2EH.06H,7FH, 6H,64H,70H, 2H, 1H,26H, 7H,0,0,0,0 3 GRAPHICS 
DB 71H,50H,5BH,0CH,3FH, 6H,S2H,38H, 2H, 3H,26H, 7H.@.0,8,0 ; GRAPHICS 32K REGEN 


VIDEO_PARMS_RAS LABEL BYTE 
DB 38H,28H,2FH,06H,0DH,OAH,OBH,OCH, 2H.11H,10H,11H,0,0,0,0 5 40x11 


DB 71H,50H,5CH,0CH.ODH,OAH,OBH,OCH, 2H,11H,10H,11H,0,0,0,0 3 80x11 


REGEN_L LABEL WORD s-== a OF geek oe 
2 MODE (BW 


DW 048 3 MO 40X25 

DW 2048 3 MODE 1 40x25 COLOR 

DW 4096 3 MODE 2 80X25 (BW) 

DW 4096 3 MODE 3 80X25 COLOR 

DW 16384 3 MODE 4 320X200 4 COLOR 

DW 16384 + MODE 5 320X200 4 (SHADE) 

DW 16384 3 MODE 6 640X200 2 (SHADE) 

OW 8 3 MODE 7 INVALID 

OW 16384 3 MODE 8 160X200 16 COLOR 

DW 32768 3 MODE 9 320X200 16 COLOR 

DW 32768 3 MODE A 640X200 4 COLOR 

OW t) 3 MODE B INVALID 

OW Q 3 MODE C INVALID 

DW 0 + MODE D INVALID 

DR Q 3 MODE E INVALID 

DW 0 + MODE F INVALID 

DW 1024 3 MODE 10 40X11 (BW) 

OW 1024 + MODE 11 40X11 COLOR 

DW 2048 3 MODE 12 80X11 (BW) 

OW 2048 s MODE 13 80X11 COLOR 
16384 3 MODE 14 320X200 4 COLOR 

OW 16384 3 MODE 15 320X200 4 (SHADE) 

OW 16384 3 MODE 16 640X200 2 (SHADE) 

Dw 0 3 MODE 17 INVALID 

DW 16384 3 MODE 18 160X200 16 COLOR 

OW 32768 3 MODE 19 320X200 16 COLOR 

DW 32768 3 MODE 1A 640X200 4 COLOR 

OW 32768 3 MODE 1B 640X200 16 COLOR 

cou LABEL BYTE s---_ COLUMNS 


f RDDE=~< Ore d==29~ $e -4--5-=6--7- Bape eke Bee C==De=E--F 
3 MODE--10-11-12-13-14-15-16-17-18-19-14 
DB —--4.0,40,80,80,40,40,80, 0,20,40,80,80; 0, 0, 0, 0 


GAPARM LABEL BYTE so-- TABLE OF GATE ARRAY PARAMETERS FOR MODE SETTING 


OB OCH, 2FH.0,2 goooon- SET UP FOR 40X25 CBD MODE @ 
GAPARML EQu $-GAPARM 
DB O8H,2FH,0,2 p2S =e H= SET UP FOR 40X25 COLOR MODE 1 
OB ODH.2FH,0,2 grocom- SET UP FOR 80X25 CBW) MODE 2 
DB O9H,2FH,0,2 goo-o-- SET UP FOR 80X25 COLOR MODE 3 
D8 GAH,23H,0,0 SET UP FOR 320X200 4 COLOR MODE 4 
OB OEH.23H,0,0 SET UP FOR 320X200 © (SHADE) MODE 5 
OB QEH,21H,0,8 SET UP FOR 640X200 2 (SHADE) MODE 6 
DB Q0H,00H.0,0 INVALID MODE 7 
DB 1AH,2FH,0,0 SET UP FOR 160X200 16 COLOR MODE 8 
DB 1BH,2FH,0,0 SET UP FOR 320X200 16 COLOR MODE 9 
DB OBH,23H,0,0 SET UP FOR 640X200 4 COLOR MODE A 
OB O0OH,00H,0,0 INVALID MODE B 
OB OOH,00H,0,0 INVALID MODE C 
DB QOH,00H,0,0 INVALID MODE D 
OB 00H,00H,0,0 INVALID MODE E 
DB OOH, 00H,0,0 INVALID MODE F 
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0281 4C 27 00 00 
0285 48 27 00 00 
0289 4D 27 00 00 
0280 49 27 00 00 
0291 OA 23 00 00 
0295 OE 23 00 00 
0299 0€ 21 00 08 
029D 00 00 00 00 
O2AL 1A 2F 00 00 
0245 18 2F 00 00 
02A9 OB 23 00 00 
O2aD 8B 23 00 00 


ozB1 

02B1 00 OF 00 00 

= 0006 

02B5 OF 00 00 00 

0289 

0289 00 02 04 06 
00 03 05 OF 


0280 
o2BD 


62C1 
06 07 04 05 


o2d1 


0201 
0205 
O2DA 


02DD 
O2E2 72 11 


O2ES 50 

O2ES BS 0702 

O2E8 CD 16 
B& 853F 

O2ED CD 16 

O2EF BS 0700 

O2F2 CD 16 

O2FS 58 

O2FS 

O2F5 50 

O2F6 24 7F 


O2F8 3$C 07 
O2FA 74 10 
O2FC 3C 17 
O2FE 746 OC 


0300 3C OA 
0302 76 OA 
0304 3C OF 
0306 76 04 


0308 SC 1B 
O30A 76 02 
O30C 

O30C BO 10 
OSCE 

OSOE ES 0940 R 

BA 0304 

8A EO 


0311 
0314 
0316 A2 0049 8 
0319 AZ O33B R 
O31C 89 16 0063 R 
24 OF 
8B F8 


0320 

0322 
E8 1DFC R 
ES 1AG4 R 


0324 
6327 
BA O3DA 
EC 
32 co 
€E 


£8 1BE4 R 


O32A 
0320 
OS2E 
0330 


0331 AO 0065 
0334 26 F7 R 


O336 EE 


Q337 
O33¢ 


OSSE Bo 
0360 «EE * 


9341 32 co 
0363 EE 


0344 
0346 


0348 
0348 
034D 


O34F 
0352 


83 C7 
B4 10 


BB 0281 
3C 06 . 
74 OF 

BB 028D R 
3¢ 05 


QA OB 08 09 OE 0 
OC OD 02 03 00 


FF 36 0355 R 
80 OF 0355 R 


80 SE 0049 R 10 


F6 06 OSFC R 
75 37 tr 


OF 
o1 


PLTC20 


OB 
PLTC20L 


PLTCGO 
PLTC41 


DB 


PLTCS16 DB 


SET_MODE 


SETMO: 


SETML: 
SETM2: 


PUSH 
OR 
CALL 


CMP 
JB 


PUSH 
MoV 
INT 
MOV 
INT 
MoV 
INT 
PoP 


PUSH 
AND 


CMP 
JE 
CMP 
JE 


CMP 
JBE 
CMP 
JBE 


CMP 
JBE 


MOV 
CALL 


mov 
Mov 
MoV 
MoV 
mov 
AND 
MOV 


CALL 
CALL 


MOV 


XOR 
OUT 


MOV 
AND 
ouT 


TEST 
JNZ 


MOV 
our 
XOR 
OuT 


MoV 
MOV 


MoV 
JE 


MOV 
CMP 






4CH,27H,0,0 Benwn--- SET UP FOR 40X11 (BW) MODE 10 
48H,27H,0,0 geww--- SET UP FOR 40X11 COLOR MODE 11 
4DK,27H,0,0 aaa SET UP FOR 80X11 (BW) MODE 12 
49H,27H,0,0 goonmmn-- SET UP FOR 80X11 COLOR MODE 13 
OAH, 23H,0,0 b-~~--- SET UP FOR 320X200 4 COLOR MODE 14 
GEH,23H,0,0 bwweem~ SET UP FOR 320X200 4 (SHADE) MODE 15 
OEH,21H,0,8 bwmn--~ SET UP FOR 640X200 2 (SHADE) MODE 16 
O0H,00H,0,0 INVALID MODE 17 
1AH,2FH,0,0 ~~ SET UP FOR 160X200 16 COLOR MODE 18 
1BH,2FH,0,0 -~ SET UP FOR 320X200 16 COLOR MODE 19 
OBH,23H,0,0 b~w~n--= SET UP FOR 640X200 4 COLOR MODE 1A 
3BH,23H,0,0 paSse=s SET UP FOR 640X200 16 COLOR MODE 1B 
TABLES OF PALETTE COLORS FOR 2 AND 4 COLOR MODES 
LABEL BYTE 
0,0FH,0,0 a 4 acts SET 0 
= \) SENTRY LENGTH 
OFH,0,0,0 bemenw= 2 COLOR, SET 1 
LABEL BYTE 
0.2.4.6 lisst hee’ SET 0 
0.3,5,0FH preeas 


20125859516 515512513,203000106070405 


PROC NEAR 


WORD PTR IEP_CTRL 
BYTE PTR IEP_CTRL, TRUE 


DISABLE_INT 


4 COLOR, SET 1 
+ SUPER 16 COLOR STD PLT 


+ SAVE INTERRUPT ENABLE PROHIBIT FLAG 
+ PROHIBIT INTERRUPT ENABLE 
3 DISABLE HARDWARE INTERRUPT 


CRT_MODE,KJ_MODE KANJI M 

SETHo tho ae 

AX 3 

AX, KKN_OFF 3 

KEYBORD 3 

AX, KKN_TERM 3 TERMINATE KANA-KAN 
KEYBORD 3 

AX, KKNI_ON 3 

KEYBORD_ 3 

AX 3 

ax 3 SAVE INPUT MODE ON STACK 
AL,7FH 3 REMOVE CLEAR REGEN SWITCH 
AL.7 3 CHECK FOR VALID MODES 
SETM1 3 MODE 7 IS INVALID 
AL,17H 3 CHECK FOR VALID MODES 
SETM1 3 MODE 17H IS INVALID 

AL, OAH 3 UNDER OAH ? 

SETM2 3 YES, OK 

AL, OFH 3 UNDER OFH ? 

SETML 3 YES, INVALID 

AL,1BH 3 

SETM2 3 GREATER THAN 18H IS INVALID 
AL,DEFAULT_MODE ; DEFAULT TO DEFAULT_MODE 
ERASE_SCURSOR 3 ERASE CURSOR 

DX, A6845 3 ADDRESS OF COLOR CARD 
AH, AL 3 SAVE MODE IN AH 


CRT_MODE, AL 
CRT_MODE2, AL 
ADDR_6845, DX 
AL,KI_OFF 
DI, AX 


ENABLE_VG12 
WAIT_VERTRET 


DX, VGA_CTL 
AL, DX 
AL, AL 
DX, AL 


AL, CRT_MODE_SET 
AL, NOT VIDEOENB 
DX,AL 


SUPRESS_PAL, TRU 
SETMS 


AL, PCSUPER 
DX,AL 
AL, AL 
DX, AL 


AX, DI 
AH, IXPALET 


3 SAVE IN GLOBAL VARIABLE 

3 SAVE MODE OF VIDEO PROCESSOR 2 
+ SAVE ADDRESS OF BASE 

3 MASK KANJI MODE FLAG OFF 

3 SAVE MODE IW DI 


3 ENABLE BOTH VG1 AND VG2 
3 WAIT UNTIL VERTICAL RETRACE 


3 POINT TO CONTROL REGISTER 

3 SYNC CONTROL REG TO ADDRESS 
3 SET VGA REG 0 

3 SELECT IT 


3 GET LAST MODE SET 

3 TURN OFF VIDEO 

3 SET IN GATE ARRAY 

pes<2= SET DEFAULT PALETTES 
E; SET PALETTE IS SUPRESSED ? 

3 YES, SKIP SET PALETTE 


CLEAR SUPERIMPOSE CONTROL REGISTER 
FOR SET PALETTE 


ee we we we 


3 GET MODE 
+ SET PALETTE REG 0 


ike DRESED PLTC20; POINT TO TABLE ENTRY 


SETRS 


’ 
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+ 2 COLOR MODE? 
+ YES, JUMP 


ria PLTC41; POINT TO TABLE ENTRY 


3 CHECK FOR 4 COLOR MODE 


E&8 0545 R 
EB 09 


BB O2C1 R 
Bg 0010 
E8 0538 R 


8B C7 
32 DB 


3C 04 
72 08 


BS co 
BA O3DF 


EE 

A2 OOBA R 
E8 0551 R 
EB 07 


8A C4 

€E 

2€: 8A 07 
EE 


43 
FE C4 
E2 F4 


2E: 8A 47 FD 
A2 0352 R® 


BO 05 
EE 
BO 00 
ee 


BO 06 

i33 

BO 02 

EE 

A2 0347 ® 


BA O3DF 


A2 OOBAR 


BA 0309 
32 Co 
EE 


A2 O33C R 
BB Cb 

88 26 0065 R 
88 26 O33D R 
A2 0066 R 


SETMS: 


SETMG: 


SETMG1 


SETMS: 


SETM6: 


SETM7: 


SETM8: 


SETM9: 


CMP 


CALL 
JMP 
MOV 
CALL 
MoV 
xOR 
CMP 
Jc 


OR 
out 
MOV 


pose 


ouT 


MOV 
mov 
MOV 
MOV 
MoV 


TM. + YES. JUMP 
ice 3 CHECK sor 4 COLOR MODE 
SETM3 + YES JUM 
AL, OAK 3 CHECK FOR 4 COLOR MODE 
SETMS 3 NO, JUMP 


SET_PALETTES + SET PALETTES FOR DEFAULT 4 COLOR 
SHORT SETMS 


AL,OBH + SUPER 16 COLOR ? 
SETM41 + YES 


SET_PALETTE16 3 SET PALETTES FOR DEFAULT 16 COLOR 
SHORT SETMS 


BX, OFFSET PLTCS16;GET MOORES oF ayer 16 COLOR PALETTE TABLE 
CX,16 + SET NUMBER OF PALETT 


SPAL41 + SET PALETTE 
3~7--- SET UP MO & M1 IN PAGREG for V-RAML 
AX, DI + GET CURRENT MODE 
BL,BL + SET UP FOR ALPHA MODE 
AL, GRAPHICS 3 IN ALPHA MODE 
SETM6 + YES, JUMP 
BL,40H + SET UP Er ies REGEN 
AL,O9H + MODE US 
SETM6 + YES, SUP 
BL,OCOH + SET UP FOR 32K REGEN 
DX, PAGREG 3 SET PORT ADDRESS OF PAGREG 
AL,PAGDAT 3 GET LAST DATA OUTPUT 
AL. SFH 3 CLEAR MO 8 Mi BITS 
AL,BL 3 SET NEW BITS 
DX,AL + STUFF BACK IN PORT 
PAGDAT,AL 3 SAVE COPY IN RAM 
so~- ENABLE VIDEO AND re PORT SETTING 
VGA_RESET + RESET VIDEO GATE ARRAY 
SHORT SETM3 
AL,AH + GET VGA one NUMBER 
DX,AL > SELECT 
AL,CS: (BX) 3 GET TABLE” VALUE 
DX,AL + PUT IN VGA REG 
BX + NEXT IN TABLE 
AH > NEXT REG 
SETM7 + DO ENTIRE ENTRY 


AL,CS:(BX-(GAPARML-1)] 5; GET VALUE OF PALETTE MASK REG. 
PALETTE_MASK,AL ; SAVE IT FOR SUPERIMPOSE 


wire + POINT SUPERIMPOSE TRANSPARENT REGISTER 
3 

AL.o + SET TRANSPARENT PALETTER NUMBER AS 6 

DX,AL ; 


on +PCSUPER POINT SUPERIMPOSE CONTROL REGISTER 


H 
AL, POREVRAN > MAKE VRAM 2 DISPLAYD IN FOREGROUND 
suPtrcR, AL 3 SAVE IT TO RAM 


SET UP mh AND CPU PAGE REGS ACCORDING TO MODE & MEMORY SIZE 


FOR V-R 
DX, PAGREG + SET IO ADDRESS OF PAGREG 
AL, PAGDAT 3 GET LAST DATA _outeut 
AL,OCOH 3 CLEAR REG BI 
BL, 36H 3 SET UP FOR GRAPHICS MODE WITH 32K REGEN 
AL, 80K 3 IN THIS MODE? 
SETM9 3 YES, JUMP 
BL.3FH + SET UP FOR 16K REGEN AND 128K MEMORY 
ax 3 SAVE Ax 
AL,PORT_C + READ 8255 PORT C 
Abe EXP64K + 64K Gene. INSTALLED ? 
3 RESTORE A 
Setms 3 YES 
BL,1BK 3 SET UP FOR 16K REGEN AND 64K MEMORY 
ALLBL + COMBINE MODE BITS AND REG VALUES 
DX, AL 3 SET PORT 
PAGDAT,AL 3 SAVE COPY IN RAM 


SET uP ane AND CPU PAGE REGS ACCORDING TO MODE & MEMORY SIZE 


FOR V-RAM 

OX, PAGREG2 + SET 10 ADDRESS OF PAGREG 
ALLAL + SET CPU/CRT PAGE 0 IN V-RAN2 
DX.AL 3 SET PORT 

PAGDAT2,AL SAVE COPY IN RAN 


i 
AX,SI + PUT MODE SET & PALETTE IN RAM 
CRT_MODE_SET,AH ; SAVE MODE CONTROL REG VALUE 
; 


CRT_MODE_SET2,AH; SAVE MODE CONTROL REG VALUE FOR SUPERIMP 
CRITPALLETTE,AL ; SAVE BORDER COLOR ae 
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O3SFO 1€ 


bow-- SET UP 6845 


PUSH = S 3 SAVE DATA SEGMENT VALUE 
O3Fl 8B C7 MOV AX, DI + GET CURRERT MODE IN AX 
OSES SETH1O: 
O3F3 33 DB BX, BX 3 SET UP FOR ABSO SEGMENT 
O3FS 8 DB MOV DS, BX 3 ESTABLISH VECTOR TABLE ADDRESSING 
ASSUME DS: ABS 
O3F7 C5 1E 0074 R Lbs BX, PARH nat. 3 GET POINTER TO VIDEO PARMS 
SSUNE DS: CODE 
OSFB BY 0010 Mov CX, VPARML + LENGTH OF EACH ROW OF TABLE 
O3FE 80 FC 02 cP AH, 2 3 DETERMINE WHICH TO USE 
0601 72 28 Jc SETMLL 3 MODE IS 0 OR 1 
0403 03 D9 ADD BX.CX ; TABLE 
Ee ADD BX. MOVE TO NEXT ROW OF INIT 
0608 72 21 Jc SETMLL > MODE IS 2 OR 3 
040A 03 D9 ADD BX,CX TABLE 
oenn Pe oe ADD Bx.c 3 MOVE TO GRAPHICS ROW OF INIT_ 
O60F 72 1A Jc SETM1L s MODE 18 4, 5, 6, 8 
0611 03 D9 ADD BX, CX OF INIT_TABLE 
et eae AbD BX. x 3 MOVE TO NEXT GRAPHICS RO! a 
0416 76 13 JBE SETMLL 3 MODE IS 9, AOR B 
0418 03 D9 AbD BX, ¢X 
wt ED ADD BX6CX 3s MOVE TO KANJI ROW OF INIT_TABLE 
041D 72 0¢ Jc SETM11 + MODE IS 10, 11 
O41F 03 D9 ADD BX, CX VE TO NEXT ROW OF INIT TABLE 
0421 80 FC 16 cP AH, 14H BERETS MERE RSD INET 
0624 72 05 Jc SETM1L 3 MODE IS 12,13 
0626 80 £4 OF AND AK.K 3 MASK KJ BIT OFF 
0429 EB CB JMP SHORT "Sermo 3 SERCH AGAIN FOR MODE 14H-1AH 
ooo BX POINTS TO CORRECT ROW OF INITIALIZATION TABLE 
04628 SETM11: 
0628 8B F7 MoV SI,DI 3 SAVE MODE IN S 
042D 8A 47 02 MOV AL;DS:(BX¢2) GET HORZ. SYNC. POSITION 
0430 88 57 OA MOV DX.WORD PTR DS:CBX¢10] ; GET CURSOR TYPE 
0633 86 F2 XCHG DH, ; SWAP FOR HIGH-LOW REVERSE 
0635 1€ PUSH DS 
0436 E8 COCO E CALL DDS 
ASSUME DS:DATA 
0439 AZ 0089 R MOV HORZ_POS,AL 3 SAVE HORZ. SYNC POSITION VARIABLE 
063C 89 16 0060 R MOV CURSOR_MODE,DX SAVE CURSOR MODE 
0640 Ac 0086 .R MoV AL,VAR_DELAY 5. SET DEFAULT OFFSET 
0643 26 OF AND AL, OFH 
0665 A2 0086 R MOV VAR_DELAY, AL 
ASSUME DS:CODE 
0668 IF PoP Ds 
06469 32 €4 XOR AK, AH + AM WILL SERVE AS REGISTER NUMBER DURING LOOP 
DX, A6845 3 POIN 
PARE ES Sas rey soap Taroucn TABLE, OUTPUTTING REG ADDRESS, THEN VALUE FROM TABLE 
He BA Ch me aa AL, AH 3 GET 6845 REGISTER NUMBER 
0450 EE OUT DX, AL 
H Dx 3; POINT TO DATA PORT 
oes2 Fe C8 Ine AH 3 NEXT REGISTER VALUE 
04654 8A 07 MoV AL, CBX) 3; GET TABLE VALUE 
0656 EE our DX. AL + OUT TO CHIP 
BX 3 NEXT IN TABLE 
eean ‘te hee DX 3 BACK TO POINTER REGISTER 
0659 €2 FS Loop =, SETM12 3 DO THE WHOLE TABLE 
ov AX, SI 3 GET MODE BACK 
oesD iF * Por Ds” j RECOVER SEGMENT VALUE 
ASSUNE jno= FILL REGEX AREA WITH BLANK 
O45E 33 FF XOR DI,DI 3 SET UP POIN 
0660 89 3E OOSER MOV CRT_START,DI START ADDRESS SAVED IN GLOBAL 
0464 C6 06 0062 R 00 MOV ACTIVE_PAGE,O _; SET PAGE VALUE 
0469 C6 06 O36C R 08 Mov CPU_PAGE, VRAM2_PAGE ; SET CURRENT ACTIVE PAGE as 8 
O66E C6 06 0340 R O8 MOV CRT_PAGE, VRAM2_PAGE ; SET CURRENT ACTIVE PAGE A 
0673 E8 1883 RK CALL —- ENABLE_KJROM  ; DISABLE BOTH V-RAM 1 & 2 ONC 
0676 £8 1BB4 R CALL = ENABLE—VRAM 3 ENABLE V-RAM 2 
0679 3B DS v BX, AX 3 SET MODE 10 Bx 
O67R SA Por px’ 3 GET ORIGINAL INPUT BACK: 
O67 BA F2 MOV DH, DL 3 
OS7E 80 E6 7F AND DH, 07FH ; 
0681 30 FE 1B CMP DH, 1BH 3 SUPER 16 COLOR ? 
0486 75 29 JNE SETMI21 + NO 
0686 50 PUSH = AX 3 SAVE AX 
0687 53 PUSH BX 3 SAVE BX 
senate PUSH DX i; SAVE Dx 
USH DI 3 SA 
068A 56 PUSH = SI + SAVE SI 
0688 £8 1DBO R 
O68E 8A Ce CALL ENABLE_VG1 i 
0690 2¢ 11 SUB AL, 11H 


SETUP VIDEO PROCESSOR-1 
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BA 
8E 


B8 
72 
B8 


80 
72 


80 
72 


06 
51 
B9 
8E 
89 
B8 


1C7D R 

06 0049 R 1B 
1DFC R 

OSDA 


06 
0347 Rk 


E2 80 
4E 


2000 


09 
62 


B800 
c2 
OF20 
FF 10 
03 
0720 


FB 04 
a 


FF 10 
13 


OOAG 
C1 


0400 
0720 


F37 AB 


59 
07 


33 


co 


FS AB 


8B 
EB 


32 


co 

O348 R 

O349 R 

06 OS4E R 1011 


06 0350 R 2011 


O3DA 
co 


0065 Rk 


1pd6 R 


DE 
O59C R 
FF 


DL E3 


89 
BF 


1E 


07 


33 


2E: 8B 8F pen R 


OE 004C 


0010 
O35C R 


co 


FS7 AB 


SETM121: 


SETM13: 


SETM14: 


SETM15: 
SETM16: 


SETMI7: 


MOV 
Mov 


Mov 


MOV 


MoV 
REP 


PoP 
PoP 
PoP 


SUP_SET_MODE 
CRT_MODE, 1BH 
ENABLE_VG1i2 
DX, S2ABASE 
AL, DX 

AL, PCSUPER 
DX, AL 

AL, O110B 

DX, AL 
SUPIPCR,AL 


DL.80H 
SETM17 


CX,8192 


AL,O9H 
SETM13 


CX,1 


DX, REGEN_START 
ES, DX 


, 


AX," 94156256 
BH. KJ_MODE 
SETHE 

AX," "+ 7m256 
BL, GRAPHICS 
SETM16 

BH, KJ_MODE 
SETMIS. 

€S 

DI 

cx 
CX,P_CODE_START 


ES,CX 
ASSUME 


CX, P_CODE_SIZE72; 


AX," "% 7256 
STOSW 


ASSUME 


AX, AX 
STOSW 
AX, AX 


AC_PRESENT,AL 
GC_PRESENT.AL 


t 
GCURSOR_MODE, UNDER_CURSOR 


SETUP SUPERIMPOSE LOGIC 


RESTORE REGISTERS 


Be We Be we we we we we we Oe ee we 


NO CLEAR OF REGEN ? 
SKIP CLEARING REGEN 


NUMBER OF WORDS TO CLEAR 


REQUIRE S$2K BYTE REGEN ? 
NO, JUMP 


SET 16K WORDS TO CLEAR 


we tee 


we 


3 SET UP SEGMENT FOR V-RAM2 
SET REGEN SEGMENT 


FILL CHAR FOR ALPHA 
KJ MODE ? 


we we ee 


3 FILL CHAR FOR KANJI 


3 TEST FOR GRAPHICS 
3 NO_GRAPHICS_INIT 


+ KJ GRAPHICS MODE 

3--- CLEAR PESUDO CODE BUFFER 

3 SAVE CURRENT ES 

3 SAVE CURRENT DI 

3 SAVE CURRENT Cx 

+ SET PESUDO CODE BUFFER SEGMENT 
3 

ES:P_CODE_ BUFFER 

SET BUFFER SIZE IN WORD 


3 FILL CHAR FOR ALPHA IN ATTRIBUTE TYPE 2 
’ FILL THE PESUDO CODE BUFFER 


3 RESTORE CX 
3 RESTORE DI 
3 RESTORE ES 
ES: VIDEO_RAM 


¢ FILL FOR GRAPHICS MODE 
3 FILL THE REGEN BUFFER WITH BLANKS 


3 
3 CLEAR ALTERNATE CURSOR FLAG 
3 CLEAR GRAPHICS CURSOR FLAG 


s SETUP GRAPHICS CURSOR MODE 


ACURSOR_MODE,CURSOR_DISABLEML00H OR BLOCK_CURSOR SETUP ALT CSR 


DX, VGA_CTL 
AL, AL 


OX,AL 
AL. CRT_MODE_SET 
DX.AL 


s~~--~ ENABLE VIDEO 
SET PORT ADDRESS OF VGA 
SELECT VGA REG 0 


GET MODE SET VALUE 
SET MODE 


we we we we we 


ENABLE_vo2 3 ENABLE VIDEO GRNARATER 2 
{=sSs= DETERMINE NUMBER OF COLUMNS AND ROWS, BOTH FOR ENTIRE 
ieree= DISPLAY AND THE NUMBER TO BE USED FOR TTY INTERFACE 
BX,SI 3 GET CURRENT CRT MODE 
SMODE_SET 3 SET SCREEN PARAMETERS 
g-~--- SET CURSOR POSITIONS 
BH, 3H ; 
8xX,1 


CX.CS: (BX + OFFS 
cx 


CRT_LEN, 
CX,NO_ACT_PAGE 


+ WORD OFFSET INTO CLEAR LENGTH TABLE 
ET REGEN L) 3 LENGTH TO CLEAR 
3 SAVE LENGTH OF CRT 


3 CLEAR ALL CURSOR POSITIONS 


DI, OFFSET CURSOR_POSH 


os 
ES 
ASSUME 


AX, AX 
STOSW 


+ ESTABLISH SEGMENT 
3 ADDRESSING 
ES: DATA 


+ FILL WITH ZEROES 
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0520 
0531 


e534 
0535 


BF 06 0355 R 
€8 1BEC R 


cs 


B9 G04 


ga C4 

EE 

2€: 8A 07 
c€ 


FE C4 
43 
E2 F4 
cs 


BY 0010 
BA CS 
i343 

EE 


FE C4 
E2 F8 


cs 


81 cs o241 Rk 
ee 
8B FO 

E& 058¢ R 
it 


PoP WORD PTR IEP_CTRL;RESTORE INTERRUPT ENABLE PROHIBIT FLAG 
CALL ENABLE_INT 3 ENABLE INTERRPUT IF IT IS NOT PROHIBITED 
RET 

SET_MODE ENDP 

J Perm r nen nnn w nnn nn wenn enw we nen ne ene ee 
SET_PALETTES 
THIS ROUTINE SET PALETTES FOR 4 COLOR 
INPUT = PALETTE REGISTER NUMBER 


ADDRESS OF SETUP PARAMETERS 
OUTPUT NONE 


VOLATILE AX, CX 


ee Oe we we we we we we Oe we we we Oe 


ASSUME CS:CODE, DS:DATA, ES 
SET_PALETTES PROC NEAR 


sVIDEO_RAM 





MoV CX,4 3 NUMBER OF REGS TO set 
SPAL41: 

MOV ALLAH + GET REG NUMBER 

ouT X,AL + SELECT IT 

MoV ALCS: {BX} ¢ GET DATA 

out DX, AL > SET IT 

INC AH 3 NEXT REG 

INC BX + NEXT TABLE VALUE 

Loop SPAL41 

RET 


SET_PALETTES ENDP 


7 


eae en 


; SET_PALETTE16 

; THIS ROUTINE SET PALETTES FOR 16 COLOR 
; INPUT = AK = PALETTE REGISTER NUMBER 
; QUTPUT NONE 

VOLATILE AX, CX 


SET_PALETTEL6 PROC NEAR 


mov CX,16 3 NUMBER OF PALETTES, AW IS REG COUNTER 
SPALI: 

mov AL, AH 3 GET REG NUMBER 

our DX.AL 3 SELECT IT 

OUT DX, AL 3 SET PALETTE VALUE 

INC AH 3 NEXT REG 

Loop SPALL 

RET 


SET_PALETTE1L6 ENDP 


On ewww ww ww ww we mm we ewww ee wen ween n neces 


3 
4 VGA_RESET 
3 
F THIS ROUTINE RESET VIDEO GATE ARRAY 
; INPUT DI = CRT MODE 
3 
; OUTPUT SI = CONTENTS OF MODE CONTROL 1, BORDER COLOR REO. 
i CX = HUMBER OF GATE ARRAY PARAMETERS 
3 
3 VOLATILE AX, BX, DX 
3 
cae ee Bediseiwker cceus, wistieseeusewessessooucs 
VGA_RESET PROC NEAR 
MOV AX, DT + GET CURRENT MODE 
moy AL. AH 
OR +AK + __IHTO AX REG 
MOV CK, GAPARML + SET TABLE ENTRY LENGTH 
3 TIMES MODE FOR OFFSET 
MOV BX, AX + TABLE OFFSET IN BX.) [NTO TABLE 
ADD BK, OFFSET GAPARM; ADD TABLE START OFFSET 
MOV AH» CS LBX+IXMODELI:SAVE MODE SET AND Pat 
MOV AL, CS: CBX#1XBORD ps 
mov ALCS Vs TILL WE CAN PUT THEN IN RAM 
CALL = MODE_ALIVE + KEEP MEMORY DATA vatrD 
MOV DX, VGA_cTL 


MoV AL, IXRESET 
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+ POINT TO RESET REG 


50 
53 


32 
2€: 
2 


cé 
4 F7 


co 
EO 


04 


o58c R 


F6 
0100 


FF 
8A 87 0235 R 
E4 


COSA R 


0701 

FF 18 

10 

06 0346 R 18 
0703 


FF 10 
08 


0700 
06 0346 R 09 
16 


OUT DX, AL + SEND TO GATE ARRAY 
MOV AL, SYNCRST + SET SYNCHRONOUS RESET 
OUT DX, AL 3 DO IT 
; HUTLE THE GATE ARRAY IS IN RESET STATE, WE CANNOT ACCESS RAM 
Mov AX, SI 3 RESTORE NEW MODE SET 
AND AH,NOT VIDEOQENS ; TURN OFF VIDEO ENABLE 
XOR ALLAL 3 SET UP TO SELECT VGA REG 0 
OUT DX,AL + SELECT IT 
XCHG AH, AL 3 AH_IS VGA REG COUNTER 
OUT DX, AL + SET MODE 
MOV AL, IXRESET + SET UP TO SELECT VGA REG 4 
out ’ s SELECT IT 
XOR AL.AL 3 
ouT ; 


DX,AL REMOVE RESET FROM VGA 
+ NOW OKAY TO ACCESS RAM AGAIN 


CALL MODE_ALIVE + KEEP MEMORY DATA VALID 


RET 
VGA_RESET EOP 
peatescosct asst cces Renae sicaressemweuet 
5 
; MODE_ALIVE 
3 
3 THIS ROUTINE READS 256 LOCATIONS IN MEMORY AS EVERY OTHER 
; LOCATION IN 512 LOCATIONS. THIS IS TO INSURE THE DATA 
3 INTEGRITY OF MEMORY DURING MODE CHANGES. 
3 
3 INPUT | NONE 
3 OUTPU HONE 
3 VOLATILE NONE 
3 
ener aan oeseeschouhs crc — 
MODE_ALIVE PROC HEAR 
PUSH AX SAVE USED REGS 
PUSH SI. 
PUSH CX 
XOR $I,S1 
MOV CX, 256 
MALIVEL: 
LODSB 
NC SI 
LOOP = MALIVE1 
PoP cx 
PoP SI 
POP AX 
RET 
MODE_ALIVE ENDP 
poser SceSevebooutbe ecco cua wekceecccuss 
SMODE_SET 


we we we we we Oe Oe we Be Oe we Oe we Oe 


SOFTWARE MODE SET 


THIS eee INITIALIZES KANA-KAN AND 
T ROW,COLUMN NUMBER OF SCREEN 


INPUT BK = CRT MODE 
BL = GRT MODE (MASKED) 
ourPuT Cian 
VOLATILE BH 
SMODE_SET PROC HEAR 
sae ae insace DETENINE HUMBER OF ROWS 
PUSH BX } SAVE MODE 
XOR 
MOV 


SSETL: 
SSET2: 


SH, BH ¢ CLEAR BH FOR CONVERT BYTE 1 R 
fir canta + OFFSET Cot_L) : ane ae 


, 
MOV CRT_COLS,AX 3 NUMBER OF COLUMNS IN THIS SCREEN 


POP Bx 3 RESTORE MODE 

MOV AX, INDICATOR_ON ; ENABLE INDICATOR 

CMP 8H, 18H 3 20X11 GRAPHICS 2 

JE SSETL 3 YES 

MOV CRT_ROWS, Row J-ANK; SET ROW NUMBER OF ANK MODE 
MOV AX, KKRI_O + DISABLE KANA-RAN 

CMP BH.KJ "RODE. 3 KJ MODE ? 

JB SSET2— + NO 


MoV AX, KKNI_ON 


ENABLE KANA-KAN 
MOV CRT_ROWS ,ROW_KI 5 
INT KEYBORD 


PoP ax 
RET 


SET ROW NUMBER OF KJ MODE 
KANA-KAN ON/OFF 
RESTORE aX 


~ 
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oscc 


ao 
72 


8B 
F6 


FC 04 

27 

16 0350 R 
06 6349 & FF 


74 «09 


51 


E8 
59 


89 
cs 


81 
80 


Bs 
€8 
cs 


OE OS4E R 
0618 R 


OE OS4E R 
0618 R 
06 0349 R FF 


El 3FFF 
cD 20 


OA 
OE 0060 R 
0602 R 


16 0063 R 
c 


cs 


cq 
co 


ch 


SMODE_SET EMP anne nnn nnnn ann nnnnnnnnn 
a SET_CTYPE INT 10H, AH = 1 
ways ROUTINE SETS THE CURSOR VALUE 
mest ak SERN RES OEE are ce 


ourpuT NONE 
VOLATILE AL,CX,DX 


ee 


ASSUME CS:CODE, DS:DATA 


SET_CTYPE proc NEAR 
AH, GRAPHICS + IN GRAPHICS MODE? 
rl sct2 + NO, JUMP 


MoV DX,CURSOR_POSN 3 GET CURRENT CURSOR POSITION 
TEST GC_PRESENT,TRUE 3 GRAPHICS CURSOR PRESENT ? 
$cTl + NO 


Jz 
PUSH CX ; SAVE NEW CURSOR MODE 
MOV CX,GCURSOR_MODE ; GET OLD CURSOR MODE 
retL «OMRITE_GCURSOR © ERASE CURRENT GRAPHICS CURSOR 
POP x 3} RESTORE NEW CURSOR MODE 

SCTAS soy GCURSOR_MODE,CX + SAVE NEW GRAPHICS CURSOR MODE 
CALL © WRITE_GCURSOR > WRITE NEW GRAPHICS CURSOR 
MOV GC_PRESENT, TRUE ; SET GRAPHICS CURSOR FLAG ON 
AND CX,GCURSOR_MASK ; MASK FOR GRAPHICS CURSOR 
OR CH CURSOR_DISABLE; DISABLE CURSOR OF 6845 

c 

SCT2 hoy AH, 10 ; 6845 REGISTER FOR CURSOR SET 
MOV CURSOR_MODE,CX ; SAVE IN DATA AREA 
CALL —-OUT6845 3 OUTPUT CX REG 
RET 

SET_CTYPE ENDP 

pocecececeeneenennnneee Seveeeebensoseboscecesesceuee 

3 

$ OUT68465 

H THIS ROUTINE OUTPUTS THE CX REGISTER TO THE 6845 REGS NAMED IN AH 

3 

3 INPUT AH = 6845 REGISTER ADDRESS 

3 CH = DATA SHOULD BE WRITE TO (AH) 

; CL = DATA SHOULD BE WRITE TO (AH#1) 

3 

3 OUTPUT NONE 

3 

5 VOLATILE AL, DX 

5 

J eeeenctensencnwnscenenssaeen Bereta ee eteediwuse 


OUT6845 proc WEAR 
mov DX, ADDR_6845 + ADDRESS REGISTER 


MOV AL,AH 3 GET VALUE 

our DX, AL + REGISTER SET 

INC Dx 3 DATA REGISTER 

MOV AL,CH 3 DATA 

ouT DX,AL 

DEC Dx 

MOV AL, AH 

INC AL 3 POINT TO OTHER DATA REGISTER 
we a 3 SET FOR SECOND REGISTER 
MoV AL,CL SEC 

OUT BX AL ' OND DATA VALUE 

RET 3 ALL DONE 


OUT6845 ENDP 


3 
‘ WRITE_GCURSOR 
' THIS ROUTINE WRITES GRAPHICS CURSOR 
3 INPUT AH = CRT MODE ( MASKED 
: a = Ben cata CURSOR RODE 
= »COLUMN PO 
3 DS = DATA SEGMENT Sense 5 BE 
. 
3 OUTPUT 
; VOLATILE NONE 
poccenene 





‘e’ 


—) 


SE 0049 R 14 
69 


C5 20 
64 


El SFFF 
F9 11 
02 

ll 

Eg 

55 


Ec 1¢ 
Ec 


66 09 
56 02 


c2 
15E8 R 
46 00 
o9 


8F 
b2 


1265 Rk 


c4 ic 


WRITE_GCURSOR 


WGCl: 


WGC2: 


WRITE_GCURSOR 


PROC WEAR 


cMP CRT_MODE,KJGRAPH; KJ GRAPHICS MODE ? 
JB wocd + NO 
TEST CH, CURSOR_DISABLEs CURSOR DISABLED ? 
JNZ WGC2 YES 
o 
AND CX,GCURSOR_MASK ; MASK FOR GRAPHICS CURSOR MODE 
cmp CL.CBOX_ROW - 1 ; END CURSOR EXCEED CHARACTER BOX ? 
JBE WGC1L : 
Mov CL,CBOX_ROW - 1 3 SET MAX ROW OF CHARACTER BOX 
CMP CH,CL s CURSOR START > END ? 
JA wGCc2 3 YES, CURSOR DOES NOT APPEARE 
PUSH BP 3 SAVE BP 
SuB $P,SAC_LOCAL 3 ALLOCATE LOCAL WORK AREA 
Mov BP,SP 3 ASSIGN BP AS FRAME POINTER 
PUSH AX 3 
PUSH Bx 3 
PUSH cx 3 
PUSH Dx 3 SAVE REGISTERS 
PUSH $I 3 
PUSH DI 3 
PUSH DS 3 
PUSH ES 3 
MoV CBP+WC_MODE],AH ; SET CRT MODE 
MOV CBP+WPOSN],DX 3 SAVE ROW/COLUMN POSIITON 
MOV AX, DX 3 SET IT TO AX FOR GET LOCATION 
CALL GRAPH_POSN 3 DETERMINE LOCATION IN REGEN BUFFER 
MoV CBP4WGPOSNJ,AX ; SAVE WRITE POSITION 
MOV BX, CX 3 SET GRAPHICS CURSOR MODE TO 8X 
PUSH ES 3 SAVE ES 
PUSH ss 3 
POP DS 3 POINT TO STACK SEGMENT 
PUSH ss 3 
POP ES 3 POINT TO foe SEGMENT 
ASSUME DS:STACK, ES:STACK 
LEA SI,CBP¢WFONT) ; SET ADDRESS OF FONT BUFFER AREA TO SI 
MOV DI,SI 3 SET IT TO DI 
MOV CX,CBOX_ROW/2 i 
XOR AX, AX 3 CLEAR 18 BYTE FOR CURSOR 
REP STOSW 3 
XOR DX, DX 3 
MOV DL,BH 3 
MOV OI,SI 3 SET CURSOR START LINE TO DI 
ADD DI, DX 3 
XOR BH. BH 3 
SUB Bx, DX 3 
INC 3 SET CURSOR LINE NUMBER TO CX. 
MOV ox. BX 3 
DEC ax 3 
REP STOSB 3 SET CURSOR 
POP es RESTORE REGEN SEGMENT 
ASSUME és: VIDEO. RAM 
MOV BL, +XOR_BIT OR ornaset COLOR 16 AND X'OR WRITE FUNCTION 
XOR DL SET 0 TO DISPLACEMENT 
CALL G_WRTL 3 WRITE CURSOR 
POP ES 3 
POP DS ’ 
PoP St i 
3 RESTORE REGISTERS 
POP DX 3 
PoP Gx > 
PoP Bx 3 
POP aX 3 
apD SP,SAC_LOCAL 3 DEALLOCATE WORK AREA 
POP BP 3 RESTORE BP 
RET 
ENDP 
Joon nate cece cecceenncccnennnensenesa= escsess 
SET_CPOS INT 10H, AH = 2 


we we we we we we we ee 


THIS ROUTINE SETS THE CURRENT CURSOR POSITION TO THE 
NEW X-Y VALUES PASSED 


INPUT AH = CRT MODE ( MASKED ) 
DX = ROW,COLUMN OF NEW CURSOR 
BH = DISPLAY PAGE OF CURSOR 
OUTPUT NONE 
VOLATILE AX, CX, S1,DI 
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0605 
0605 


06D6 
06Da 
OGDA 


O6DE 
06EO 
O6E2 
O6ES 
O6ES 


€8 
03 
D1 
€8 
cs 


$3 
83 
F6 
32 
d1 


58 
cs 


BC O35C R 
94 O35C R 


SE 0062 R 
4 
FC 04 


OE OS4E R 
06 0349 R FF 
07 


07 
0618 R 


0618 8 

06 03469 R FF 
c2 
Goce R 


06D5 R 
cs 

OE OOSER 
F9 

0E 

O602 R 


Ds 
cs 
26 OOGAR 


FF 
cs 
Eo 


n CURSOR IS SET AT 6845 IF DISPLAY PAGE I$ CURRENT DISPLAY 
‘ 


| a telat hate atta hat aaa aa alata tate eet 


ASSUME CS:CODE, DS:DATA 


SET_CPOS PROC NEAR 
MOV CL,BH ° 
XOR CH, CH 3 ESTABLISH LOOP coUKT 
SAL CX,1 3 WORD OFFSET 
MOV $I,CX + USE INDEX REGISTER 
MOV DI-CSI*OFFSET CURSOR POSN] ; GET OLD CURSOR POSITION 
Mov CSI*OFFSET CURSOR_POSH),DX 3 SAVE THE POINTER 
cMP ACTIVE_PAGE,BH 
INZ SCP3 3 SET_CPOS_RETURN 
cMP AH, GRAPHICS 3 GRAPHIS MODE 7 - 
JB SCP2 3 NO 
MOV CX,GCURSOR_MODE ; SET GRAPHICS CURSOR MODE TO Cx 
TEST GC_PRESENT, TRUE 3 GRAPHCIS CURSOR PRESENT ? 
JZ SCPL + NO 
PUSH Dx 3 SAVE NEW CURSOR POSITION 
mov 


DX, DI } SET OLD CURSOR POSITION YO Dx 
CALL WRITE_GCURSOR 3 ERASE CURRENT GRAPHCIS CURSOR 


r POP DX + RESTORE NEW CURSOR POSITION 
SCPi: 
CALL WRITE_GCURSOR 3 WRITES NEW GRAPHIS CURSOR 
5 MOV GC_PRESENT, TRUE 3 SET GRAPHICS CURSOR FLAG ON 
SCP2: 
MOV AX, DX 3 GET ROW/COLUMN TO Ax 
CALL SET_CURSOR 3 CURSOR_SET 
SCPS: 
RET 
SET_CPOS ENDP 
Jorrn een ene nnn ne eee 
3 
Hy SET_CURSOR 
s 
3 THIS ROUTINE SETS THE CURRENT CURSOR POSITION TO THE 6845 
3 
3 INPUT AX = ROW,COLUMN VALUE TO SET 
3 
3 OUTPUT NONE 
3 VOLATILE AX, CX 
5 - - Kee ewe 
SET_CURSOR PROC HEAR 
CALL POSITION 3 DETERMINE LOCATION IN REGEN BUFFER 
MoV CX,AX 
ADD CX,CRT_START 3 ADD IN THE START ADDRESS FOR THIS PAGE 
SAR CxX,1 3 DIVIDE BY 2 FOR CHAR ONLY COUNT 
MoV AH,14 3 REGISTER NUMBER FOR CURSOR 
CALL OUT6845 3 OUTPUT THE VALUE TO THE 6845 
RET 
SET_CURSOR ENOP 
Jreeere enna oe-- eee 
3 
3 POSITION 
3 
; THIS SERVICE ROUTINE CALCULATES THE REGEN BUFFER ADDRESS 
3 OF A CHARACTER IN THE ALPHA MODE 
3 
; IHPUT AX = ROW, COLUMN POSITION 
3 
3 OUTPUT AX = OFFSET OF CHAR POSITION IN REGEN BUFFER 
3 
3 VOLATILE NONE 
3 
brn nr rn wen ewww new w ee ee eee 
POSITION PROC NEAR 
PUSH Bx 3 SAVE REGISTER 
MOV BX, AX 
MOV ALLAH 3 ROWS TO AL 
MUL BYTE PTR CRT_COLS + DETERMINE BYTES TO ROW 
ee tet 
. 5 ADD IN COLUMK VALUE 
SAL AX,1 3} M2 FOR ATTRIBUTE BYTES 
PoP 3x 
RET 
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? 


O6E6 


06 
os 


97 O35C R 
CE 0060 R 
SE 00469 R 14 
4 

OE O34E R 


56 oc 
GE OA 


06 09 09 05 5 
00 05 08 08 68 


1DBO R 


32 E4 


BA 
ec 
74 
€9 
Ag 
75 
E9 


O3SDA 


04 
03 
O7ES R 
02 
03 


O7EF R 


10 
16 0063 R 
c4 


€& 
c4 


POSITION ENDP 
il hs a pte Sac tes oo eee = 
ry 
3 READ_CURSOR IHT 10H, AH = 3 
3 THIS ROUTINE READS THE CURRENT CURSOR VALUE FROM THE 
; 6845, FORMATS IT, AND SENDS IT BACK TO THE CALLER 
; INPUT BH = PAGE OF CURSOR 
5 
; OUTPUT DX = ROW, COLUMN OF THE CURRENT CURSOR POSITION 
3 CX = CURRENT CURSOR MODE 
3 VOLATILE BX 
3 
sfooceocce eee eee ew eee eee wee eee=: Fa eh eee eee 
ASSUME CS:CODE, DS:DATA 
READ_CURSOR PROC NEAR 
PUSH BP 3 SAVE BP 
Mov BL, BH 
XOR BH, BH 
SAL BX, 1 WORD OFFSET 
MOV DXILAX+OFFSET CURSOR POSH] 
MoV CX, CURSOR_MODE 
CMP CRT_MODE,KJGRAPH; KJ GRAPHICS MODE ? 
JB RCSR1 + NO 
nesez: " CX,GCURSOR_MODE ; SET GRAPHICS CURSOR MODE 
t 
Mov BP,SP 3 SET FRAME POINTER 
MoV (BP+F_DX},DX 3. SET _RETURN DX 
MOV (BP+FLCX],CX —;.: SET RETURN CX 
PoP BP 3 RESTORE BP 
RET 
READ_CURSOR ENDP 
: 
; LIGHT PEN INT 10H, AH = 4 
Po ERERLUEER 
3 THIS ROUTINE TESTS THE LIGHT PEN SWITCH AND THE LIGHT 
i PEN TRIGGER. IF BOTH ARE SET, THE LOCATION OF THE LIGHT 
3 PEN IS DETERMINED. OTHERWISE, A RETURN WITH NO INFORMATION 
3 
3 
3 INPUT AH = CURRENT CRT MODE ( MASKED ) 
3 
; ON EXIT: 
; AH = 0 IF NO LIGHT PEN INFORMATION IS AVAILABLE 
3 BX,CX,DX ARE DESTROYED 
3 AH = 1 IF LIGHT PEN IS AVAILABLE 
; DHDL = ROW,COLUMN OF CURRENT LIGHT PEN POSITION 
i CH= —- RASTER POSITION 
; BX = —- BEST GUESS AT PIXEL HORIZONTAL POSITION 
5 
Bn nr rw ww ewww ew ewww wwe wwe wwe ween eecen 


ASSUME CS:CODE,DS:DATA 


Borneman nnn nnn enn nw enn nnn enn n nnn n= == SUBTRACT_TABLE 
SUBTBL LABEL BYTE 


b MODE~-Q- == 2 fon 2- nn $n =~ §-- =~ 6 =) -- = 8-- == 9---- A= = == B= C--D-- EF 
3 MODE-10-~~11--~12~~-13---14---15---16---17---18---19--- 1A--- 1B 


DB OCH, OGH, O9H, O9H, OSH, OSH, OSH, 6, OSH, O8H, O8H, O8Hs 6, 0, 0, 0 
READ_LPEN PROC NEAR 

PUSH BP 3 SAVE BP 

CALL ENABLE_VQ1 3 ENABLE VIDEO GENERATER 2 

s-~~ WAIT FOR LIGHT PEN TO BE DEPRESSED 

xOR AH, AW 3 SET NO LIGHT PEN RETURN CODE 

MOV DX. VGALCTL 3 GET ADDRESS OF VGA CONTROL REG 

In AL, DX 3 GET STATUS REGISTER 

TEST AL, LPENSW + TEST LIGHT PEN SWITCH 

Jz RLPENL 

JMP RLPENL4 a NOT SET, RETURN 
RLPENL: ‘ se-- NOW TEST FOR Riace # teas TRIGGER 

TEST AL, LPENTRG 3 TEST LIGHT PEN TRIGGE 

JNZ RLPEN2 + RETURN WITHOUT RESETTING TRIGGER 

JMP RLPENIS 

g--~ TRIGGER HAS BEEN SET, READ THE VALUE IN 

RLPEN2: 

MoV AH, 16 3 LIGHT PEN REGISTERS ON 6845 

s~-~INPUT REGS Coie TO BY AH, AND CONVERT TO ROW COLUMN IN DX 

MOV DX, ues 6845 ADDRESS REGISTER FOR 6845 

MOV AL, AH } REGISTER TO READ 

OUT DX, AL s SET IT UP 

INC Dx 3 DATA REGISTER 

IN AL, DX i GET THE er 

MoV CHLAL 3 SAVE IN 

DEC DX + ADDRESS REGISTER 

NC AH 
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83 


c4 


ES 


1E 0049 R 
OOOF 


ES 0 
2E: 8A 9F O70A R 
BCS 


OFAO 
02 


1E OO4E R 
B 


36 0049 8 
OF 
FE 04 


FE o$ 


FE 06 


FE 09 


3E 00469 8 10 
2 
os 


F6 
FO 


3 


6 CO4A R 
FO 


a 0049 R 10 


16 0063 R 
C2 07 


x 
RLPENS: 
mi 


RLPENG: 


MOV 


Lu 
RLPENS: 
D 


RLPENG: 


RLPEN7: 


RLPENS: 


$s 
RLPENS: 


mov 
RLPENIO: 
DIV 
mov 
JMP 
RLPENI1: 


RLPEH12: 


RLPENIS: 
Mov 
RLPEN14: 


ADD 


AL. AH 3 SECOND DATA REGISTER 
x, AL 

ox’ + POINT TO DATA REGISTER 
AL,DX 3 GET SECOND DATA VALUE 

AH,CH 3 AX HAS INPUT VALUE 


s--~ AX HAS THE VALUE READ IN FROM THE 6845 


MODE VALUE TO Bx 


DETERMINE AMOUNT TO SUBTRACT 
+ TAKE IT AWAY 


BL,CRT_MODE 
BX,KJ_OFF 
BL,CS:SUBTBL(BX) 
X, BX 


we we 


A 


AX, 4000 + IN TOP OR BOTTOM BORDER? 

RLPENS 3 NO, OKAY 

AX, AX 3 YES, SET TO ZERO 

Bee ht OTARI 

X, 

AX, BX 3 CONVERT TO CORRECT PAGE ORIGIN 

RLPENG 3 IF POSITIVE, DETERMINE MODE 

AX, AX 3 <0 PLAYS AS 0 
s~~~ DETERMINE MODE OF OPERATION 
3 DETERMINE _MODE 

cL,S 3 SET M8 SHIFT COUNT 

DH, CRT_MODE 3 SET CRT MODE TO DH 

DH, KJ_OFF 3 STRIP KJ BIT OFF 

DH, GRAPHICS 3 GRAPHICS MODE ? 

RLPEW11 3 ALPHA_PEN 
3~-- GRAPHICS MODE 

DL,40 5 DIVISOR FOR GRAPHICS 

DH,9 3 USING 32K REGEN? 

RLPENS 3 NO, JUMP 

DL,80 s YES, SET RIGHT DIVSOR 

DL § DETERMINE ROWCAL) AND COLUMNCAH) 
5 AL RANGE 0-99, AH RANGE 0-39 
s-~- DETERMINE GRAPHIC ROW POSITION 

CH,LAL 3 SAVE ROW VALUE IN CH 

CH.CH + ™2 FOR EVEN/ODD FIELD 

DH,9 3 USING 32K REGEN? 

RLPENG 3 NO, JUMP 

re + ADJUST ROW & COLUMN 

AL, 

CH.CH 3 ™@ FOR 4 SCAN LINES 

BL.AH 3 COLUMN VALUE TO Bx 

BH, BH 3 MULTIPLY BY 8 FOR MEDIUM RES 

DH,6 + DETERMINE MEDIUM OR HIGH RES 

RLPENO + MODE 4 OR 5 

RLPENS 3 MODE 8, 9, OR A.B 

CLL4 3 SHIFT VALUE FOR HIGH RES 


AH,1 + COLUMN VALUE TIMES 2 FOR HIGH RES 
SHORT RLPEN® 


DH,9 3 CHECK MODE 
RLPEN7 3 MODE A.B 
RLPEND + MODE 9 
CL,2 3 MODE 8 SHIFT VALUE 
AH, 1 
3 NOT_HIGH_RES 
BX,.CL 3 MULTIPLY 416 FOR HIGH RES 
b--~ DETERMINE ALPHA CHAR POSITION 
DL,AH $ COLUMN VALUE FOR RETURN 
AH,AH 3 CLEAT TO CONVERT TO WORD 
DH, 872 + DIVISOR FOR ANK (8 ROW 2 SCAN) 
CRT_MODE,KJ_MODE; KANJI MODE ? 
RLPENLO 3 NO 
DH, CBOX_ROW/2 5 DIVISOR FOR KJ (28 ROW 2 SCAN) 
DH } DIVIDE FOR CHAR POSITION 
DHLAL 


§ SET ROW POSITION TO DH 
SHORT RLPEN13 } LIGHT_PEN_RETURN_SET 


i--- ALPHA MODE ON LIGHT PEN 
BYTE PTR CRT_COLS 3 DETERM SLUM Ve 


INE ROW,COLUMH VALUE 
3 ROWS TO DH 

DL.AH 3 COLS TO dL 

CH AL 3 SET ALx 

ALscL Y RONS” 


+ MULTIPLY ROWS H 8 
CRT_MODE,KJ_MODE; KANJI MOD 
RLPEWI2 3 NO icici 


s--- MULTIPLY ROWS © 18 
ALLL b MULTIPLY ROWS M16 
CH, 3 CH HAS CLH2 
AL.CH } AL HAS CLaig 
CH,AL 3 GET RASTER VALUE To RETURN REO 
Bh vats 3 COLUMN VALUE " 
BX, CL eee ae 
LIGHT_PEN_RETURN_SET 
AHL} INDICATE EVERYTHING SET 
~ LIGHT_PEN_RETURK 


SAVE RETURN VALUE CIN CASED 
GET BASE ADDRESS 
POINT TD RESET PARM 


we we we we we we 


DX. ADDR_6845 
DX.7 
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o7ED EE OUT — DX AL + ADDRESS, MOT DATA, IS IMPORTANT 
O7EE SA PoP «DX + RECOVER VALUE 
O7EF RUPENIS: + RETURN_NO_RESET 
O7EF 8B EC mov sBP. SP } SET FRAME POINTER 
O7FL 89 SE 08 MOV CBP+F_| 8X1, BX 3 SET RETURN BX 
O7FS 89 4E OA MOVs CBP+FTCXJ.CX —;-: SET RETURN CX 
O7F7 89 56 0C HOV (BP+FLDX},DX +: SET RETURN DX 
O7FA £8 1DD6 R CALL ENABLE_VG2 5 ENABLE VIDEO GENERATER 2 
o7FD 5D PoP soBP + RESTORE BP 
O7FE C3 RET > 
o7FF READ_LPEN ENDP 
sists pe RE a ak EI Ree gT 
; ACT_DISP_PAGE INT 10H, AH = 5 
; = ee 
; THIS ROUTINE SETS THE ACTIVE DISPLAY PAGE, ALLOWING 
; THE FULL USE OF THE RAM SET ASIDE FOR THE VIDEO ATTACHMENT 
3 
; INPUT AH = CRT MODE (MASKED) 
3 AL = NEW ACTIVE DISPLAY PAGE 
3 
; OUTPUT HONE 
i THE 6845 IS RESET TO DISPLAY THAT PAGE 
t 
Deine aniaeccelete ei cata ei pd eee hs 
ASSUME CS:CODE, DS:DATA 
O7FF ACT_DISP_PAGE PROC NEAR 
O7FF 55 PUSH BP 3 SAVE BP 
0800 As 80 TEST AL, O80H i GRI/CPU PAGE REG FUNCTION 
0802 75 2A JNZ —-SET_CRTCPU + YES, GO HANDLE 1 
0806 80 FC 06 CMP AH, GRAPHICS } GRAPHICS MODE 2 
0807 73 23 JAE ACTDPL 3 YES, SKIP 
0809 50 PUSH AX } SAVE CRT MODE 
080A Az 0062 R MOV -—«sACTIVE_PAGE, AL; SAVE ACTIVE PAGE VALUE 
080D 88 OE 004C R MOVs CX, CRTTLEN + GET SAVED LENGTH OF REGEN BUFFER 
o8il 98 CB 3 CONVERT AL TO WORD 
0812 50 PUSH AX 1 SAVE PAGE VALUE 
0813 -F7 EL mut cx ; DISPLAY PAGE TIMES REGEN LENGTH 
0815 AS OO4E R MOV CRT_START,AX 3 SAVE START ADDRESS FOR LATER USE 
0818 88 C8 Mov. eX, aX } START ADDRESS TO CX 
081A D1 FO SAR CX. 3 DIVIDE BY 2 FOR 6845 HANDLING 
O81C 84 0c MOVs AK, 2 ; 6845 REGISTER FOR START ADDRESS 
O81E E8 0602 R CALL OUT6845 
0821 58 PoP Bx ; RECOVER PAGE VALUE 
0822 D1 E3 SAL BX, M2 FOR WORD OFFSET 
0826 88 87 O35C R HOV AX; (BX ¢ OFFSET CURSOR POSH] ; GET CURSOR FOR THIS PAGE 
0828 €8 06COR CALL SET_CURSOR ; SET THE CURSOR POSITION 
0828 58 Pop ax RESTORE CRT MOD 
82c ACTDP.: , © Gay OORe 
PoP P 
oz 5D Por 3 + RESTORE BP 
os2e ACT_DISP_PAGE _ ENDP 
jecsbeaetest pep eSececeaseee eek ace cececwcccacecuan 
ry 
i SET_CRTCPU 
8 
i THIS ROUTINE READS OR WRITES THE CRIVCPU PAGE REGISTERS 
; INPUT AH = CRT MODE (MASKED) 
1 AL = 83H SET BOTH CRT AND CPU PAGE REGS 
3 BH = VALUE TO SET IN CRT PAGE REG 
3 BL = VALUE TO SET IN CPU PAGE REG 
i CL 2 CRT MODE FOR CPU PAGE 
; AL = 82H SET CRT PAGE REG 
; BH = VALUE TO SET IN CRT PAGE REO 
; AL 2 81H SET CPU PAGE REG 
; BL = VALUE TO SET IN CPU PAGE REG 
; cl = CRT MODE FOR CPU PAGE 
AL = 80H READ CURRENT VALUE OF CRI/CPU PAGE REGS 
; OUTPUT ALL FUNCTIONS RETURN 
; BH = CURRENT CONTENTS OF CRT PAGE REG 
A BL = CURRENT CONTENTS OF CPU PAGE REG 
t 
t cpeaoeenei nciay riphnaiacanneaty SERVERS pete) Siem 
oa2e SET_CRTCPU PROC NEAR 
O82E FF 36 0355 R PUSH WORD PTR IEP_CTRL } SAVE INTERRUPT ENABLE PROHIBIT FLAG 
0832 80 OE 0355 R FF oR BYTE PTR IEPLCTRL.TRUE 3 PROHIBIT INTERRUPT ENABLE 
0837 €8 1BEQ R CALL DISABLE_INT 3 DISABLE ALL HARDWARE INTERRUPT 
083A 80 FC 04 CMP AH, GRAPHICS 1 GRAPHICS MODE ? 
0830 73 10 JAG ss SETCCO8 + YES 
O83F 50 PUSH AX b SAVE AX 
0840 51 PUSH = &X + SAVE CX 
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084i 8B OE 0060 R MoV 
0845 Hh co 20 Or 
0848 
Osh ES 0602 R sae 
0asD 39 For 
Ht SETCCOO: 
Os4F ES 0940 R CALL 
0852 80 SE 00469 R 10 cMP 
0857 72 07 JB 
PUSH 
0859 50 
085A 88 853F ar 
085D CD 16 ane 
O8SF 58 er 
0860 CALL 
OAG0 E8 1DBO R 
0863 8A EO MOV 
0865 BA OSDA MoV 
0868 Scci: 
0868 EC IN 
0869 24 08 AND 
086B «74 FB Jz 
086d 80 FB 08 cmp 
0870 «73 08 JAE 
0872 BA OSDF MOV 
0875 AC OOBAR MoV 
0878 EB 06 JMP 
087A Scc2: 
0874 BA 0309 MOV 
987D AO OS3C R MoV 
03380 sccs: 
0880 80 FC 80 CMP 
0883 74 3E JZ 
0885 80 FC 84 CMP 
088s 73 39 JHC 
088k FG C4 OL TEST 
088d 74 39 JZ 
OssF 53 PUSH 
0890 88 OE 0069 R MOV 
0896 BA FO MoV 
0896 8A D9 MOV 
0898 80 E3 OF AND 
0898 E8 O59C R CALL 
0B5E 58 PoP 
O89F 88 1E O34C R MOV 
O8AS ES 1888 R CALL 
O8AG ES 1BB4 R CALL 
08A9 DO E3 SHL 
08AB DO E3 SHL 
O8AD DO E3 SHL 
O8AF 24 C7 AND 
08B1 80 ES 38 AND 
08BG 0A C3 OR 
08B6 «EE our 
0837 80 SE O36 R O8 cmp 
08Bc 73 07 JAE 
C8BE AZ DOSA R MOV 
C8Cl EB 05 JMP 
acs scc32 
O8CS EB 43 * mp 
08cs secs 
08CS AZ O33CR * nov 
08g SCCS: 
088 F6 CE 02 TEST 
O8CB 74 3B JZ 
C8CD 88 3E O34D MOV 
08D1 80 FF og 
08D6 73 08 iE 
0806 «BA O3DF 
0809 AO O08A R ay 
O8DC EB 06 IMP 
O8DE 
O8DE BA O39 Pe aa 
O8El AO O33C RK Mov 
baes . seca: 
OBES 26 Fg AND 
O8E6 80 E7 07 AND 
O8E9 OA Cc? oR 
O8EB EE OUT 
OSEC 8A 26 0347 R MoV 


CX, CURSOR_MODE 


3 GET CURSOR MODE OF TEXT 


CH,CURSOR_DISABLEs DISABLE CURSOR 


AH, 10 
OUT6845 
cx 


AX 
ERASE_SCURSOR 


+ SET 6845 CURSOR REGISTER 
3 OUT DATA TO 6845 

t RESTORE CX 

3 RESTORE Ax 


3 ERASE SOFTWARE CURSOR 


CRT_MODE,KJ_MODE; KANJI MODE ? 
scco 3 KO 


Ax 

AX, KKN_TERM 
KEYBORD 

Ax 


ENABLE_VG1 
AH, AL 

DX, VGA_CTL 
AL, DX 

AL, VERTRET 
ScCl 

BL, VRAM2_PAGE 
SCC2 


DX, PAGREG 
AL, PAGDAT 
SHORT SCC3 


DX, PAGREG2 
AL. PAGDAT2 


Bx 
CRY_MODE.CL 
BH,CL 

BL,CL 


BL, KJ_OFF 
SMODE_SET 
BX 


CPU_PAGE, BL 


ENABLE_KJROM 
ENABLE_VRAM 


BL,1 

BL,1 

BL.1 

AL, NOT CPUREG 
BL,CPUREG 

AL, BL 

DX,AL 


TERMINATE KANA-KAN 


we ee ee 


s--~~~ WAIT VERTICAL RETRACE 
3 ENABLE VIDEO GENERATER 1 


3 SAVE REQUEST IN AH 
} SET ADDRESS OF GATE ARRAY 


3 GET STATUS 
+ VERTICAL RETRACE? 
3 NO, WAIT FOR IT 


s-~~-- SELECT VIDEO RAM 1 OR 2 
+ VIDEO RAM 2 ? 
3 YES 


3 SET IQ ADDRESS OF PAGE REG 
5 GET DATA LAST OUTPUT TO REG 


3 SET I0 ADDRESS OF PAGE REG 
3 GET DATA LAST OUTPUT TO REG 


3~~~-~ CHECK FUNCTION 
READ FUNCTION REQUESTED? 
YES, DON'T SET ANYTHING 
VALID REQUEST? 

NO, PRETEND IT WAS A READ REQUEST 
SET CPU REG? 

NO, GO SEE ABOUT CRT REG 
SAVE PAGE NO. 

SET MODE 

SET UNMASKED MODE TO BH 
SET MASKED MODE TO BL 


SET SOFTWARE MODE 


We we we we we we we we we we we we 


~ 


SET NEW CPU PAGE 


DISABLE BOTH VRAM1 AND VRAM2 ONCE 
SELECT V-RAM ACCORDING TO CPU PAGE 


s~> NEW CPU PAGE IS IN CURRENT V-RAM 
3 SHIFT VALUE TO RIGHT BIT POSITION 


ary 


+ CLEAR OLD CPU VALUE 

+ BE SURE UNRELATED BITS ARE ZERO 
+ OR_IN NEW VALUE 

3 SET NEW VALUE 


CPU_PAGE,VRAM2_PAGE ; VIDEO RAM 2 ? 
secy 3 YES 


PAGDAT,AL 
SHORT SCC5 


SHORT S¢c11 


PAGDAT2,AL 
AH,2 
scecii 


CRT_PAGE, BH 
BH, VRAM2_PAGE 
SCC? 

DX, PAGREG 


AL, PAGDAT 
SHORT Sccs 


DX, PAGREG2 
AL, PAGDAT2 
AL,NOT CRTREG 
BH, CRTREG 

AL. BH 

OX, AL 

AK, SUPIPCR 
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3 SAVE COPY IN RAM 


s INTERMEDIATE POINT TO JUMP 


3 SAVE COPY IN RAM 
$ SET CRT REG? 
s HO, GO RETURN CURRENT SETTINGS 


s-=--- SET CRT PAGE 
+ SAVE CRT PAGE TO RAM 


} VIDEO RAM 2 ? 
3 YES 


5 
3 


CLEAR OLD cRY vaLUE 

BE SURE UNRELATED BITS ARE ZERO 
OR IN NEW VALUE 

SET NEW VALUES 


we we ee we 


~ 


GET LAST DATA OF SUPERIMPOSE CONTROL REG. 


> 


6940 


0940 
0941 


0942 
0965 


0947 
094c 


O94E 
0952 
0956 


0959 
O95E 
O9SE 
O9SF 


80 SE 034D R 08 
73 08 


AZ COBA R 
80 E4 FE 
EB 06 


A2 O33C R 
80 cc 01 
E8 0929 R 


BA SE O34D R 
BA 1E O34C R 


E8 1DD6 R 


B4 03 
cD 10 


BS 01 

CD 10 

8F 06 0355 R 
E8 1BEC R 


8B EC 

89 SE 08 
5D 

C3 


oc 
Fe C3 02 
75 03 
80 ES OL 


By 06 
BA OSDA 
€8 1E22 RX 


88 26 0347 R 


$1 
52 


80 FC 04 
72:17 


Fé 06 0349 R FF 
74 10 


8B OE OS4E R 

8B 16 O35C R 

E8 0618 R 

C6 06 0349 R 00 


SA 
59 


cs 


cmp CRT_PAGE,VRAM2_PAGE 5 VIDEO RAM 2 ? 
JAE scc9 3 YES 
MOV PAGDAT,AL 3 
AND AH, NOT FOREVRAM 3 SET V-RAM AS BACKGROUND 
JMP SHORT SCC1O0 
sccgo: 
MOV PAGDAT2,AL ; 
<ce19 OR AH, FOREVRAM 3 SET V-RAM AS FOREGROUND 
? 
S001 CALL SET_SUPREG 3 SET AH TO SUPERIMPOSE REGISTER 
: 
MOV BH, CRT_PAGE 3 GET CURRENT CRT PAGE 
MOV BL,CPU_PAGE 3 GET CURRENT CPU PAGE 
CALL ENABLE_VG2 3; ENABLE VIDEO GENERATER 2 
MOV AH,3 3 GET CURSOR TYPE 
INT VIDEO 3 
MOV AH,1 3 SET CURSOR TYPE 
INT VIDEO 5 
scci2: 
PoP WORD PTR IEP_CTRL;RESTORE INTERRUPT ENABLE PROHIBIT FLAG 
CALL ENABLE_INT 3 ENABLE INTERRUPT IF IT IS NOT PROHIBITED 
MOV BP,SP 3 SET FRAME POINTER . 
MOV (BP+F_8X),BX 3 SET RETURN BX 
PoP BP 3 RESTORE BP 
RET 
SET_CRTCPU ENDP 
patceuces: Sitetieesceweceecatsewsoeacece clos Ccueweutwceennees 
3 
3 SET_SUPREG SET SUPERIMPOSE REGISTER 
3 welnosJocs 
Pf 
3 THIS ROUTINE SET SUPERIMPOSE REGISTER 
3 
3 INPUT AH = VALUE TO SET 
3 os = DATA SEGMENT 
Hy OUTPUT NONE 
3 VOLATILE AL, BX, DX 
3 
pOesetab cee ete ceo ecco ete Sevuseinnwntcaccncenaccdete 
SET_SUPREG PROC = NEAR 
MOV BL. AK 3 SET OUT DATA TO BL 
TEST BL, TRANSON 3 SET SUPERIMPOSE ON ? 
JNE SUPREG1 3 YES 
eureeai AND BL, FOREVRAM 3 MASK MODE CONTROL BITS FOR SUPERIMPOSE OFF 
: 
BH,PCSUPER 3 SET SUPERIMPOSE CONTROL REG 
MoV DX,S2ABASE 3 GET ADDRESS OF SX-02A 
CALL OUT_GA 3 QUT BX TO GATE ARRAY 
MOV SUPIPCR,AH 3 SAVE NEW VALUE TO RAM 
RET 
SET_SUPREG ENDP 
Jrroeoceee ce cece cesoeoseeenooosoorre —— ee: el 
3 
3 ERASE_SCURSOR ERASE SOFTWARE CURSOR 
; Seccneoreens 
t 
F THIS ROUTINE ERASE SOFTWARE CURSOR IF IT PRESENTS 
4 
’ INPUT AK = CRT MODE (MASKED) 
3 DS = DATA SEGMENT 
’ OUTPUT NONE 
’ VOLATILE NONE 
5 
Breror reese eee eeewcce meee eee: wee eer ewe eee eee ==. aes eeme 
ERASE_SCURSOR PROC NEAR 
PUSH = CX 3 SAVE CX 
PUSH DX 3 SAVE DX 
cup AK, GRAPHICS 3 GRAPHICS MODE ? 
JB ERACRS1 3 NO, 
TEST GC_PRESENT, TRUE 3 GRAPHICS CURSOR PRESENT ? 
J2 ERACRS1 + WO 
MOV CX, GCURSOR_MODE b SET CURSOR HODE 
MOV DX, CURSOR_POSN 3 SET CURSOR POSITION IN GRAPHICS 


CALL —- WRITE_GCURSOR 


MOV GC_PRESENT, FALSE 
ERACRS1: 

PoP Dx 

PoP cx 

RET 


WRITE GRAPHICS CURSOR 
FLAG OFF 


RESTORE DX 
RESTORE CX 


- = 


ee 
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0961 


$1 
$2 


80 


721 


8B 
8B 
€8 


SA 
59 


C3 


55 


8B E 


50 
iz} 


8A Di 


88 


80 
73 


&& 
eB 


FC 04 
L) 


OE OS4E R 
16 O35C R 
0618 R 


06 0349 R FF 


EC 06 
c 


0940 R 


8 
€7 77 
66 08 


FC 04 
os 


O9co R 
27 


SE 0069 8 10 
1D 


OoA0 
co 


69C9 R 


ERASE_SCURSOR ENDP 


3 APPEAR_SCURSOR APPEAR SOFTWARE CURSOR 
‘ ja Els phd iba 
; THIS ROUTINE APPEAR SOFTWARE CURSOR 
H INPUT AH = CRT MODE 
; DS = —s—dDATA SEGMENT 
’ OUTPUT NONE 
3 VOLATILE NONE 
8 
j Suiniemtecanaccss Peletinas wer ec ewe ewnwneennenennccen ean ee ne 
APPEAR_SCURSOR PROC NEAR 
PUSH CX 3 SAVE REGISTERS 
PUSH DX 3 
cup AH, GRAPHICS 3 GRAPHICS MODE ? 
JB APPCRS1 3 NO, 
MOV CX, GCURSOR_MODE 3 SET CURSOR MODE 
MOV DX, CURSOR_POSN 3 SET CURSOR POSITION IN GRAPHICS 
CALL  WRITE_GCURSOR s WRITE GRAPHICS CURSOR 
MoV GC_PRESENT, TRUE + FLAG ON 
APPCRS1: 
PoP DX 3 RESTORE REGISTERS 
PoP cx ; 
RET 
APPEAR_SCURSOR ENDP 
Jom ene ce nna nn wwn cee newew en nencnnnnececcecen 
3 
3 SCROLL_U! INT 10H, AH = 6 
0} Beecee ei 
3 THIS ROUTINE MOVES A BLOCK OF CHARACTERS UP 
3 ON THE SCREEN 
3 
3 
3 INPUT AH = CURRENT CRT MODE ( MASKED ) 
3 AL = NUMBER OF ROWS TO SCROLL 
3 CX = ROW/COLUMN OF UPPER LEFT CORNER 
3 DX = ROW/COLUMN OF LOWER RIGHT CORNER 
3 BH = ATTRIBUTE TO BE USED ON BLANKED LINE 
3 DS = DATA SEGMENT 
3 ES = REGEN BUFFER SEGMENT 
t 
3 OUTPUT NONE -- THE REGEN BUFFER IS MODIFIED 
; WORK CBP+SUC_MODE] = CURRENT CRT MODE ( MASKED ) 
3 CBP+SU_ULR}] = ROW OF UPPER LEFT CORNER 
3 CBP+SU_TSR] = TOP OF SOURCE ROW 
3 CBP+SULES1] = SEGMENT OF V-RAML 
3 
Peeeecccos ste ec cs Sebioneesccneseucue 
ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
SCROLL_UP PROC HEAR 
. PUSH BP + SAVE BP 
SuB SP, SUP_LOCAL 3 ALLOCATE LOCAL WORK AREA 
MOV BP,SP + SET BP AS FRAME POINTER 
PUSH = AX 3 SAVE CRT MODE 
PUSH = DS + SAVE DS 
CALL ERASE_SCURSOR 3 ERASE SOFTWARE CURSOR 
MOV BLLAL + SAVE LINE COUNT IH BL 
AND BH, HAN_MASK 3 STRIP KANJI BITS OFF FOR SPACE CODE 
MOV BYTE PTR [CBP4SUC_MODE),AH; SET MASKED CRT MODE 
CMP AH, GRAPHICS + TEST FOR GRAPHICS MODE 
JAE SCRUP1 3 YES, HANDLE SEPARATELY 
CALL TEXT_uP s SCROLL TEXT UP 
JMP SHORT SCRUPS + GO TO EXD 
SCRUP1: ies 
CRT_MODE,KJ_MODE; KJ GRAPHICS MODE 
JB scrir2 + NO ' 


MoV BYTE PTR [BP+S 


U_ULRI,CH + SET UPPER LEFT ROW POSITION 
MOV BYTE PTR [BP+SU-TSRI.CH | whishan 
ADD ——C#BYTE PTR CBP4SU_TSR),AL 3 SET TOP OF SOURCE ROM POSITION 
PUSH ax ; 
ae | 
cx 
eh Ge 1 SAVE REGISTERS 
PUSH Ds ; 
PUSH «gS i 
Mov 


AX,P_CODE_START 
HH ES AR : ee CODE BUFFER SEGMENT 


CALL TEXT_Uup 5 SCROLL TEXT UP 


A-36 


iF 
58 
Es 
83 

D 
cs 


OA2B R 


0961 R 
C4 06 


Pop ES 1 
POP DS 3 
POP DX ; 
POP cx 3 RESTORE REGISTERS 
POP BX ; 
POP AX 3 
SCRUP2: 
ALL = GRAPHICS_uP 5 SCROLL IN GRAPHICS MODE 
SCRUP3: 
ASSUME DS: DATA 
PoP Ds 3 RESTORE DS 
PoP AX ; RESTORE CRT MODE 
CALL = APPEAR_SCURSOR 3 WRITES SOFTWARE CURSOR 
ADD SP»SUP_LOCAL 5 DEALLOCATE LOCAL WORK AREA 
PoP BP 3 RESTORE BP 
RET 3 RETURN TO CALLER 
SCROLL_UP EXDP 
jeeteteccee tee oo le 
3 
3 TEXT_UP 
3 
3 THIS ROUTINE MOVES A BLOCK OF CHARACTERS UP 
; ON THE TEXT SCREEN 
3 
i INPUT BH = ATTRIBUTE TO BE USED ON BLANKED LINE 
; BL = NUMBER OF ROWS TO SCROLL 
; CX = ROW/COLUMN OF UPPER LEFT CORNER 
i DX = ROW/COLUMN OF LOWER RIGHT CORNER 
; DS = DATA SEGMENT 
H ES = REGEN BUFFER SEGMENT 
; OUTPUT NONE 
3 
3 VOLATILE AX, BL»CX, DX, $I,DI,DS 
TEXT_UP PROC NEAR 
PUSH so BP > SAVE BP 
PUSH BX + SAVE FILL ATTRIBUTE IN BH 
Mov AX, ex 3 UPPER LEFT POSITION 
CALL = SCROLL_POSITION ; DO SETUP FOR SCROLL 
Jz TUP4 ; BLANK _FIELD 
ASSUME DS:VIDEO_RAM 
ADD SI, AX 3 FROM ADDRESS 
Mov AH. DH 3 @ ROWS IN BLOCK 
SUB AH. BL 3 @ ROWS TO BE MOVED 
TUPi: 
CALL MOVE_ROW 3 MOVE ONE ROW 
ADD ,BP 
ADD DI.BP 3 POINT TO NEXT LINE IN BLOCK 
DEC AH 3 COUNT OF LINES TO MOVE 
JNZ TUPL 3 ROW_LOOP 
TUP2: 
POP ax 3 RECOVER ATTRIBUTE IN AH 
Mov AL,* 3 FILL WITH BLANKS 
TUP3: 
CALL CLEAR_ROW 3 CLEAR THE ROW 
ADD DI, BP 3 POINT TO NEXT LINE 
DEC l 3 COUNTER OF LINES TO SCROLL 
JNZ TUPS 3 CLEAR_LOOP 
Pop BP 3 RESTORE BP 
RET 3 RETURN TO CALLER 
TUP4: 
mov BL, OH 3} GET ROW COUNT 
JMP TuP2 3 GO CLEAR THAT AREA 
TEXT_UP ENDP 
PT Ser wennn was Sirs iSeSerena sucess eecercec at dt cceewecck 
; SCROLL_POSITION 
s 
THIS ROUTINE SET UP SOME PARAMETERS FOR SCROLL FUNCTION 
; INPUT AX = ROW/COLUMN 
BL = SCROLL ROW NUMBER 
; ourPuT ax = BL « CRTLCOLS x 2 
3 = 
; OX = DIFFERENCE OF ROW/COLUMN 
i BP = —CRT_COLS x 2 
; DI.SI = REGEN ADDRESS CORRESPONDING TO ROW/COLUMN 
: FLAG = ‘CONTENT OF BL 
; DS = ES 
5 
SSORESS Nai enw ren uerananininnithnnunccmaneuununnyeuen 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
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06D5 R 
oS 06 OO4E R 
F 


8B FO 


8B 2E COSA R 


Fe 26 COSA R 


8A CA 
F37 AB 
SF 
cs 


SCROLL_POSITION PROC NEAR 


POSITION 3 CONVERT TO REGEN POINTER 
ADDS AX CRT START 3 OFFSET OF ACTIVE PAGE 
MOV DI,AX — 3 TO ADDRESS FOR SCROLL 
MoV ST,AX 3 FROM ADDRESS FOR SCROLL 
SUB DX, CX 3 DX = @ROWS, OCOLS IN BLOCK 
Inc DH 


INC DL 3 INCREMENT FOR 0 ORIGIN 


XOR CH,CH 3 SET HIGH BYTE OF COUNT To ZERO 

mov BP,CRT_COLS 3 GET NUMBER OF COLUMNS IN DISPLAY 
ADD BP, BP 3 TIMES 2 FOR ATTRIBUTE BYTE 

MOV AL,BL 3 GET LINE COUNT 

MUL BYTE PTR CRT_COLS ; DETERMINE OFFSET TO FROM ADDRESS 
ADD AX, AX + M2 FOR ATTRIBUTE BYTE 

PUSH ES 3 ESTABLISH ADDRESSING TO REGEN BUFFER 
PoP DS s FOR BOTH POINTERS 

OR BL, BL ; 


0 SCROLL MEANS BLANK FIELD 
RETURN WITH FLAGS SET 


7 

m 

4 
~ 


MOVE_ROW 

THIS ROUTINE MOVES ONE ROW IN TEXT MODE 

INPUT DL = NUMBER OF CHARACTERS TO MOVE 
DS:SI = SOURCE TOP ADDRESS 


ES:DI : DESTINATION TOP ADDRESS 
OUTPUT NOTHING 


VOLATILE cL 


ASSUME CS:CODE, DS:VIDEO_RAM, ES:VIDEO_RAM 
MOVE_ROW PROC NEAR 


MoV CL.DL 3 GET 8 OF COLS TO MOVE 
PUSH SI 
PUSH DI 3 SAVE START ADDRESS 
REP MOVSW s MOVE THAT LINE ON SCREEN 
PoP DI 
PoP $I 3 RECOVER ADDRESSES 
RET 

MOVE_ROW ENDP 

Joren----- =e Pree n nen e-- 2 oo ---- e---ee ---- 

3 

; CLEAR_ROW 

; THIS ROUTINE MOVES ONE ROW IN TEXT MODE 

3 

3 INPUT AX = ATTRIBUTE/CHARACTER TO FILL 

3 ES:DI = DESTINATION TOP ADDRESS 

3 

; OUTPUT NOTHING 

3 

z VOLATILE cL 

5 

CLEAR_ROW PROC NEAR 
mov CL. DL 3 GET @ COLUMNS TO CLEAR 
PUSH DI 
REP STOSW $ STORE THE FILL CHARACTER 
POP DI 
RET 

CLEAR_ROW ENDP 


SCROLL UP (GRAPHICS) 


THIS ROUTINE SCROLLS UP THE INFORMATION ON THE CRT 


INPUT  ({BP+SUC_MODE) = CURRENT CRT MODE ( MASKED ) 
(BP+SU_ULR) = ROW OF UPPER LEFT CORNER 
CBP+SU_TSR) = TOP OF SOURCE ROW 
ees = UPPER LEFT CORNER OF REGION TO SCROLL 

’ 


DL_= LOWER RIGHT CORH 
BOTH OF THE onoee ER OF REGION TO SCROLL 


ARE IN CHARACTER POSITIONS 


BH = FILL VALUE FoR BLANKED LINES 

AL = @ LINES TO SCROLL (AL= 

DS = DATA SeGnens (AL=0 MEANS BLANK THE ENTIRE FIELD) 
ES = REGEN SEGMENT 


OUTPUT NOTHING, THE SCREEN IS SCROLLED 


VOLATILE AX, BL,CX,DX,$1,DI,D$ 


wes We we Be we we we we we we we Be Oe OF Be we Oe Oe we Oe OF Oe 


ASSUME CS:CODE, DS:DA 


A-38 


TA, ES:VIDEO_RAM 


ABO 
OABS 


OABG 
OABG 


OAB9 
OABD 


OAC1 
Oacs 


OACS 


8A 
8B 


2B 
81 
8A 
bo 


80 
72 


E& 


81 
81 


FE 
75 


GRAPHICS_uP 
bs Mov 
ci mov 
15E8 R CALL 
Fa MOV 
Di sus 
C2 0101 ADD 
&6 MOV 
&6 SAL 
& SAL 
SE 0049 R 14 CMP 
04 JB 
& SAL 
F4 ADD 

GRUP1: 
1D95 R call 
46 04 mov 
66 06 MoV 
FC 06 CMP 
17 JE 
E2 SAL 
€7 SAL 
FC 04 cmMP 
OE JE 
FC 05 cmp 
09 JE 
FC OA CMP 
04 JAE 
E2 SAL 
€7 SAL 

GRUP2: 

ED SUB 
oB OR 
16 JNZ 
DE MOV 
SE 0049 R 19 CMP 
OA JB 
46 01 02 TEST 
04 JZ 
C7? SFBO aoD 

GRUPS: 

OB19 R JMP 

GRUP4: 
cs MoV 
es SAL 
E$ SAL 
SE 0049 R 14 cmp 
04 JB 
E3 SAL 
Ds abD 

GRUPS: 
c3 MOV 
50 MOV 
€4 MUL 
F? MOV 
FO ADD 
E6 MOV 
is} Sus 
0049 R MoV 

PUSH 

POP 
7E 00 09 CMP 
du JAE 

GRUP6: 

OD63 R CALL 
EE 1F80 SuB 
EF 1FBO SUB 
cc DEC 
Fl JNZ 
52 JMP 


PROC NEAR 
BLLAL 3 SAVE LINE COUNT IN BL 
AX, CX + GET UPPER LEFT POSITION INTO AX REG 
3-~~ USE CHARACTER SUBROUTINE FOR POSITIONING 
s-ADDRESS RETURNED IS MULTIPLIED BY 2 FROM CORRECT VALUE 
GRAPH_POSN 
DI,AX 3 SAVE RESULT AS DESTINATION 
3 ADDRESS 
3--~- DETERMINE SIZE OF WINDOW 
DX, CX 
OX,101H 3 ADJUST VALUES 
AH, DH 3 SAVE VALUE OF DH¥1 TO AH 
DH,2 3 MULTIPLY 8 ROWS BY 4 SINCE 8 VERT DOTS/CHAR 
DH,1 3 AND EVEN/ODD ROWS 
CRT_MODE,KJGRAPH; KANJI GRAPHICS MODE ? 
GRUP1 3 WO 
DH,1 3 MULTIPLY @ ROWS BY 9 SINCE 18 VERT DOTS/CHAR 
DH, AH ; 
get_dirseg 


Cbp+su_esl),ex 


AH, CBP*¢SUC_MODE) 
AH.6 
GRuP2 


DL,2 
DI,1 


AH,4¢ 
GRuUP2 
AH,5 
GRUP2 
AH, OAH 
GRuP2 


DL.2 
DI,2 


pove--- 


CH,CH 


BL,BL 
GRUPS¢ 


BL.D 
CRT. 
GR 


H 
MODE,19H 
UPS 


BYTE PTR (BP*SU_ULR),1 
GRUPS 


DI,4000H-80 
GRUP12 
ALLBL 


BL.1 
BL.1 


CRT_MODE, KJGRAPH3 


GRUPS 


BL.1 
BLLAL 


ALL BL 
AH,80 


AL. CRT_MODE 
Es 
oS 
ASSUME 


3 get direct access segment of v-ranal 
3 save it 


3-~~ DETERMINE CRT MODE 

+ SET CRT MODE TO AH 

3 TEST FOR HIGH RES 

3 FIND_SOURCE 

3~--~ MEDIUM RES UP 

3 @ COLUMNS ™ 2, SINCE 2 BYTES/CHAR 
3 OFFSET M2 SINCE 2 BYTES/CHAR 


3 TEST FOR MEDIUM RES 
+ TEST FOR MEDIUM RES 
3 TEST FOR MEDIUM RES 


~~~ LOW RES UP 
@ COLUMNS * 2 AGAIN, SINCE 4 BYTES/CHAR 
GFFSET M2 AGAIN, SINCE 4 BYTES/CHAR 
ETERMINE THE SOURCE ADDRESS IN THE BUFFER 
FIND_SOURCE 
ZERO TO HIGH OF COUNT REG 


@ LINES TO SCROLL IS ZERO ? 
IF ZERO, THEN BLANK ENTIRE FIELD 


SET BLANK COUNT TO EVERYTHING IN FIELD 
. GRAPHICS 32K REGEN ? 


we ee Ove we we 


wee 


we we we 


ad ROW ? 
ADJUST POINTER 


$ SAVE VALUE OF BL™1 TO AL 
MULTIPLY NUMBER OF LINES BY 4 


KJ GRAPHICS MODE ? 
3 NO 


MULTIPLY NUMBER OF LINES BY 9 


GET NUMBER OF LINES IN AL 
80 BYTES/ROW 

DETERMINE OFFSET TO SOURCE 
SET UP SOURCE 

ADD IN OFFSET TO IT 
NUMBER OF ROWS IN FIELD 
DETERMINE NUMBER TO MOVE 


3 SET GRAPHICS MODE TO AL 
$ GET SEGMENTS BOTH POINTING TO REGEN 


DS: VIDEO_RAM 


Oe ee we we we we we 


b-=-~ LOOP THROUGH, MOVING ONE ROW AT A TIME, BOTH EVEN AND ODD 
3 FIELOS 


BYTE PTR [CBP+SUC_MODE),9 ; 
7 + YES 


GRuP 


G_MOVE_ROW 
SI,2000H-80 
DI,2000H-80 
AH 

GRUPS 


SHORT GRUPI2 


A-39 


MODE USES 32K REGEN? 


ROW_LOOP 
MOVE ONE ROW 


3 MOVE TO NEXT ROW 


wo ee 


NUMBER OF ROWS TO MOVE 
CONTINUE TILL ALL MOVED 


3 MOVE END 
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oB19 
OBB 


OB1B 
OBIF 


oB21 
OB22 


B23 
OB26 


OB29 
OB2A 


OB2B 
B28 


OB2E 
0332 


OBS4 
0836 


0838 
oBsc 
0B40 


0842 
OBS 


obese 
OBGA 


oBsc 
0BSD 


OBSE 
0B51 


0B546 
0855 


OBS6 
0BS6 
0BS9 
0BSD 
OB61 


OB6S 
0BG7 


GRUP7: sie 
3¢ 14 
72 16 JB 
F6 46 01 01 TEST 
it & SFBO AbD 
8 
GRUP8: 
F6 46 02 01 TEST 
a te SFBO ADD 
1 6 
. GRUP9: 
80 7E 00 OB CMP 
75 11 JHE 
57 PUSH 
56 PUSH 
1E PUSH 
06 PUSH 
8E SE 06 MOV 
8E 46 04 MoV 
E8 OD63 R CALL 
07 PoP 
1F POP 
SE PoP 
SF PoP 
GRUP91: 
E8 OD63 R CALL 
81 C6 2000 ADD 
81 FE 8000 cMP 
72 04 JB 
81 EE 7F6O SUB 
GRUP1O: 
81 C7 2000 ADD 
81 FF 8000 CMP 
72 06 JB 
81 EF 7F60 sus 
GRUP11: 
FE CC DEC 
7S 6 JNZ 
GRUP12: 
8A C7 MoV 
GRUPIS: 
80 7E 00 OB CMP 
75 0A JHE 
57 PUSH 
06 PUSH 
8E 46 06 MOV 
E8 OD7C R CALL 
07 PoP 
SF POP 
GRUP131: 
E8 OD7C R CALL 
80 7E 00 09 CMP 
72:33 Je 
FE CB DEC 
74°37 Jz 
81 C7 2000 ADD 
81 FF 8000 CMP 
72 04 JB 
81 EF 7F60 “sus 
GRUP 14: 
80 7E 00 op 
75 0A ii 
57 PUSH 
oe, PUSH 
BE 46 06 
€8 OD7C R cnt 
07 
Pop 
SF POP 
GRUP141: 
E8 oDIC R CALL 
81 C7 3FB0 
81 FF S9FBO ao 
72 04 ri 
81 EF 7F60 sus 
GRUP15: 


ten~~ 32K REGEN 
AL. KJGRAPH 3 KJ GRAPHICS MODE ? 
GRUP9 3 NO 
BYTE PTR (BP+SU_ULR),1 3; 
GRUPS 
DI, 4000H-80 
BYTE PTR (BP*SU_TSRI,1 
GRUP? 
$1,4000H-80 


ODD ROW ? 

NO 

ADJUST POINTER 
ODD ROW ? 

NO 

ADJUST POINTER 


wee 


; 
3 
3 


640 X 200 X 16 COLOR ? 
a SCROLL V-RAM 1 
SAVE REGISTERS 


BYTE oe (BP *SUC. OBEY See 3 
GRUP? NO 


; 

; 
Es 3 
DS, (BP+su_ES1) 


3 GET SEGMENT OF V-RAM 1 

ES,(BP+Ssu_E$1) 3 

G_MOVE_ROW + MOVE ROW 

Es ; 

Ds 3 RESTORE REGISTERS 

SI 3 

DI 3 

G_MOVE_Row 3 MOVE ONE ROW 

S1T,2000H 3 NEXT ROW 

SI,8000H 3 IN 32K REGEN 2 

GRUPO + YES 

ST,8000H-160 + NO, WRAP 

DI,2000H 3 NEXT ROW 

DI,8000H 3 IN 32K REGEN ? 

GRUP11 3 YES 

DI,8000H-160 + NO, WRAP 

AH + NUMBER OF ROWS TO MOVE 

GRUP? } CONTINUE TILL ALL MOVED 
s--~ FILL IN THE VACATED LINECS) 
3 CLEAR_ENTRY 

AL,BH 3 ATTRIBUTE TO FILL WITH 


BYTE PTR [BP+SUC_MODE),0BH 3 640 X 200 x 16 COLOR ? 
GRUP132 + NO 


DI + SAVE REGISTERS 

eS 3 

ES,CBP+SU_ES1) 5 GET SEGMENT OF V-RAM 1 
G_CLEAR_ROW 3 CLEAR ROW 

ES 3 RESTORE REGISTERS 

DI 3 

G_CLEAR_ROW 3 CLEAR THAT ROW 


BYTE PTR (BP#SUC_MODE),9 ; MODE USES 32K REGEN? 
GRUPIS 3 NO, JUMP 


BL 3 ADJUST COUNT 

GRUP 16 + IF ZERO, THEN DONE 
DI,2000K 

DI,8000H 5 IN 32K REGEN RANGE ? 
GRUP 14 + YES 


DI,8000H-160 3 ADJUST POIHTER 


BYTE PIR CBP+SUC_MODE), oBH 0x 16 COLOR ? 
GRUPLOy wae 3 64 200 X 16 ¢ 


DI + SAVE REGISTERS 

ES ; 

ES,CBP4SU_ES1) ; GET ,SEGHENT OF V-RaM 
G_CLEAR_ROW } CLEAR ROW ila 

ES 3 RESTORE REGISTERS 

DI ; 

G_CLEAR_ROW + CLEAR 2 MORE ROWS 
DI,2000H + (2000H-80) 

Cro OOH + (2000K-80)5 IN 32K REGEN RANGE ? 
GRUP15 > YES 


DI.8000H-160 + BACK UP POINTERS 


A-40 


81 
FE 
75 
cs 


55 


EF 1FBO 
cB 
ac 


EC 06 


8B EC 


50 
Es 
FD 
8A 
80 
88 
73 


EB 2 


0940 R 
Ds 

—7 77 

66 00 

FC 04 

05 


OBBF R 
7 


SE 0049 R 14 
1D 


76 01 
76 02 
46 02 


OOAG 
co 


OBBF R 


0961 R 
C4 06 


SUB DI,2000H-80 3 POINT TO NEXT LINE 
DEC BL 3 NUMBER OF LINES TO FILL 
JNZ GRUP1$ + CLEAR_LOOP 
GRUP 16: 
RET 3 EVERYTHING DONE 
GRAPHICS_UP ENDP 
Jeeewnenn anne. seewece Sennwewencunons= 
SCROLL_DOWN INT 10H, AH = 7 


THIS ROUTINE MOVES THE CHARACTERS WITHIN A DEFINED 
BLOCK DOWN ON THE SCREEN, FILLING THE TOP LINES 
WITH A DEFINED CHARACTER 


INPUT AH = CURRENT CRT MODE ( MASKED ) 
AL = NUMBER OF LINES TO SCROLL 
CX = UPPER LEFT CORNER OF REGION 
DX = LOWER RIGHT CORNER OF REGION 
BH = ATTRIBUTE TO BE USED ON BLANKED LINE 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 


QUPUT NONE -~ SCREEN IS SCROLLED 


WORK CBP*SDC_MODE) CURRENT CRT MODE ( MASKED ) 
CBP*SD_LRR) LOWER RIGHT ROW POSITION 
CBP+SD_B8SR) BOTTOM OF SOURCE ROW POSITION 
{BP+SD_ES1) SEGMENT OF V-RAM 1 


ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 


Be We we We we we we we we OF OF Oe Be Be we Oe we we Be OF Oe we 


SCROLL_DOWN PROC NEAR 
PUSH BP 3 SAVE BP 
SUB SP,SDN_LOCAL 3 ALLOCATE 2 BYTE FOR LOCAL WORK AREA 
MOV BP,SP 3 SET BP AS FRAME POINTER 
PUSH Ax 3 SAVE CRT MODE 
PUSH DS 3 SAVE DS 
CALL ERASE_SCURSOR 3 ERASE SOFTWARE CURSOR 
STD 3 DIRECTION FOR SCROLL DOWN 
MoV BLLAL 3 LINE COUNT TO BL 
AND BH, HAN_MASK 3 STRIP KANJI BITS OFF FOR SPACE CODE 
MoV BYTE PTR (BP*SDC_MODEJ,AH; SEY MASKED CRT MODE 
CMP AH, GRAPHICS 3 TEST FOR GRAPHICS 
JAE SCRDN1 3 YES, HANDLE SEPARATELY 
CALL TEXT_DOWN 3 SCROLL TEXT DOWN 
JmP SHORT SCRDNS 3 END 
SCRDN1: 
CMP CRT_MODE,KJGRAPH; KJ GRAPHICS MODE ? 
JB SCRBN2 3 NO 
mov BYTE PTR C(BP+#SD_LRR),DH 3 SAVE LOWER RIGHT ROW POSITION 
MOV BYTE PTR (BP+SD_BSRJ,DH ; 
SUB BYTE PTR C(BP*SD_BSR),AL ; SAVE BOTTOM OF SOURCE ROW POSITION 
PUSH ax 3 
PUSH BX 3 
PUSH cx 3 SAVE REGISTERS 
PUSH DX 3 
PUSH DS 3 
PUSH ES 3 
MoV AX,P_CODE_START ; SET PEDUDO CODE BUFFER 
mov ES,AX 3 0 ES 
ASSUME ES:P_CODE_BUFFER 
CALL TEXT_DOWN 3 SCROLL TEXT DOWN 
PoP ES 8 
POP DS ’ 
PoP DX 3 
PoP cx 3 RESRORE REGISTERS 
PoP BX 3 
PoP AX 3 
SCRDN2: 
CALL GRAPHICS_DOWN 3 SCROLL DOWN IN GRAPHICS MODE 
SCRDNS: 
ASSUME DS: DATA 
POP Ds 3 RESTORE DS 
PoP ax 3 RESTORE CRT MODE 
CALL APPEAR_SCURSOR 3 WRITES SOFTWARE CURSOR 
adD SP.SDN_LOCAL 3 DEALLOCATE LOCAL WORK AREA 
POP BP 3 RESTORE BP 
RET 3 SCROLL_END 
SCROLL_DOWN ENDP 
J Rowen wwww nn nc ewww nnn nwween ce eeun ee 
TEXT_DOWN 


THIS ROUTINE MOVES THE CHARACTERS WITHIN A DEFINED 
BLOCK DOWN ON THE TEXT SCREEN, FILLING THE TOP LINES 
WITH A DEFINED CHARACTER 
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FD 
8B 


E38 
88 


2B 
81 
BA 


00 
80 
72 


Do 
02 


20 
OA2G RR 


F7 


DE 
€E 


08 
c2 


15E8 R 
F& 


D1 
C2 0101 


E6 
&6 
&6 


SE 00469 R 14 
04 


€6 
F4 


3 
BH = ATTRIBUTE TO BE USED ON BLANKED LINE 
: THPUT OBL = NUMBER OF LINES TO SCROLL 
; CX = UPPER LEFT CORNER OF REGION 
3 DX = LOWER RIGHT CORNER OF REGION 
3 DS = DATA SEGMENT 
3 ES = REGEN SEGMENT 
H OUPUT NONE 
; VOLATILE AX,BL,CX,DX,SI,DI,DS 
poneteesteccsvsecnncem weretienteccdeous 
TEXT_DOWN PROC = NEAR 
PUSH BP 3 SAVE BP 
PUSH BX + SAVE ATTRIBUTE IN BH 
MOV , 3 LOWER RIGHT CORNER 
CALL = SCROLL_POSITION ; GET REGEN LOCATION 
JZ TDOWNS 
ASSUME DS: VIDEO_RAM 
SUB SI,AX + SI_IS FROM ADDRESS 
MoV AH, DH + GET TOTAL ® ROWS 
SUB AHL BL + COUNT TO MOVE IN SCROLL 
TDOWN1: 
CALL = MOVE_ROW 3 MOVE ONE ROW 
SUB SI, BP 
SUB DI, BP 
DEC AH 
JNZ TDOWN1 
TDOWN2: 
POP Ax 3 RECOVER ATTRIBUTE IN AH 
mov AL,* ° 
TDOWHS: 
CALL CLEAR_ROW 3 CLEAR ONE ROW 
SUB DI,BP 3 GO TO NEXT ROW 
DEC BL 
JNZ TDOWNS 
POP BP + RESTORE BP 
RET 3 SCROLL_END 
TDOWNG: 
mov BL, DH 
JMP SHORT TDOWN2 
TEXT_DOWN ENDP 
J meter enna nnn nee e eee 
3 
3 SCROLL DOWN (GRAPHICS) 
3 THIS ROUTINE SCROLLS DOWN THE INFORMATION ON THE CRT 
; INPUT {CBP#SDC_MODE) = CURRENT CRT MODE ( MASKED ) 
; CBP#SD_URR) = LOWER RIGHT ROW POSITION 
3 CBP+SD_8SR} = BOTTOM OF SOURCE ROW POSITION 
; CH.CL = UPPER LEFT CORNER OF REGION TO SCROLL 
3 DH.DL_= LOWER RIGHT CORNER OF REGION TO SCROLL 
3 BOTH OF THE ABOVE ARE IN CHARACTER POSITIONS 
3, BH = FILL VALUE FOR BLANKED LINES 
3 AL = @ LINES TO SCROLL CAL=0 MEANS BLANK THE ENTIRE FIELD) 
3 DS = DATA SEGMENT 
3 ES = REGEN SEGMENT 
. 
i OUTPUT NOTHING, THE SCREEN IS SCROLLED 
i VOLATILE AX,BL,CX,DX,SI,DI,DS 
° 
pOrrontwn~sSeSewer swe somemewavoneubesesc ane oc nee cSece, — 
ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
GRAPHICS_DOWN PROC NEAR 
STD 3 SET DIRECTION 
MOV BL,AL =; SAVE LINE COUNT IN BL 
MoV AX,DX__ i GET LOWER RIGHT POSITION INTO AX REG 
i=---2— ADDRESS. RETURNED nemo roa ZONING ALUE 
catu denen port ULTIPLIED BY 2 FROM CORRECT V 
MOV DI, AX i SAVE RESULT AS DESTINATION 
i ADDRESS 
Sin pees ; ETERMINE SIZE OF WINDOW 
ADD DX, 101K s ADJUST VALUES 
MOV AH, DH 3 SAVE VALUE OF DH™1 TO AH 
SAL DH,1 i MULTIPLY 8 ROWS BY 4 SINCE 8 VERT DOTS/CHAR 
SAL DH, 1 + AND EVEH7ODD ROWS . 
chp CRT_MODE,KJGRAPH; KANJI 
. a | KANJT GRAPHICS MODE ? 
sat ae } MULTIPLY @ ROWS BY 9 SINCE 18 VERT DOTS/CHAR 
GRDN1: 
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1D95 Rk 
46 04 


6 
FC 06 
21 


SE 0049 R 14 


FC 09 
OOFO 
08 


OOA0 
oS 


0280 
Fa 


DB 
19 


DE 
SE 0049 R 19 


oD 

46 01 01 
04 

C7 SFBO 
OD19 R 
OD41 R 
cs 


ES 
€3 


SE 0049 R 14 


04 


ES 
D8 


SE 0049 R 


7E 00 09 
2c 

0063 R 
7E 00 09 
15 

Cé 2000 
Cc? 2000 
OD63 R 


EE 4050 
EF 4050 
cc 


14 


GRDN2: 


GRDNS: 
GRDN¢: 


GRONS: 
GRDN6: 


GRDN?: 


GRDN8: 


MOV 
ADD 


OR 
INZ 


MOV 
cmp 


JB 
TEST 
JZ 
ADD 


cme 
JAE 
CALL 


CMP 
vc 


apD 
CALL 
SUB 
DEC 


GET_DIRSEG 3 GET DIRECT ACCESS SEGMENT OF V-RAM1 
CBP#SD_ES1),AX 3 SAVE IS 


s--- DETERMINE CRT MODE 
AH, terespc_Moved; aes CRT MODE TO AH 
AH 3 TEST FOR HIGH RES 
GRONZ 3 FIND_SOURCE_ DOWN 


; OWN 
DL,1 3 @ COLUMNS % 2, SINCE 2 BYTES/CHAR 
3 COFFSET OK) 
DI,1 + OFFSET M2 SINCE 2 BYTES/CHAR 
oI + POINT TO LAST BYTE 
AH,4 3 TEST FOR MEDIUM RES 
GRDN2 3 FIND_SOURCE_DOWN 
AH,5 3 TEST FOR MEDIUM RES 
GRDH2 3 FIND_SOURCE_DOWN 
AH,OAH 3 TEST FOR MEDIUM RES 
GRON2 3 FIND_SOURCE_DOWN 
ah,O0bh 3 test for 640 x 200 x 16 color 
ordn2 3 find_source_down 
DI 
DL, 3 @ COLUMNS * 2 AGAIN, SINCE 4 BYTES/CHAR 
3 COFFSET OK) 
DI,1 s OFFSET M2 AGAIN, SINCE 4 BYTES/CHAR 
DI,3 3 POINT TO LAST BYTE 
bwwnn--- DETERMINE THE SOURCE ADDRESS IN THE BUFFER 
+ FIND_SOURCE_DOWN 
CH,CH 3 ZERO TO HIGH OF COUNT REG 


CRT_MODE,KJGRAPH; eo MODE ? 


GRDHS 
3---_ ANK GRAPHICS | 
AH,9 3 USING 32K REGEN 
Ax Bontv2-1) ; OFFSET a LAST Row OF PIXELS IF 16K REGEN 


NO, 
AX, 160%(874-1) 3 OFFSET” To LAST ROW OF PIXELS IF S2K REGEN 
SHORT GRDN¢ 


g--- KJ GRAPHICS 
AX, B80(1872-1) ; OFFSET TO LAST ROW OF PIXELS 


DI,AX + POINT TO LAST ROW OF PIXELS 
BL.BL 3 @ LINES TO SCROLL IS ZERO ? 
GRDN? 


ET ENTIRE FIELD 
J GRAPHICS 32K REGEN ? 


Ra 


BL,DH ; 
CRT_MODE,19H ; 
GRDN6 

BYTE PTR CBP¢SD_LRRI,1 
GRDNS 


ODD ROW ? 
YES 
DI,4000H-80 


ADJUST POINTER 


GRDN16 

GRDN19 

ALLBL 3 SAVE VALUE OF BL™1 TO AL 

hee 3 MULTIPLY NUMBER OF LINES BY 4 


CRT_MODE,KJGRAPH; KANJI GRAPHICS MODE 2 
GRDNS NO 


3 


BL.1 3 MULTIPLY NUMBER OF LINES BY 9 
BLLAL 

ALLBL 3 GET NUMBER OF LINES IN AL 
AH,80 + 80 BYTES/ROW 

AH + DETERMINE OFFSET TO SOURCE 
SI,DI 3 SET UP SOURCE 

SI,AXx 3 SUBTRACT THE OFFSET 

AH,DH 3 NUMBER OF ROWS IN FIELD 

AH, BL 3 DETERMINE NUMBER TO MOVE 


CRT_MODE,KJGRAPH; KJ GRAPHICS MODE ? 
ae 3 BOTH SEGMENTS TO REGEN 


ASSUME DS: VIDEO_RAN 
GRON? 3 NO 
une reas THROUGH, MOVING ONE ROW 


A TIME, BOTH EVEN AND ODD FIELDS 
fabs PTR CBP+SDC. ‘MODE. 9 3 MODE USES 32K REGEN ? 


GRDN12 > YES 
3 ROW_LOOP_DOWN 
G_MOVE_ROW + MOVE ONE ROW 


BYTE PTR (BP*SDC_MODE),9 3 MODE USES 32K REGEN? 
GRONLO JUMP 


> ’ 


S1,2000H 3 ADJUST POINTERS 
DI,2000H 

G_MOVE_ROW 3 MOVE 2 MORE ROWS 
$1,4000H+80 + BACK UP POINTERS 
DI, 4000H+80 i 

AH 3 ADJUST COUNT 
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ODIB 80 
op21 «57 
OD22 06 


OD23 8E 
op2é «EB 


0D29 «07 
OD2A SF 


op2B E& 


OD2E 81 
D352 83 


EE 2050 
EF 2050 


cc 
74 
46 01 01 
C7 SFBO 
46 02 61 
Ce SFBO 


7E 00 OB 


ODES R 


EE 6000 
FE 00 


Cé 7F60 
EF 6000 
FF 00 

C7 7F6e 


cc 
cs 


c7 


7E 00 OB 
OA 


46 04 
OD7C R 


OD7C R 


EF 6000 
FF 00 


OD35 7D 04 


0D37' 81 


ODSB FE 
OD3D 75 


ODSF EB 


OD41 BA 
OD4s EB 


OD66 80 
OD4A 72 


opsc 81 
ODSo =6«€8 


0053 81 
FE 


0D59 «81 
E 
ODSF 75 


0D61 FC 
0D62 C3 


C7 7F60 


cB 
pc 


20 


c?7 

SD7C R 
7E 00 09 
oD 

C7 2000 
oD7IC R 
EF 4050 
cB 


EF 2050 
cB 
E2 


GRDN10: 


GRDNII: 
GRDNi2: 


GRDN13: 


PoP 
GRDN131: 
CALL 


GRDN14: 


GRDNI5: 


GRDNI6: 
GRON17: 


CMP 
JNE 


PUSH 
PUSH 


MOV 
CALL 


POP 
POP 

GRDH171: 

Z CALL 
SUB 
cnP 
JGE 
ADD 


DEC 
JNZ 


JMP 


GRDN18: 


GRDK19: 
mi 
GRDN20: 


GRDK21: 


GRON22: 


CLD 
RET 


GRAPHICS_ DOWN 


MOVE ONE row ¢ GRAPHICS ) 


SI,2000K+80 


3 MOVE TO NEXT ROW 
DI,2000H+80 


3 NUMBER OF ROWS TO MOVE 
GRDNY ¢ CONTINUE TILL ALL MOVED 
SHORT GRON19 

b-~~ 32K REGEN KJ MODE 
BYTE PTR CBP+SD_LRR),1 ODD ROW ? 
GRDN12 ES 
DI,4000H-80 ADJUST POINTER 
BYTE PTR CBP+SD_BSR),1 ; ODD ROW ? 
GRDN13 YES 


S1T,4000H-80 


; 


ADJUST POINTER 


we we 


BYTE PTR CBP*SDC_MODEJ,0BH ; 640 X 200 X 16 COLOR ? 
GRDN131 + NO 


$= SCROLL V-RAM 1 
DI 3 
SI 3 SAVE REGISTERS 
DS ; 
ES 3 
DS, (BP#SD_ES1) 3 GET SEGMENT OF V-RAM 1 
ES, (BP+SD_ES1) 3 
G_MOVE_ROW 3 MOVE ROW 
ES 3 
DS + RESTORE REGISTERS 
SI ; 
DI ; 
G_MOVE_ROW 3 MODE ONE ROW 
S1,6000H + NEXT ROW 
SI,0000H 3 IN 32K REGEN ? 
GRDK14 3 YES 
S1,8000H-160 3° NO, WRAP 
DI,6000H 3 NEXT ROW 
DI,0000H 3 IN 32K REGEN ? 
GRDNLS 3 YES 
DI,8000H-160 3 NO, WRAP 
AK 3 ADJUST COUNT 
GRDN13 3 CONTINUE TILL ALL MOVED 
AL, BH 3 ATTRIBUTE TO FILL WITH 


BYTE PTR [BP+SDC_MODE),OBH ; 640 X 200 X 16 COLOR ? 
GRDN171 3 NO 


DI 3 SAVE REGISTERS 
Es 3 


a 


Es, (BP+SD_ES1) GET SEGMENT OF V-RAM 1 
G_CLEAR_ROW 3 CLEAR ROW 


ES 3 RESTORE REGISTERS 
DI $ 

G_CLEAR_ROW 3 CLEAR A ROW 
DI,6000H 3 NEXT ROW 

DI,000H $ IN 32K REGEN 2? 
GRDN18 3 YES 

DI,8000H-160 3 NO, WRAP 


BL + NUMBER OF LINES TO FILL 
GRDN17 } CLEAR ROW LOOP DOWN BY 2 ROW 


SHORT GRDK22 5 DONE 


faceass FILL IN THE VACATED LINE(S) 
} CLEAR_ENTRY_DOWN 

AL, BH * ATTRIBUTE TO FILL WITH 
3 CLEAR_LOOP_DOWN 

G_CLEAR_ROW + CLEAR A ROW 


BYTE PTR (BP+SDC_MODE),9 3 MODE USES 32K REGEN 
GRDN21 Th. JUMP oe , 


DI,2000H NEXT ROW 
G_CLEAR_ROW CLEAR 2 MORE ROWS 


ed 


DI,4000H+80 + BACK UP POINTERS 

BL + ADJUST COUNT 

DI.,2000H+80 3 POINT TO NEXT LINE 

BL + NUMBER OF LINES TO FILL 

GRDH20 + CLEAR_LOOP_DOWN 
+ RESET THE DIRECTION FLAG 
+ EVERYTHING DONE 

ENDP 
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0D8D 
oD92 


0094 
0D99 


OD9B 
ODAO 


ODA2 
ODAS 


QDA7 
ODA? 
ODAA 


BA CA 
56 


57 
F37 AG 
SF 
5E 


81 C6 2000 
81 C7 2000 


56 
57 
8A CA 
F37 A4 
SF 
SE 


cs 


BA CA 

57 

F37 AA 

SF 

81 C7 2000 
57 

8A CA 

F3/ AA 

SF 


cs 


80 SE 0049 R 04 
243 

80 SE 0049 R 14 
3 oc 

80 SE 0049 R 10 
3 oc 


E8 ODFC R 
38 


B9 OOAD 
BE Cl 


3 

3 

3 

; INPUT 

: 

3 

; OUTPUT 

5 

3 

: VOLATILE 

powewennne see Omen macnn ne 

G_MOVE_ROW PROC 
MOV CL,DL 
PUSH SI 
PUSH DI 
REP MOVSB 
POP DI 
PoP SI 
ADD SI,2000H 
AOD DI,2000H 
PUSH SI 
PUSH oI 
mov CL.DL 
REP MOVSB 
PoP oI 
POP SI 
RET 

G_MOVE_ROW ENDP 


CLEAR ONE ROW ¢ 


THIS ROUTINE MOVES ONE GRAPHICS ROW 


DL = MOVE COUNT IN BYTE 
DS:SI = SOURCE ROW ADDRESS 


ES:DI = DESTINATION ROW ADDRESS 
SI = SI + 2000H 
DI = DI + 2000H 
cL 
NEAR 
3 NUMBER OF BYTES IN THE ROW 
SAVE POINTERS 
3 MOVE THE EVEN FIELD 
3 POINT TO THE ODD FIELD 
; 1. THE FOAHTERS: 
> COUNT BACK 
3 MOVE THE ODD FIELD 
> POINTERS BACK 
3 RETURN TO CALLER 
GRAPHICS ) 


THIS ROUTINE MOVES ONE GRAPHICS ROW 


; 
; INPUT DL = CLEAR COUNT IN BYTE 
; ES:DI = DESTINATION ROW ADDRESS 
Hy 
; OUTPUT DI = DI + 2000H 
; VOLATILE cL 
G_CLEAR_ROW = PROC-—O “NEAR 
nov cL.DL 3 NUMBER OF BYTES IN FIELD 
PUSH DT ; SAVE POINTER 
REP STOSB } STORE THE NEW VALUE 
POP DI 3 POINTER BACK 
ADD DI, 2000H 3 POINT TO ODD FIELD 
PUSH DI 
MOV Cl. DL 
REP STOSB 3 FILL THE ODD FILELD 
PoP DI 
RET 3 RETURN TO CALLER 
G_CLEAR.ROW © ENDP 


Jere t en wwe www ww enn noone ne wenn eee 


READ_ AC. CURRENT 


INPUT = AH 
BH 
oS 
ES 


OUTPUT AL 
AH 


wane 


De we Oe we we we we we we we we we we wr we 


INT 10H, AM = 


THIS ROUTINE READS THE ATTRIBUTE AND CHARACTER AT THE 
CURRENT CURSOR POSITION AND RETURNS THEM TO THE CALLER 


CURRENT CRT MODE (MASKED) 
DISPLAY PAGE ( ALPHA MODES ORLY ) 
DATA SEGMENT 

REGEN SEGMENT 


CHAR READ 
ATTRIBUTE READ 


ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 


READ_AC_CURRENT PROC NEAR 
cmp CRT_MODE,GRAPHICS;IS THIS ANK TEXT MODE ? 
Jc RDATCA 3 YES 
cHP CRT_MODE.KJGRAPH; KANJI GRAPHICS MODE ? 
JAE Roatc} > YES 
CMP CRT_MODE,KJ_MODE; KANJI TEXT MODE ? 
JAE RDACC2 3 YES 
CALL GRAPHICS_READ ; READ ANK GRAPHICS 
JMP SHORT ROACCS + END 
RDACCL: 
MOV CX,P_CODE_START 3 SET PEDUDO CODE BUFFER SEGMENT 
MOV €S,cX + TOES 
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0 BH ; CLEAR DISPLAY PAGE 
opag ee roacezs ~o® wee y 2 READ_AC_CONTINUE 
nN ND_POSITIO 
ODaT i ee nove Sree + ESTABLISH ADDRESSING IN SI 
U ES 3 
opse IF Pore DS + GET SEGMENT FOR QUICK ACCESS 
ASSUME DS: VIDEO_RAM 
ODES AD LODSW 3 GET THE CHARZATIR 
ODBS Fé C4 80 TEST AH, ZENBIT 3 2 BYTE CODE ? 
ODBS 74 24 Jz RDACCS + XO 
ODBB FG C4 08 TEST AH, ZEN2BIT 3 2ND BYTE CODE ? 
ODBE 75 0B JNZ RDACCS + YES 
g--- 1ST BYTE 
ODCO 3A E8 MOV CH,AL + SET 1ST CHARACTER'S CODE To CH 
opc2 8a oc MOV CL,DS:(S1) 3 SET 2ND CHARACTER'S CODE TO CL 
ODCe «EB 1B42 R CALL = CHECK_ROSS_CODE ; CHECK AND CONVERT ROSSIAN CHARACTER CODE 
oDC7 8A C5 MOV AL, CH 3 SET 1ST BYTE OF CONVERTED CODE 
opcs EB 14 JMP SHORT RDACCS =; END 
pcs RDACCS: s--~_2ND BYTE 
CDCR 8A CB MoV CLLAL 3 SET 2D CHARACTER'S CODE TO CL 
ODCD 8A 6C FC MOV CH,DS:(SI-4] 5 SET 1ST CHARACTER'S CODE TO CH 
ODDO E8 1842 R CALL = CHECK_ROSS_CODE 3; CHECK AND CONVERT ROSSIAN CHARACTER CODE 
ODDS 8A C1 MoV AL, CL s SET 2ND BYTE OF CONVERTED CODE 
ODDS «EB 08 JMP SHORT RDACCS 
ASSUME DS:DATA 
oDD7 RDACC4: 3 READ_AC_CONTINUE 
ODD? E8 ODEO R CALL —- FIND_POSITION 
ODDA 8B FS MOV SI,BX + ESTABLISH ADDRESSING IN SI 
ODDC 06 PUSH = ES. 3 
ODDD 1F PoP DS 3 GET SEGMENT FOR QUICK ACCESS 
ODDE AD LODSW 3 GET THE CHARZATIR 
ODDF RDACCS: 
ODDF C3 RET 
ODED READ_AC_CURRENT ENDP 


FIND_POSITION 


THIS ROUTINE DETERMINES THE REGEN ADDRESS FORM 
CURRENT CURSOR POSITION 


INPUT = BH = DISPLAY PAGE 
OUTPUT BX 


REGEN ADDRESS CORRESPONDING TO 
CURRENT CURSOR POSITION 


VOLATILE AX, CX 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 


eDED FIND_POSITION PROC HEAR 
ODES 8A CF j 
ODE2 32 ED KOR chien ivinanptblage Seclg: 
Does 8h Fi ; MOV SI scx 3 MOVE TO SI FOR INDEX 
epee DL Ee SAL SI 3; 2 FOR WORD OFFSET 
CR MOV AX, (SI# OFFSET CURSOR_POSN] ; GET ROW/COLUMN OF THAT PAGE 
oDEC FIND_POSK LABEL NEAR ;-_ CALLED FROM 
| WRITE_ALT_CURSOR 
DEC 33 Ds XOR BX, BX 3 SET START ADDRESS “10 ZERO 
oDee rros1, 2OX% —_-FROS2 3 NO_PAGE 
+ PAGE_LOOP 
OOFo 9s LE anc x ADD BX, CRT_LEN + LENGTH OF BUFFER 
oDF6 FPOS2: ; 
ODFS E8 06D5 R CALL POSITION + OETEROE 
oFé + DETERMINE LOCATION IN REGEN 
0 oS DB ADD BX, AX + ADD TO START OF REGEN 
ODFB c3 RET 
OFC 


FIKD_POSITION EXDP 


GRAPHICS READ 


THIS ROUTINE READS THE ASCII CHARACT 

POSITION ON THE SCREEN BY MAT G THE BUTS" EN The eRe 
THE CHARACTER GENERATOR CODE POINTS Sia A TRE SPN 
INPUT AK = 


CRT MODE ( MASKED ) 
INPUT 


HONE (0 I5 ASSUMED AS THE BACKGROUKD COLOR) 


0 = 

UTPUT AL CHARACTER READ AT THAT POSITION (0 RETURNED IP NONE FOUND) 
NOTE 9 IS ASSUMED AS THE BACKGROUND COLOR 

VOLATILE 


we we we we Be we we we Oe we Oe Be we Be we Oe we we 


BX,CX,DX,SI,DI,DS,ES 
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55 
8B 
50 
E8 


EC 10 
Ec 


15E5 Rk 


8B FO 


58 
1F 
B6 


80 
74 


80 
74 


80 
74 


80 
74 


eB 


8A 
45 
BA 
45 
83 
75 
eB 


04 


FC 06 
PB y 


FC 04 
54 


FC 05 
4F 


FC OA 
GA 


17 


46 00 
84 2000 
00 


cé 50 


Dl &6 


01 
E8 


&6 


OFOS R 
Cé 2000 
R 


E& OFOS 


80 
75 


81 
E& 


81 
Ls 


81 


FEC 


81 
75 
EB 


o1 
€8 
c& 
80 


FC 09 
14 


C6 2000 
OFOS R 


C6 2000 
OFOS R 


EE SFBO 
E 


EE 1FB0 
cE 
DS 
20 


E6 

OECF R 
C6 2000 
OECF R 


FC 0A 


75 14 


81 
c8 


81 
E38 


81 


C6 2000 
OECF R 


C6 2000 
OECF R 


EE SFBO 


FE CE 


81 


EE 1F80 


FE CE 


75 


05 


8B DD 


83 


ED 08 


GREAD1: 


GREAD2: 


GREADS: 


GREAD4: 


GREADS: 
GREAD6: 


GREAD?: 


GREADS: 
i] 


GRAPHICS_READ 


PUSH 
SUB 
MoV 
PUSH 


CALL 
MOV 


CMP 


Jmp 


MOV 
INC 
MoV 
INC 
ADD 
JNZ 
JMP 


SAL 
SAL 


CALL 


ADD 
CALL 


cmp 
INE 


apD 
CALL 


ADD 
CALL 


SUB 
DEC 


SuB 
JNZ 
JmP 


SAL 
CALL 
CALL 


CMP 
JNE 


AOD 
CALL 


ADD 
CALL 


SUB 
DEC 


SUB 
DEC 


INZ 


OV 
SUB 


PROC NEAR 

BP 3 SAVE BP 

SP,RAC_LOCAL 3 ALLOCATE SPACE TO SAVE THE READ CODE POINT 
BP,SP 3 POINTER TO SAVE AREA 


AX 3 SAVE CRT MODE 


GRAPH_POSITION ; eteur OFFSET IM REGEN 
A + SAV 

ee ; mca tar DETERMINE Pa MODES 

Ps 3 RESTORE CRT MOD 

E 

DS POINT ae REGEN SEGMENT 

ASSUME DS: VIDEO_| RAM 

DH,4 3 NUMBER OF PASSES 

AH,6 

GREAD1 3 HIGH RESOLUTION 

AH,4 

GREADS + MEDIUM RESOLUTION 

AH,5 

GREADS + MEDIUM RESOLUTION 

AH, OAH 

GREADS + MEDIUM RESOLUTION 


SHORT GREAD2 3 LOW RESOLUTION 


gew~--- HIGH RESOLUTION READ 
3-GET VALUES FROM REGEN BUFFER AND CONVERT YO CODE POINT 


AL, CST] + GET FIRST BYTE 
(BP),AL + SAVE IN STORAGE AREA 
BP + NEXT LOCATION 


wee 


GET LOWER ae BYTE 


AL, CSI#2000H) 
LS ADJUST AND STOR 


S1,80 + POINTER Hak REGEN 
DH 3 LOOP CONT 
GREAD1 3 DO IT SOME. HORE 


SHORT GREADS GO MATCH THE SAVED CODE POINTS 
pntason LOW RESOLUTION READ 


OFFSETHS SINCE 4 BYTES/CHAR 


SI,2 
SI,1 


LOW_READ_BYTE GET 4 BYTES FROM REGEN INTO SINGLE SAVE 


i 
SI,2000H + GOTO LOWER REGION 
LOWLREAD_BYTE GET 4 BYTES FROM REGEN INTO SINGLE SAVE 


AH.9 5 DO WE HAVE A 32K REGEN AREA? 
GREADS + NO, JUMP 
SI,2 3 GOTO LOWER REGION 


000H 
LOW_LREAD_BYTE =; GET 4 BYTES FROM REGEN INTO SINGLE SAVE 


SI,2000K GOTO LOWER REGION 
LOWLREAD_BYTE ; GET 4 BYTES FROM REGEN INTO SINGLE SAVE 


Sr+000h-S0 ADJUST POINTER 


ADJUST POINTER BACK TO UPPER 


o 


ST,2000H-80 
DH 


GREADS 3D0 IT SOME MORE 
SHORT GREADS + GO MATCH THE SAVED CODE POINTS 
oonee- MEDIUM RESOLUTION READ 
3 MED_RES_R 
SI,2 } OFFSETS SINCE 2 BYTES/CHAR 
MID_READ_BYTE 3; GET PAIR BYTES FROM REGEN INTO SINGLE SAVE 
$I,2000H 3 GO TO LOWER REGION 
MID_READ BYTE =; GET THIS PAIR INTO SAVE 
AH, OAH 3 DO WE HAVE A 32K REGEN AREA? 
GREAD? 3 NO, JUMP 
SI,2000H 3 GOTO LOWER REGION 
MID_READ_BYTE 5 GET PAIR BYTES FROM REGEN INTO SINGLE SAVE 
$1,2000H 3 GOTO LOWER REGION 


MID_READ_BYTE 5 GET PAIR BYTES FROM REGEN INTO SINGLE SAVE 
gyi seeen=a ADJUST POINTER 


ADJUST POINTER BACK INTO UPPER 


SI,2000H-80 
DH 


GREAD6 5 KEEP GOING UNTIL ALL 8 DONE 
snc~ SAVE AREA HAS CHARACTER IN IT, MATCH IT 
3 FIND_CHAR 

BX, BP 3 SET POINTER TO FONT PATTERN 

BP.8 3 ADJUST POINTER TO BEGINNING OF SAVE AREA 
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OECF 
OECF 
OEDO 


OEDS 
OEDS 


S1,BP 
re * top ; + ENSURE DIRECTION 
33 co XOR AX, AX 3 CURRENT CODE POINT BEING MATCHED 
16 PUSH = SS 3 ESTABLISH ADDRESSING TO STACK 
1F POP DS 3 FOR THE STRING COMPARE 
16 PUSH SS. 3 ESTABLISH ADDRESSING TO STACK 
07 PoP ES ; FOR THE STRING COMPARE 
ASSUME DS:STACK, ES:STACK 
BA 0100 Mov DX, 256 3 NUMBER TO TEST AGAINST 
GREADS: 
56 Pus st + SAVE AREA POINTER 
50 PUSH AX 3 SAVE AX 
56 PUSH ST 3 SAVE SI 
32 ED XOR CH,CH i CLEAR FOR RANKAKU FONT 
3A C8 MoV CL, AL 3 SET CHARACTER COD 
32 60 XOR AL; AL 3 SET REQUEST BASE FONT FUNCTION 
52 PUSH Dx 3 SAVE DX 
BG 00 MOV DH, 0 3 INDICATES ANK MODE 
ES 1A63 R CALL FONT 3 DO IT 
SA POP Dx 3 RESTORE DX 
B FB MOV DI, BX 3 SET FONT TOP ADDRESS To DI 
SE POP $I 3 RESTORE SI 
38 POP aX 3 RESTORE AX 
BY 0008 MoV CX.8 3 NUMBER OF BYTES TO MATCH 
F3/ AG REPE CMPSB 3 COMPARE THE 8 BYTES 
SE POP $1 
76 05 Nya GREAD1O + IF ZERO FLAG SET, THEN MATCH OCCURRED 
FE co INC AL 3 NO MATCH, MOVE ON TO NEXT 
6A DEC DX 3 LOOP CONTROL 
75 DF JNZ GREAD9 3 DO ALL OF THEM 
s---CHARACTER IS FOUND ( AL=0 IF NOT FOUND ) 
GREAD10: 
83 C4 10 ADD SP»RAC_LOCAL =; READJUST THE STACK, THROW AWAY WORK AREA 
5D POP BP 3 RESTORE BP 
c3 RET 3 ALL DONE 
GRAPHICS_READ _ENDP 
pRaNeeasee eet eschew eee cna eee 
; MED_READ_BYTE 
; THIS ROUTINE WILL TAKE 2 BYTES FROM THE REGEN BUFFER, 
3 COMPARE AGAINST THE CURRENT FOREGROUND COLOR, AND PLACE 
; THE CORRESPONDING ON/OFF BIT PATTERN INTO THE CURRENT 
; POSITION IN THE SAVE AREA 
3 INPUT AH = CRT MODE ( MASKED ) 
3 SI,DS = POINTER TO REGEN AREA OF INTEREST 
3 BX = EXPANDED FOREGROUND COLOR 
3 BP = POINTER TO SAVE AREA 
3 ouTPuT BP = BP4L 
3 
‘ VOLATILE CX, DL 
3 
Fr ORC R RRO Ree an an nee mere enecesamseecSeeeneeceence 
= MID_READ_BYTE PROC NEAR 
PUSH sax 3 SAVE CURRENT AX 
80 FC OA CHP AH, OAH 3 IM 660X200 4 COLOR MODE? 
8A 26 Mov AH, (51) + GET FIRST BYTE 
BA 4§ 01 MOV AL, (S142) 3 GET SECOND BYTE 
mee! JNE MRBYTE2 + KO, JUMP 
* IN 640X200 4 COLOR MoDE, ALL THE cO BITS ARE IN ONE BYTE, AND ALL 
+ THE cl BITS ARE IN THE HEXT BYTE. H H THEM BACK TO 
i NORMAL clcO ADJACENT PAIRS. BEE RE IERANGE THEN EAE 
53 
PUSH BX + SAVE 
39 000 ; REG 
8 MoV CX,8 3 SET LOOP COUNTER 
MRBYTEL: 
Bt BS SAR AH,1 3 cO BIT INTO CARRY 
RCR BX, 1 + AND INTO Bx 
Do FB 
D1 DB Hed thet ’ ch BIT INTO CARRY 
° Hy 
$ LOOP) MRBYTEX i REPEAT Oo 
8B C3 
5B nov AX, BX $ RESULT INTO AX 
. BX + RESTORE Bx 
as cons MRBYTE2: 
32 D2 a pcan + 2 BIT MASK TO TEST THE ENTRIES 
ee MRBYTES: , + RESULT REGISTER 
76 OL TEST AX, CX } IS THIS SECTION BACKGROUND? 
a Jz MRBYTES 3 IF ZERO, IT 1S BACKGROUND 
1 
mRBYTEQ: + WASN'T, SO SET CaRRY 
Do p2 
RCL DL» 


A-48 


~ 


MOVE THAT BIT INTO THE RESULT 


8A 
BA 


32 0 


Es 
8A 
E8 


88 
45 


58 
cs 


26 

44 OL 
2 
OFID R 
64 02 
44 03 
OFLD R 


56 00 


F000 


Ci 
01 


SHR CX,1 

SH CX,1 3 MOVE THE MASK TO THE RIGHT BY 2 BITS 
Sue MRBYTES 3 DO IT AGAIN IF MASK DIDN'T FALL OUT 
MoV CBP),DL 3 STORE RESULT IM SAVE AREA 

INC BP 3 ADJUST POINTER 

PoP AX 3 RESTORE AX 

RET 3 ALL DONE 


MID_READ_BYTE ENDP 


Jrmnwn nnn nnn eee eee, oe 


SP we we we we we Be we we we we we Be ws we 


LOW_READ_BYTE 


THIS ROUTINE WILL TAKE 4 BYTES FROM THE REGEN BUFFER, 
COMPARE FOR BACKGROUND COLOR, AND PLACE 

THE CORRESPONDING ON/OFF BIT PATTERN INTO THE CURRENT 
POSITION IN THE SAVE AREA 


INPUT SI,DS = POINTER TO REGEN AREA OF INTEREST 
BP = POINTER TO SAVE AREA 

OUTPUT SP = BP +1 

VOLATILE CX, DL 


LOWLREAD_BYTE PROC NEAR 


PUSH Ax 3 SAVE CURRENT AX 
MOV AH, CST) sGET FIRST 2 BYTES 
mov AL, CSI+1) 

XOR DL.DL 

CALL BUILD_NIBBLE sBUILD HIGH NIBBLE 
MOV AH, (SI+2) sGET SECOND 2 BYTES 
MoV AL, (S143) 

CALL BUILD_NIBBLE sBUILD LOW WIBBLE 
MOV CBPJ,DL ; sSTORE RESULT IN SAVE AREA 
INC op sADJUST POINTER 

PoP ax 3 RESTORE AX 

RET 


LOWLREAD_BYTE = ENDP 


Brrr mmm renew nn ween wn enon wwe ewe 


3 
3 
3 
3 
3 
3 
t 
3 
3 
3 
3 
3 
3 
3 


BUILD_NIBBLE 


THIS ROUTINE WILL TAKE 2 WORD FROM THE REGEN BUFFER, 
AND MAKE 4 BIT PATTERN FROM THAT. 


INPUT AX = ANY WORD OF REGEN BUFFER 


OUTPUT DL = DOT PATTERN 
CLOW NIBBLE, HIGH IS LOW NIBBLE OF INPUT DL) 


VOLATILE cx 


POLL LLL LN SNL RNR DER RE ROEM Renn enenanweneseccececce 


BUILD_NIBBLE PROC NEAR 


BLDNI: 


BLDN2: 


MOV CX, OFOOOK 5 4 BIT MASK TO TEST THE ENTRIES 
TEST AX, CX 3 IS THIS SECTION BACKGROUND? 

Jz BLDN2 3 IF ZERO, IT IS BACKGROUND 

stc 3 WASN'T, SO SET CARRY 

RCL DL.1 sMOVE THAT BIT INTO RESULT 

SHR CX,1 sMOVE MASK RIGH 4 BITS 

SHR CX. 

SHR CX,1 

SHR CX,21 

INC BLONI $00 IT AGAIN IF MASK DID'T FALL OUT 
RET 


BUILD_NIBBLE ENDP 


Jer mmwwwww ewww wenn ee wen eee ene 
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ee we ee we we we we we we we we wr ee we 


WRITE_AC_CURRENT INT 10K, AH = 9 
THIS ROUTINE WRITES THE ATTRIBUTE AND CHARACTER AT 
THE CURRENT CURSOR POSITION 


INPUT 
AH = CURRENT CRT MODE (MASKED) 
BH = DISPLAY PAGE 
CX = COUNT OF CHARACTERS TO WRITE 
AL = CHAR TO WRITE 
BL = ATTRIBUTE OF CHAR TO WRITE 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 
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731 


80 
72 


€9 


B2 
Es 


cs 


80 
73 


80 
72 


€9 


.. 0069 R 10 
FC 04 

es 

1625. R 

ES 


ODEO R 
FB 


00 
OF7B R 


SE 0069 R 10 
18 


FC 04 
os 


1625 R 
ODEO R 
FB 


cs 


FA 


FF 
OF7B.R 


3 OUTPUT 
$ 
3 
CALL CGRAPHICS_WRITE) 
H FIND_POSITION 
3 WRITE_AC 
: VOLATILE AX, BX, CX, DX, SI, DI 
$ 
PTTT“"" ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
WRITE_AC_CURRENT PROC = NEAR 
CMP CRT_MODE,KJ_MODE; KJ DISPLAY MODE ? 
JAE WRTACCS 3 YES 
cMP AH, GRAPHICS 3 IS THIS GRAPHICS? 
Jc WRTACCL 3 NO 
JMP GRAPHICS_WRITE ; GO TO WRITE ANK IN GRAPHICS 
WRTACCL: 3 WRITE_AC_CONTINUE 
Mov AH,BL 3 GET ATTRIBUTE TO AH 
PUSH AX 3 SAVE ON STACK 
PUSH cx 3 SAVE WRITE COUNT 
CALL FIND_POSITION 
MOV DI,BX 3 ADDRESS TO DI REGISTER 
PoP cx 3 WRITE COUNT 
POP AX + CHARACTER IN AX REG 
WRTACC2: 3 WRITE _LOOP 
STOSW 3 PUT THE CHARVATIR 
Loop WRTACC2 + AS MARY TIMES AS REQUESTED 
RET 
WRTACC3: 
MOV DL, FALSE 3 RESET WRITE CHAR ONLY FLAG 
CALL WRITE_AC 3 WRITE ATTRIBUTE AND CHARACTER 
RET 
WRITE_AC_CURRENT ENDP 
Boren nnn n wenn eee 
3 
3 WRITE_C_CURRENT INT 10H, AH = 10 (OAH) 
5 ss eee ceeteeonene 
3 THIS ROUTINE WRITES THE CHARACTER AT 
3 THE CURRENT CURSOR POSITION, ATTRIBUTE UNCHANGED 
3 INPUT 
; AH = CURRENT CRT MODE (MASKED) 
3 BH = DISPLAY PAGE 
3 CX = COUNT OF CHARACTERS 10 WRITE 
3 AL = CHAR TO WRITE 
3 BL = COLOR OF CHAR (GRAPHICS) 
$ DS = DATA SEGMENT 
5 ES = REGEN SEGMENT 
i OUTPUT 
3 NONE 
t 
3 CALL (GRAPHICS WRITE) 
*- FIND _POSITION 
3 WRITE_AC 
ty 
i VOLATILE AX, BX, CX, DX, SI, DI 
prt ewww ww mw nw ee. 


we me mew ww wewwn wee we eee 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
WRITE_C_CURRENT PROC HEAR 


CMP = CRT_MODE,KJ_MODEs KJ DISPLAY HO 
SKE WRTECS MODE: Yes =e 


cup AH, GRAPHICS Ist 
o perce S THIS GRAPHICS? 
JMP GRAPHICS _WRITE + GO TO WRITE ANK IN GRAPHICS 
WRICC1: Q 
USH ax 3 SAVE OW STACK 
PUSH cx 
CALL FIND_Positron sAVE UERTE ‘COURT 
Ey DI,BX 3 ADDRESS TO DY 
a EE } WRITE COUNT 
wrtec2: + BL HAS CHAR TO WRITE 
= xi ’ WRITE_LooP 
STOSB BL } RECOVER CHAR 
ig s PUT THE CHARVATIR 
ier untece : BUMP POINTER PAST ATTRIBUTE 


AS MANY TIMES AS REQUESTED 


WRICCS: 


MOV OL, TRUE 
CALL WRITE_AC 


SET WRITE CHAR ONLY FLAG 
WRITE ATTRIBUTE AND CHARACTER 
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QF7A C3 


OF7B 


24 
F7 


EC 2€ 
Ec 


46 08 08 
66 09 
FC 04 
18 


15E5 8 
46 00 


46 06 

46 08 FF 
O0A0 

co 


€7 O7FF 


OF 

Es 

87 OS5SC R 
76 02 


hy 0340 R FFFF 


7F 
Cé OOFF 


RET 


WRITE_C_CURRENT ENDP 


Jrmewenne-- eee. - 


Be we ee we we we we we we 


WRITE_AC 


THIS ROUTINE WRITES THE ATTRIBUTECIF DL=0) AND CHARACTER AT 
THE CURRENT CURSOR POSITION 


INPUT 
AH = CURRENT CRT MODE (MASKED) 
BH = DISPLAY PAGE 
; CX = COUNT OF CHARACTERS TO WRITE 
3 AL = CHAR TO WRITE 
3 BL = ATTRIBUTE OF CHAR TO WRITE 
5 DL = FLAG OF WRITE CHARACTER ONLY 
3 OS = DATA SEGMENT 
3 ES = REGEN SEGMENT 
3 
; WORK CBP+WGPOSN} = REGEN ADDRESS TO WRITE IN GRAPHICS 
r CBP+WPOSK) = ROW/COLUMN POSITION TO WRITE 
3 CBP*¢W2CODE} = ATTRIBUTE/CODE OF 2ND BYTE OF 2 BYTE CODE 
3 (BP*WR_SEG) = REGEN SEGMENT 
3 CBP*+WGMODE) = FLAG OF GRAPHICS MODE 
3 (BP4WC_MODE3= CURRENT CRT MODE (MASKED) 
3 CBP+WFONT - WFONT+35) = FONT PATTERN 
; OUTPUT NORE 
3 
: CALL FINT_POSITION 
3 GRAPH_POSITION 
3 WRITE_ONE_CHAR 
3 WRITE_TWO_CHAR 
; VOLATILE AX, BX, CX,DI,SI 
3 
WRITE_AC PROC = NEAR 
PUSH = BP + SAVE BP 
SUB SP,W_LOCAL + ALLOCATE LOCAL WORK AREA 
MOV BP,SP + ASSIGN BP AS FRAME POINTER 
PUSH = AX 3 SAVE MODE 
PUSH BX 3 SAVE DISPLAY PAGE AND ATTRIBUTE 
PUSH =X 3 SAVE COUNTER 
CALL FIND_POSITION i GET REGEN ADDRESS TO WRITE 
MOV DI, BX 3 IN DI 
POP cx 3 RESTORE COUNTER 
PoP ax 3 RESTORE DISPLAY PAGE AND ATTRIBUTE 
POP Ax 3 RESTORE MODE 
MOV BYTE PTR (BP+WGMODE],FALSE ; SET NO GRAPHICS MODE 
MOV BYTE PTR (BP4WC_MODE],AH 3 SET CRT MODE 
CMP AH, GRAPHICS, 3 IS THIS GRAPHICS? 
JB WRTACL 3 NO 
3--> GRAPHICS MODE 
PUSH = AX 3 SAVE MODE AND CHARACTER CODE 
CALL GRAPH_POSITION 3 GET GRAPHICS REGEN ADDRESS TO WRITE 
MoV CBP+WGPOSN), AX t IN (BP) 
MoV CBP+WR_SEG).ES 3 SAVE REGEN SEGMENT 
MoV BYTE PTR CBP¢NGMODE), TRUE 3 SET GRAPHICS MODE 
MoV AX,P_CODE_START + SET PESUDO CODE BUFFER SEGMENT 
Mov ES,AX 3 TO ES 
AND DI,PCB_MASK 3 MASK POINTER TO INSURE RANGE 
POP AX 3 RESTORE AX 
WRTACL: 
PUSH Bx 3 SAVE DISPLAY PAGE AND ATTRIBUTE 
MOV BL,BH § SET PAGE NUMBER TO BL 
xoR BK, BH 3 CLEAR FOR WORD 
SAL BX, 1 3 CONVERT TO WORD OFFSET 
MoV ST. CBX*OFFSET CURSOR_POSN) 3 GET CURSOR POSITION 
mov (BP+WPOSN),SI + SET IT TO LOCAL WORK AREA 
PoP Bx 3 RESTORE DISPLAY PAGE AND ATTRIBUTE 
TEST WAST CHAR, TRUE 3 IST BYTE OF 2 BYTE CODE HAS BEEN SET 
JNZ wRracd 3 YES 
CMP AL, 080H + UST BYTE OF 2 BYTE CODE » 
JBE WRTACG 3 NO, GO TO WRITE ONE CHARACTER 
CMP AL, OFDH 3 
JAE WRTACG 3 NO. GO TO WRITE ONE CHARACTER 
CMP AL, OAOH 3 
JB WRTAC2 > YES 
cMP AL, ODFH 3 
JBE WRTACG + NO, GO TO WRITE ONE CHARACTER 
WRTAC2: s~-CHARACTER IS 1ST BYTE OF 2 BYTE CODE 
MOV AH, BL 3 SET ATTRIBUTE TO aH 
s-SET ZERO COLUMN FLAG FOR AVOLD 
+ DESTRUCT OF PREVOUS ROW 
AND AL, NOT ZEROCOL 3 SET ZERO COLUMN BIT OFF 
TEST SI, 00FFH § CURRENT COLUMN IS ZERO 2 
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75 


88 
88 


a 
8 
88 
75 
Fe 


75 0 


02 
80 


O340 R 
4D 


06 0340 R 0000 
103A R 

FB 

34 

46 04 

SE 05 

SE 0340 R 
CE 0340 R 80 
cé 

co 

OA 

Cc? 80 

F 


FE CC 


Ao 


FE 
89 


SF 
GF 


FF 


E8 
E2 


c7 


83 
5D 


cs 


OOGA R 


ca 
46 02 


4E€ 00 
10E1 R 
FB 


06 0340 R C000 
C4 2E 


26: 8A 65 6 
C4 80 : 


OA 
75 


BA 


80 
AB 


17 
D2 
62 
E3 
E477 


TACS 3 NO 
ore AL 2EROCOL 3 YES, SET ZERO COLUMN BIT ON 
meee Mov W_IST_CHAR, AX + SAVE 1ST BYTE OF 2 BYTE CODE 
JMP SHORT WRTACIO + RETURN; WRITE PROCESS IS PENDING 
4 s->~ CHARACTER MUST BE 2ND BYTE 
ee cmp AL, 040H + 2ND BYTE OF 2 BYTE CODE ? 
JB WRTACS 3 NO 
CMP AL, OFCH 3 
JA WRTAC5S 3 NO 
CMP AL,O7FH 3 
JHE WRTAC7 + YES 
WRTACS: s--- IGNORE 157 BYTE 
MOV W_1ST_CHAR,0 + RESET FLAG OF 1ST BYTE 
WRTAC6: s-~~ WRITE ONE BYTE CODE 
CALL WRITE_ONE_CHAR 3 WRITE ONE BYTE CHARACTER 
LOOP WRTACE + REPEAT CX TIMES 
JMP SHORT WRTACLO 3--- END 
WRTAC7: 
Mov (BP+W2CODE),AL 3 SAVE CODE OF 2ND BYTE IN LOCAL 
MoV CBP¢WZATTRI,BL 3 SAVE ATTR OF 2ND BYTE IN LOCAL 
Mov BH,BYTE PTR W_IST_CHAR ; GET 1ST BYTE CODE TO SEE IF ZEROCOL 
3 FLAG IS ON 
OR BYTE PTR W_IST_CHAR,ZEROCOL ; RESTORE CHARACTER CODE 
Mov AX, SI + GET CURSOR POSITION 
OR AL, AL + COLUMN IS ZERO ? 
JNZ WRTACS 3 NO 
TEST BH, ZEROCOL 3 ZERO COLUMN FLAG ON ? 
INZ WRTACS + YES, SKIP CORRECT CURSOR POSN. 
DEC AH 3 DECREMENT ROW 
ee Mov AL, BYTE PTR CRT_COLS + SET COLUMN NUMBER AT END OF LINE 
t 
DEC AL + DECREMENT ROW FOR 2 BYTE CODE 
MOV CBP+WPOSN) AX 3 SET IT TO LOCAL WORK AREA 
DEC DI 3 DECREMENT WRITE POSITION 2 (CODE/ATTR) 
DEC DI 3 
wevins DEC WORD PTR [BP+WGPOSN) 3 DECREMENT GRAPHICS WRITE POSITION 
t 
CALL WRITE_TWO_CHAR s WRITE TWO BYTE CHARACTER 
Loop WRTACS 3 REPEAT CX TIMES 
MOV W_IST_CHAR,0 3 RESET FLAG OF 1ST BYTE 
WRTAC1O: 
AD SP,W_LOCAL 3 DEALLOCATE LOCAL WORK AREA 
PoP BP + RESTORE BP 
RET 


RETURN TO CALLER 
WRITE_AC ENDP 
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3 WRITE_ONE_CHAR 

: THIS ROUTINE WRITES ONE CHARACTER 

; INPUT AL = CHARACTER CODE 

3 BL = ATTRIBUTE 

; DL = FLAG OF WRITE CHARACTER ONLY 

; (BP+WGPOSN) = GRAPHICS WRITE POSITION 

H (BP+UPOSNI= ROW/COLUMN POSITION TO WRITE 

3 [BP+WGMODE)= FLAG OF GRAPHICS MODE 

i ES:DI = REGEN ADDRESS TO WRITE 

. 

i ourPut ES:DI = REGEN ADDRESS TO WRITE NEXT CHAR 

’ 

3 CALL G_WRITE1 

: GRAPH_POSH 

; VOLATILE st 

8 

3 TORRES ESS Re nina a een ansecSaencusmsececcvecetcnc-< 

WRITE_ONE CHAR PROC NEAR 
PUSH ax 3 SAVE CHARACTER CODE 
rien = 3 SAVE ATTRIBUTE +a suave 
ree + SAVE NUMBER OF CHARACTER 


SAVE FLAG OF WRITE CHARACTER ONLY 


Mov AH, ES: (D141) GET ATTRIBUTE AT CURRENT POSITION 
u? 


TEST AH, ZENBIT 
WOC3 


we 


ie ; is IT HANKAKU ? 
Jomaeeeee el 
“reresm= OVERRIDE HANKAKU 
oR DL, DL i 
an bt ep i WRITE CHARACTER ONLY 1? 
Mi 
a Ov AH, BL 3 SET ATTRIBUTE 
AD 
Stosy AM +HAN_MASK 3 MASK OFF ZEN,1$T/2ND BIT 


3 WRITE CHAR/ATIRIBUTE 
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F6 


46 08 FF 


74 05 


32 D 


F6 
75 
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BA 


80 
a3 


26: C6 05 20 
80 65 01 77 


26: 
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74 
BA 
50 
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2 
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C4 08 
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E3 
E4 77 


46 08 FF 
12 
ES 


20 


01 
1213. R® 


8a DC 
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€8 


D2 
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EB 2c 


OA D2 


75 
8A 


02 
ES 


80 €4 77 


26: C6 45 FE 20 
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AB 


Fé 46 08 FF 
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8A ES 


50 


&8 


58 
8A 
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&8 


1213. R 
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d2 
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8B 46 02 
FE co 


3A 06 OO4AR 
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FE 


F6 
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E8 
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58 
cs 


co 
c4 


46 08 FF 
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TEST BYTE PTR [BP*WGMODE),TRUE + GRAPHICS MODE ? 
Jz wocz 3 NO 
XOR DL, DL 3 SET 0 TO DISPLACEMENT 
CALL GRITEL 3 WRITE ONE CHAR IN GRAPHICS 
WOC2: 
JMP SHORT WOC8 g--- END 
WOCcS: 
TEST = AH, ZEN2BIT 3 SECOND BYTE OF ZENKAKU ? 
JNZ woce 3 YES 
joceeennee----- menseteceaen OVERRIDE 1ST BYTE OF ZENKAKU 
OR DL, OL 3 WRITE CHARACTER ONLY ? 
JNZ WOCs 3 YES 
MOV AH, BL + SET ATTRIBUTE 
WOC4: 
AND AH, HAN_MASK 3 MASK OFF ZEN,1ST/2ND BIT 
STOSW 3 WRITE CHAR/ATTRIBUTE 
MoV BYTE PTR ES:(DIJ,* * 3 ERASE 2ND BYTE OF ZENKAKU 
AND BYTE PTR ES:(DI+1],HAN_MASK; MASK OFF ZEN,1ST/2ND BIT 
TEST BYTE PTR (BP+WGMODE],TRUE ; GRAPHICS MODE ? 
JZ WOCS 3 NO 
MOV AKL BL + SAVE ATTRIBUTE 
PUSH = AX : AND CHARACTER 
MOV oa + SET SPACE 
MOV DL 3 SET +1 TO DISPLACEMENT 
CALL = G_WRITE 3 ERASE 2ND BYTE OF ZENKAKU 
POP aX 3 RESTORE CHARACTER 
MOV BLAH 3 AND ATTRIBUTE 
XOR DL, DL 3 SET 0 TO DISPLACEMENT 
A CALL = G_WRITE1 3 WRITE ONE CHAR IN GRAPHICS 
: 
JMP SHORT WOC8 s--- END 
WOC6: 9 5------------ weer n enon een - ee OVERRIDE 2ND BYTE OF ZENKAKU 
oR DL, DL WRITE CHARACTER ONLY ? 
INZ WoC? 3 YES 
dace mov AH, BL 3 SET ATTRIBUTE 
t 
AND AH, HAN_MASK 3 MASK OFF ZEN,1$T/2ND BIT 
MoV BYTE PTR ES:(DI-2),* * 5 ERASE 1ST BYTE OF ZENKAKU 
AND BYTE PTR ES: {DI-1],HAN_MASK; MASK OFF ZEN,1ST/2ND BIT 
STOSW 3 WRITE CHAR/ATIRIBUTE 
TEST = BYTE PTR CBP+NGMODE], TRUE; GRAPHICS MODE ? 
JZ wocs 3 NO 
Mov AH, BL 3 SAVE ATTRIBUTE 
PUSH = AX 3 AND CHARACTER 
MOV AL,' ¢ 3 SET SPACE 
Mov DL.-1 3 SET -1 TO DISPLACEMENT 
CALL = G_WRITE2 3 ERASE 2ND BYTE OF ZENKAKU 
POP AX 3 RESTORE CHARACTER 
MoV BLAH 3 AND ATTRIBUTE 
XOR DL, DL 3 SET 0 TO DISPLACEMENT 
ney CALL = G_LWRITEL 3 WRITE ONE CHAR IN GRAPHICS 
: 
MOV AX, CBPENPOSN) 3 GET COLUMN COUNT 
INC AL 3 INCREMENT COLUMN 
cop AL, BYTE PTR CRT_COLS 3 EXCEED END OF LINE ? 
JB wocs 3 ¥O 
XOR AL, AL 3 CLEAR SINCE MODULO OF CRT_COLS 
INC AH 3 INCREMENT ROW 
TEST = BYTE PTR [BP*NGMODE],TRUE 3 GRAPHICS MODE ? 
JZ woc9 NO 
PUSH = AX 3 SAVE AX 
CALL —- GRAPH_POSN 3 SET NEW GRAPHICS WRITE POSITION 
MoV CaPentPosn, ax + 10 
PoP + RESTORE AX 
WOCd: 
MOV COPSNPOSN), AX 3 SET NEW ROW/COLUMN POSITION 
PoP Dx 3 RESTORE FLAG OF WRITE CHARACTER ONLY 
PoP cx + RESTORE NUMBER OF CHARACTER 
PoP BX 3 RESTORE ATIRIBUTE 
POP ax 3 RESTORE CHARACTER CODE 
RET 


WRITE_ONE_CHAR ENDP 


Jrrem teres wenn ne ween nn wenn =e. meee ee teem ww ewe wenn w wwe ee nen 


5 WRITE_TWO_CHAR 

t 

; THIS ROUTINE WRITES TWO BYTE CHARACTER 
5 
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+WPOSN) = ROW/COLUMN POSITION TO WRITE 
sia! tapsuscepey = 2ND BYTE OF 2 BYTE CODE TO WRITE 
CBP¢W2ATTR) = ATTRIBUTE FOR 2ND BYTE 
CBP+WGMODE) = FLAG OF GRAPHICS MODE 
DL = FLAG OF WRITE CHARACTER ONLY 
ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT ES:DI REGEN ADDRESS TO WRITE NEXT CHARACTER 
CALL WRITE_TWO 
G_WRITEL 
G_WRITE2 
GRAPH_POSN 
VOLATILE AX, BX,SI 


WRITE_TWO_CHAR PROC NEAR 


WTC1: 


WIC2: 


WIC3: 


WIC4: 


WTCS5: 


WIC6: 


WIC7: 


PUSH 
PUSH 


MOV 
INC 


CMP 
JB 


INC 
MOV 


cx } SAVE NUMBER OF CHARACTER TO WRITE 
Dx 3 SAVE FLAG OF WRITE CHARACTER ONLY 
AX, CBPSUPOSHI + GET ROW/COLUMN POSITION 


ADJUST FOR COMPARE 


AL. BYTE PTR CRT_COLS AT LINE END BOUNDARY ? 
WICL NO 


we we 


AH + INCREMENT ROW 
AL,AL + SET 0 TO COLUMN 
CBP+WPOSN), AX + SET IT TO WORK 


ae PTR ES:CDI3," * WRITE SPACE 


BYTE PTR ES: (D1), HAN_MASK; MASK KJ-BIT OFF 
LP § + ADVANCE POINTER 


BYTE PTR C(BP+WGMODE), TRUE + GRAPHICS MODE ? 
WTC1 + NO 


Ax + SAVE ROW/COLUMN 
Dx + SAVE FLAG OF WRITE CHAR ONLY 
AL,* * 


3 WRITE SPACE 
BL,BYTE PTR W_IST_CHAR41; GET ATTRIBUTE OF 1ST BYTE 
DL,D WRITE AT CURRENT CURSOR POSITON +0 


, 
G_WRITEL ¢ WRITE ONE BYTE CHAR IN GRAPHICS 
Dx + RESTORE FLAG 
Ax + RESTORE ROW/COLUMN 
GRAPH_POSN } SET NEW GRAPHICS WRITE POSITION 
CBP+WGPOSN), AX ; TO AX 
BH, ES: (DI41) + GET ATTR. AT CURRENT CURSOR POSN 
BLES: (D143) 3 GET ATTR. AT CURRENT CURSOR POSN+I 
BH, ZENBIT + HANKAKU ? 
WTC2 + YES 
BH, ZEN2BIT + 2ND BYTE OF 2 BYTE CODE ? 
WTC? > YES 
swo- HANKAKU OR 1ST BYTE IS PRESENT AT CURRENT 
BL,ZENBIT + HANKAKU ? 
WICS 3 YES 
BL,ZEN2BIT + 2ND BYTE OF 2 BYTE CODE ? 
WIC5 + 40 
Jew em man nnn nnn nnn nee OVERRIDE TWO HANKAKU OR 1ST,2ND BYTE 
WRITE_TWO 


CALL 
TEST 
IZ 
CALL 
JMP 


CALL 


MoV 
AKD 


TEST 
JZ 


s WRITE TWO BYTE CHARACTER IN REGEN 
BYTE PTR CBP+WGMODE), TRUE } GRAPHICS MODE ? 
WIC4 3; NO 


G_LWRITE2 
SHORT WTC10 


s WRITE 2 BYTE CHARACTER IN GRAPHICS 
bw-~ END 


Toeceeor= OVERRIDE HANKAKU, IST BYTE OF 2 BYTE CODE 
WRITE_TWO i WRITE TWO BYTE CHARACTER IN REGEN 
BYVE BER ESSCDI J,° * 5 ERASE OND BYTE OF 2 BYTE CODE 

BYTE PTR ES: (DI+1},HAM_MASK; HASK OFC KJ-BIT 

bree PTR CBPSWGMODE), TRUE; GRAPHICS MODE ? 

WTC6 3 HO 


AL,* 8 + ERASE 2ND BYTE OF 2 BYTE CODE 

, 
ee PTR WIST_CHAR+1; GET ATTRIBUTE OF 1ST BYTE 
C URITED * WRITE AT CURRENT CURSOR POSITON #2 
-' > WRITE ONE BYTE CHAR IN GRAPHICS 
G_URITE2 


~ 


WRITE 2 BYTE CHARACTER IN GRAPHICS 


SHORT WICLO b--- END 


BL, 
wresnnert : AG rRIBUTE AY CURRENT #1 IS HANKAKU ? 


BYTE PTR ES:(DIub 
BYTE PIR ESst pect 


WRITE_THo 
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OVERRIDE 24D BYTE, HANKAKU 


5 ERASE 1ST BYTE OF 2 BYTE CODE 
AK_MASK; MASK OFF KJ-BIT 


iT) 
xe 


1, 
] 


} WRITE Two BYTE CHARACTER IN REGEN 


1178 
117¢ 
1I7E 
1180 
1184 
1186 


1189 
118C¢ 
118¢C 


118E 
118E 
1193 


~ 

~~ 
> 22 2 
* no oO 


> 
o 


ow wo>> 
en KFOnN> 


ese wvoow 
mmm oooc00 99 20 29M ANN bef 


| lh al and oe ee Lend oe pe | dl al | lh aad 

ee he eee le ee 

Or mt Oyen er er kt ed ee ed od od och al el ee ed 
“enKe MmMOoFrvO FO MO FH Seem Boe 


m 
o 


11€4 
11E4 


Cd al 
—— 
mm 
ou 


—— aoe 
—— ee 

al an am om 
onwnn ea oS 


ereteteto 
Nem mee 
-meewwo “uw 


F6 46 08 FF 


TEST BYTE PTR (BP4WGMODE), TRUE: GRAPHICS MODE ? 
74 0€ Jz WTC8 3 NO 
BO 20 Mov AL,’ * 3 ERASE 1ST BYTE OF 2 BYTE CODE 
8A 1E 0341 R MoV BL, BYTE PTR W_IST_CHAR#1; GET ATTRIBUTE OF 1ST BYTE 
B2 FF MoV DL,-1 3 WRITE AT CURRENT CURSOR POSITON -1 
€8 1213 R CALL G_WRITEL + WRITE ONE BYTE CHAR IN GRAPHICS 
E8 1335 R ine CALL G_WRITE2 + WRITE 2 BYTE CHARACTER IN GRAPHICS 
’ 

EB 33 JMP SHORT WTC10 s--- END 

WIC9: 9 3 ------~---------~------------ OVERRIDE 2ND,1ST BYTE OF 2 BYTE CODE 
26: C6 45 FE 20 Mov BYTE PTR ES:(DI-2)," ' ; ERASE 1ST BYTE OF 2 BYTE CODE 
26: 80 65 FF 77 AND BYTE PTR ES:(DI-1],HAN_MASK; MASK OFF KJ-BIT 
E8 1LE4 R CALL WRITE_TWO 3 WRITE TWO BYTE CHARACTER IN REGEN 
26: C6 05 20 Mov BYTE PTR ES:(DI J,° * 3 ERASE 1ST BYTE OF 2 BYTE CODE 
26: 80 65 01 77 ARD BYTE PTR ES:C(OI#1),HAN_MASK; MASK OFF KJ-BIT 
F6 46 08 FF TEST BYTE PTR [BP+WGMODE), TRUE 3 GRAPHICS MODE ? 
74:17 JZ wICLO 3 NO 
BO 20 MOV AL,’ ' > ERASE 1ST BYTE OF 2 BYTE CODE 
8A LE O341 R MOV BL,BYTE PTR W_LAIST_CHAR+1; GET ATTRIBUTE OF 1ST BYTE 
50 PUSH AX 3 SAVE AX 
53 PUSH Bx 3 SAVE BX 
B2 FF Mov DL,-1 3 WRITE AT CURRENT CURSOR POSITON -1 
EB 1213 R CALL G_WRITEL 3 WRITE ONE BYTE CHAR IN GRAPHICS 
58 PoP Bx 3 RESTORE BX 
58 POP AX 3 RESTORE AX 
82 02 MOV DL,2 + WRITE CURRENT CURSOR POSITON #2 
EB 1213 R CALL G_WRITE1 3 WRITE ONE BYTE CHAR IN GRAPHICS 
EB 1335 R wena CALL G_WRITE2 + WRITE 2 BYTE CHARACTER IN GRAPHICS 
8B 46 02 “NOV AX, (BP+WPOSN) 3 GET COLUMN COUNT 
04 02 ADD +2 3 ADVANCE 2 BY 2 BYTE CHAR WRITING 
3A 06 COSA R cMP AL, BYTE PTR CRT_COLS- 5 EXCEED END OF LINE ? 
72 12 JB WTCLL + NO 
32 co XOR ALL AL + CLEAR SINCE MODULO OF CRT_COLS 
FE C4 INC AH 3 INCREMENT ROW 
F6 66 08 FF TEST BYTE PTR CBP+NGMODE], TRUE; GRAPHICS MODE ? 
74 08 JZ WTCLi 3 NO 
50 PUSH ax 3 SAVE ROW/COLUMN 
E8 1568 R CALL GRAPH_POSK 3 SET NEW GRAPHICS WRITE POSITION 
89 46 00 MoV CBP+WGPOSN),AX 3 TO (BP+WGPOSN) 
58 on PoP AX 3 RESTORE ROW/COLUMN 

? 

89 46 02 Mov (BP¢WPOSN), AX 3 SET NEW ROW/COLUMN POSITION 
SA POP DX 3 RESTORE FLAG OF WRITE CHARACTER ONLY 
59 PoP cx 3 RESTORE NUMBER OF CHARECTER 
cs RET 

WRITE_TWO_CHAR ENDP 

brn nner em em wwn wn ene www eww ewww eww ewww wenn eee een nee eee wce 

s 

3 WRITE_TWO 

$ 

3 THIS ROUTINE WRITES TWO BYTE CHARACTER IN REGEN 

3 

i INPUT (BP+W2CODE) = 2ND BYTE OF 2 BYTE CODE TO WRITE 

3 CBP+W2ATTR) = ATTRIBUTE FOR 2ND BYTE 

3 BH = ATTRIBUTE AT CURRENT CURSOR POSITION 

3 BL = ATTRIBUTE AT CURRENT CURSOR POSITION ¢ 1 

t DL = FLAG OF WRITE CHARACTER ONLY 

’ EStDI = REGEN ADDRESS TO WRITE 

3 OUTPUT ES:DI = REGEN ADDRESS TO WRITE NEXT CHARACTER 

3 

’ CALL CHECK_ROSS_CHAR 

3 

; VOLATILE AX 

i 

Pree re rte eee e een www eww www www n eww mwemw enw wenwwennceccccouccccace 

WRITE_TWO PROC NEAR 
51 PUSH cx 3 SAVE CX 
8A 2E 0340 R MoV CH,BYTE PTR W_IST_CHAR ; GET 2ST CHARACTERS CODE 
BA 4E 04 MOV CL,BYTE PTR [BP+W2CODE) ; GET 2ND CHARACTER'S CODE 
ES 1B65 R CALL CHECK_ROSS_CHAR 3 CHECK AND CONVERT ROSSIAN CHARACTER 
8A CS MoV AL, CR s GET 1ST CHARACTER'S CODE 
BA 26 O341 R MOV AH, BYTE PTR W_IST_CHAR#1; GET 1ST CHARACTER'S ATTRIBUTE 
OA D2 OR DL, OL 3 WRITE CHARACTER ONLY ? 
74 02 Jz WRITWOL 3 NO 
8A E? Mov AH, BH + GET ATTRIBUTE AT CURRENT 

WRITWOL: 
80 E477 AND AH, HAN_MASK 3 STRIP OFF ZEN,1ST/2ND BIT 
80 CC 80 OR AH, ZENBLY 3 SET ZENKAKU BIT 
AB STOSW 3 WRITE TO REGEN 
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1202 BA 
1204 «8A 


1207 OA 
1209 74 


120B 8A 


120D 80 
1210 AB 


1211 «59 
1212. 3 


1213, 1E 
1215 06 
1216 F6 

75 


121B C6 
1220 53 
1221) 16 
1222) 07 
1223) 8D 


1226 32 
1228 88 


122A 80 
122D BB 
1230 76 


1232 80 
1235 75 


1237) 33 


1239 8B 
1238 OBS 


123E F37 AB 
33 


1242) AB 


1243 Fé 
4 


1240 OEB 


124F BO 
1253) &8 
1256 06 
1257 1F 
1258 83 
125A 5B 


c 
66 05 
D2 
02 
E3 


cc 88 


C3 80 
05 


06 0349 R 00 


SE OA 
&4 
F9 AO 
2455 
07 


F9 20 
18 


ce 


FB 
6008 


co 


06 0353 R FF 
oc 


1BB4 R 
07 


8o 
1A6GS R 


FS 


MoV 
MOV 


OR 

JZ 

MoV 
WRITWO2: 

OR 

STOSHW 

POP 

RET 
WRITE_TWO 


INPUT 


WORK 
QUTPUT 
CALL 


[0 Ue Se We Be Be we OF we Be Or Oe we Bs we we we we we Oe ee we 


G_WRITE) 
THIS ROUTINE WRITES ONE CHARACTER IN GRAPHICS 


VOLATILE 


CL $ GET 2ND CHARACTER'S CODE 
AR, EBPSW2ATTRI § GET 2ND CHARACTER'S ATTR/CODE 
DL,DL 3 WRITE CHARACTER ONLY ? 
WRITWO2 3 KO 
AH, BL 3 GET ATTRIBUTE AT CURRENT + 1 
AK, ZEN2_MASK + SET ZENKAKU,2ND_BYTE BIT 

3 WRITE TO REGEN 

cx + RESTORE Cx 
ENDP 


eK RR ORT e Ree eee een eee eencece 


AL = CHARACTER CODE TO WRITE 

BL = ATTRIBUTE 

DL = DISPLACEMENT FOR WRITE POSITION 
CBP¢WGPOSK) = WRITE POSITION 


CBP+WPOSHJ= ROW/COLUMN POSITION TO WRITE 
CBP+WR_SEGJ= REGEN SEGMENT FOR GRAPHICS 
CBP+WC_MODEJ= CRT MODE (MASKED) 
CBP*WFONT ~ WFONT#17) = 


CBP+WGPOSN) = 
ENABLE_VRAM 
FONT 

G_LWRT1 

AX, BX,CX,DX,SI 


FONT PATTERN 
NEXT WRITE POSITION (IF DL = 0) 


ES ORS Oe Rese Ki See Reais San Sen eRe Sees eo conan smiassiuecccueesuceccus 


G_WRITEL Proc 


Mov 
G_WRT11: 
PUSH 


PUSH 
PoP 
LEA 


xOR 
MoV 


CMP 
JE 


CMP 
JNE 


XOR 
G_WRT12: 
MoV 
MoV 
REP 
STOSW 
TEST 
JZ 
CALL 
JMP 
G_WRT13: 


HEAR 
Ds 3 SAVE CURRENT DS 
DI + SAVE CURRENT DI 
Es $ SAVE CURRENT ES 
BL, XOR_BIT 3 XOR WRITE BIT ON ? 
G_WRT11 3 YES 
GC_PRESENT, FALSE 3 GRAPHICS CURSOR FLAG OFF 
BX 3 SAVE COLOR ATTRIBUTE 
ss + SET DESTINATION SEGMENT FOR FONT 
Es 3 TO ES 
ASSUME ES:STACK 


BX, (BP+WFONT) + SET DESTINATION OFFSET FOR FONT TO BX 
AH, AH CLEAR FOR 1 BYTE CODE 


CX,AX ; SET CHARACTER CODE TO Cx 
CL, HALFTONE + HALF TONE CHARACTER ? 
AX, HT_FONT 3 SET FONT PATTERN OF HALF TONE 
G_WRT12 3 YES 
cL,’ * 3 SPACE ? 
G_LWRT13 + NO 
g-~~ SPACE & HALF TONE CODE IS HANDLED SPECIALLY FOR 

aXe ax gwe- IMPROVE THROUGHPUT OF "BASIC" AND KANA-KAN 

’ 


+ CLEAR FOR FONT PATTERN OF SPACE 


DI,BxX } SET DESTINATION ADDRESS 
CX, (CBOX_ROW-2)723 SET CLEAR COUNT BY WORD 


STOSW 3 SET FONT PATTERN 

AX, AX 3 
5 CLEAR BOTTOM 2 ROW 
s--- INSURE Y-RAM IS ON FOR KANA-KAN INTERFACE 
i Nn? 


KJROM_STAT, TRUE ; KJ-ROM IS 0 
G_WRT14 + NO 


EXABLE_VRAM 
SHORT  G_WRT14 


b MUST ENABLE VRAM FOR WRITE GRAPHICS PATTERN 


AL,80H + SET FUNCTION OF REQUEST FONT WITH FULL BOX 
DH» KJ_MODE + INDICATES KJ MODE 


+ GET FONT PATTERN 


ME ' SET SEGHENT FOR FONT PATTERN 
ASSUME DS:STACK 

SI,BX 5 SET TOP ADDRESS OF FONT PATTERN 

BX 


} RESTORE COLOR ATTRIBUTE 


THIS ROUTINE WRITES 


ES, (BP*WR_SEG) 
ASSUME 
G_WRT1 


BL 


3 GET fe tn REGEN SEGMENT FOR GRAPHICS 
ES: VIDEO_R 


3 WRITE FONT PATTERN 


3 RESTORE ES 
s RESTORE DI 
3 RESTORE DS 


GRAPHICS PATTERN 


ATTRIBUTE 
DL DISPLACEMENT 
CBP+WGPOSN) = WRITE POSITION 
(BP+WPOSN) 


(BP +WC_MODE) 
DS:SI 
es 


CBP+WGPOSK) = 


ROW/COLUMN Cost TION TO WRITE 
CRT MODE CMASKED) 

FONT PATTERN ADDRESS 

REGEN SEGMENT 


NEXT WRITE POSITION CIF DL=0) 


ASSUME CS:CODE, DS: INDETERMINATE, ES: VIDEO_RAN 


BE 46 06 MOV 
E8 1265 R CALL 
07 POP 
SF POP 
iF POP 
cs RET 

G_WRITEL ENDP 

i 

3 O_WRTA 

5 

3 

3 

3 INPUT 

3 

3 

3 

; 

3 

3 

3 OUTPUT 

$ 

3 CALL 

5 

1 

3 

3 

3 

$ 

’ VOLATILE 

3 

G_WRT1 PROC 
8a C2 MoV 
98 CBW 
50 PUSH 
03 46 00 ADD 
8B FS HOV 
8A 76 09 MOV 
80 FE 09 CMP 
74 25 JE 
80 FE OB cP 
74 3B JE 
80 FE OA cP 
74 68 E 
80 FE 04 
74:7 JE 
80 FE 05 CHP 
74°77 JE 
80 FE 06 cup 
74°73 JE 
DL E7 SAL 
DL E? SAL 
B6 09 HOV 
ES 14FS R CALL 
E9 1320 R JMP 

GWRTL1: 
Di €7 SAL 
DL E7 SAL 
Be 09 MoV 
8B 46 02 Mov 
Do EC SHR 
72 05 Jc 
E8 14F3 R CALL 
EB 7F ump 

GWRTL2: 
81 C7 SFBO Abb 
€8 1527 R CALL 
EB 76 amp 

GWRTL21: 
53 PUSH 
3? PUSH 
56 PUSH 
8A FB MOV 
80 E7 80 AND 
DO EB SHR 
DO EB SHR 


NEAR 
AL, DL 


ax 
coe LSP MePmana 


are serene) MODE) 
GWRTLL 


DH, OBH 
GWRT121 


DH, OAH 
GWRTLS 
DH.4 
GWRT15 
DH.5 
GWRTL5 
DH,6 
GWRTA6 
DI,1 
DIL. 


oe CBOX_ROWs2 
G_W_4 in 


GWRT110 


Or,1 
DI,1 


DH, CBOX_ROW/(472)3 SET LOOP COUNT ( 18 ROW 7 4 SCAN 7 2 DEC. ) 


AX, CBP*NPOSN) 
outa 

os 

SHORT GWRTLI0 
DI,4000H-380 
G_W_40 


SHORT GWRT110 


ux 
or 
SI 


BH,BL 
ae ‘om tae BIT 


it: 1 


A-57 


SEY DISPLACEMENT 
TO AX 

SAVE IT 

GET POSITION TO WRITE 
IW DI 


we we we ee we 


GET CRT MODE 
320X200 16 COLOR 2 
YES 


we eee 


3 640X200 16 COLOR ? 
> YES 

3 640X200 4 COLOR ? 
3 YES 


3 320X200 4 COLOR ? 
Yes 
ia & SHADE 2 


3 
3 640X200 2 SHADE ? 
3 YES 


s--~ 160X200 16 COLOR: MODE 8 
3 
3 OFFSETH4 SINCE 4 BYTES/CHAR 


3 SET LOOP COUNT ( 18 ROW 7 2 SCAN ) 
3 WRITE ONE CHAR 


b--- END 

s--~ 320X260 16 COLOR 

3 

3 OFFSETH4 SINCE 4 BYTES/CHAR 


3 GET ROW COLUMN POSITION 

3 ODD ROW ? 

+ YES 

b~~~ WRITE EVEN ROW CHARACTER 
3 WRITE ONE CHAR 


s--- WRITE ODD ROW CHARACTER 
3 ADJUST WRITE ADDRESS FOR ODD ROW 
+ WRITE ONE CHAR 


s-~~ 640X200 16 COLOR 

so-> WRITE V-RAM 2 

SAVE ATTRIBUTE 

SAVE REGEN POINTER 

SAVE CHARACTER PATTERN ADDRESS 


SAVE ATTRIBUTE TO BH 
GET XOR BIT 


SHIFT ATTRIBUTE FOR WRITE TO V-RAM2 


wo we we 


wee eee 
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RESTORE XOR BIT 
ue oe gat brie } OFFSETK2 SINCE 2 BYTES/CHAR 
12c 
ce BG 09 nov DH,CBOX_ROW/(472); SET LOOP COUNT ( 18 ROW 7 4 SCAN / 2 DEC.) 
12 
+UBP*WPOSN) =; GET ROW COLUMN POSITION 
ae ee SRAM ; ODD ROW ? 
ee Jc GWRT122 + YES 
iceislinliteed ice WRITE EVEN ROW CHARACTER 
12CF £8 1498 R CALL GWA ; 
1202 EB 07 snp SHORT GHRT123 aoe 
3--- WRITE ODD ROW CHA 
pn sien DI, 4000H-80 3 ADJUST WRITE ADDRESS FOR ODD ROW 
1aee Es aece : CALL = G_W_10 3 WRITE ONE CHAR 
1 aa 
13DB SE iene SI i RESTORE CHARACTER PATTERN ADDRESS 
ie ESTORE REGEN 
tees ge POP Bx ; RESTORE ATTRIBUTE 
12DD 5B PoP BX 3 RE 
Ds + SAVE DS 
13DF Es 0000 € CALL ODDS 3 POINT TO DATA AREA 
T DIRECT ACCESS SEGEHT OF V-RAM 1 
12E2 8 1D9S R CALL —— GET_DIRSEG } GET DIRECT A 
12E5 8& CO MOV ES, AX b SET IT 10. 
12E7 1F POP DS i RESTORE Ds 
3--~ 640X200 4 COLOR 
izes pi 7 nn a DI,1 3 OFFSETM2 SINCE 2 BYTES/CHAR 
12EA 86 09 MoV DH, CBOX_ROW/(4/2); SET LOOP COUNT ( 18 ROW 7 § SCAN 7 2 DEC.) 
ET ROW COLUMN POSITION 
1ZEC 8B 46 02 nov AX, {BPOUPOSN) + SET Row 
toe 6S GWRT14 YES 
Sein ee sai j--= WRITE EVEN ROM CHARACTER 
12F3 €8 1498 R CALL = GW } WRITE ONE CAHAR 
12F6 EB 36 JMP SHORT GWRT118  --- END 
b--- WRITE ODD ROW CHARACTER 
13es 81 C7 SFBO soeaialat DI,4000H-80 3 ADJUST WRITE ADDRESS FOR ODD ROW 
12FC EB 142 R CALL = G_W_10 3 WRITE ONE CHAR 
12FF EB 2B JMP SHORT GWRTL10 
so-- 320X200 4 COLOR/SHADE 
1302 GURTIS: ; 
1301 D1 E7 SAL DI,1 3} OFFSETM2 SINCE 2 BYTES/CHAR 
Vv DH,CBOX_ROW/2 5 SET LOOP COUNT ( 18 ROW / 2 SCAN ) 
130s ES Secs & talk G_W_2 3 WRITE ONE CHAR 
1308 EB 22 JuP SHORT GWRT119  3--- END 
3 640X200 2 SHADE 
Hea a6 09 mane DH,CBOX_ROW/2 5 SET LOOP COUNT ¢ 16 ROW / 2 SCAN ) 
130¢ GuRT.17: 
3} GET WORD FROM CODE POINTS 
i3ep fe cs 80 test BL, XOR_BIT + SHOULD WE USE THE FUNCTION 
1310 75 06 JNZ GURT18 3 TO PUT CHAR IR? 
A . STOSB 3 STORE IN REGEN BUFFER 
1313. AC LoDsB 3 GET NEXT ROW 
1318 EB OA JMP SHORT GWRTL9 
1316 GWRT18: 
136 26: 32 05 XOR AL, ES: Cpr) + EXCLUSIVE OR WITH CURRENT DATA 
1319 AA STOSB + STORE THE CODE POINT 
131A Ac LODSB 3 AGAIN FOR ODD FIELD 
ISB 26: 32 85 FFF curtis: *” AL, ES:(DI+2000H-1) 
8 : 
1320 26: 88 85 LFFF nov ES:(DI*2000H-13,AL 5 STORE IN SECOND HALF 
He Bg See a antigee hte 
1328 FE CE : 
132k 75 £0 JRZ GWRTL7 NO 
132¢ GWRT110: s--- END 
1326 58 PoP aX + RESTORE DISPLACEMENT 
132D 0A CO OR ALLAL 3 ZERO ? 
132F 75 03 JHE GURT111 3 HO 
1331 FF 46 00 INC WORD PTR (BP+WGPOSK] 3 ADVANCE WRITE POSITION 
1336 GMRT1I1: 
1336 ¢3 rey 
1335 G_WRT1 ENDP 
ene ele Ee ee eee Eee 
i G_WRITE2 
3 
i THIS ROUTINE WRITES THO BYTE CHARACTER IN GRAPHICS 
} THPUT [BPSWGPOSN} = WRITE POSITION 
i EBPsUPOSN] == ROW/COLUMK POSITION TO WRITE 
i tarsus oer : ALIRIBUTE/CODE OF 2xp BYTE 
3 CBPeHCmenee) N SEGMENT FOR GRAPHICS 


CURRENT CRT MODE (MASKED) 


A-58 


Oe ded 
VeCuu VLuUuuUYvY uu 
Con vv VS 
Kon COrwewve ow 


ee ee ee 
Vu VueUuUlunuu 
C2o O8OCA0O 
VN DOeNounw 


~- 
“ 
=o 
~ 


BO 
iz.) 
06 
1F 
88 
58 
8E 


80 
75 


D1 


C3 80 


06 0349 R 00 
1E 0340 R 


46 04 
SE 05 


SE OA 


cs 
1B65 ® 


80 
1 
1A63 R 


FS 


46 06 


7E 00 
76 09 
2F 


0002 
09 


C7 80 
04 


OA 


32 05 


: 32 85 1FFF 


88 85 lLFFF 
C7? 4F 


cE 
€0 


FB 
07 


148E R 


FE 08 
18 


€7 


Se ee 


OUTPUT 


(BP+WGPOSN) = NEXT WRITE POSITION 


WORK (BP¢WFONT - WFONT+35) = FONT PATTERN 
CALL CHECK_ROSS_CHAR 
We 

G_W_10 

HL 

G_W_S 

G_W_40 

GET_DIRSEG 
VOLATILE AX, BX, CX, DX, SI 


G_WRITE2 PROC 


GWRT21: 


GHRT22: 


GURT23: 


GHRT24: 


x 
GWRT25: 


GWRT 261 


CALL 
MOV 
mov 
CALL 
PUSH 
Pop 
MOV 
PoP 


MOV 


MOV 
MOV 


CMP 
JNE 


MoV 


PUSH 
MOV 


LODS8 
TEST 
INZ 


STOSB 


LODsB 
JMP SHORT GWRT25 


ASSUME CS:CODE, DS: DATA, ES: VIDEO_ RAN 


NEAR 

DS 3 SAVE CURRENT DS 

or 3 SAVE CURRENT DI 

ES 3 SAVE CURRENT ES 

BL,XOR_BIT + XOR WRITE BIT ON ? 
GWRT21 3 YES 

GC_PRESENT, FALSE + GRAPHICS CURSOR FLAG OFF 


+ SET ATTRIBUTE OF 1ST BYTE TO BH 
SET 1ST BYTE OF 2 BYTE CODE TO AH 


BX,W_LIST_CHAR; 

AH, BL 3 

AL, CBP+W2CODE] ; SET 2ND BYTE OF 2 BYTE CODE TO AL 
Hy 


BL, CBP*W2ATTRI SET ATTRIBUTE OF 2ND BYTE TO BL 
Bx 3 SAVE COLOR ATTRIBUTE 
ze 3 No acacia SEGMENT FOR FONT 


ES 
ASSUME ES: STACK 


BX, (BP+WFONT) 3 SET DESTINATION OFFSET FOR FONT TO BX 


3 SET CHARACTER CODE TO Cx 
} CHECK AND CONVERT ROSSIAN CHARACTER 


SET FUNCTION OF REQUEST FONT WITH FULL BOX 
INDICATES KJ MODE 
GET FONT PATTERN 


CX, AX 
CHECK_ROSS_CHAR 


AL,80H 
DH,KJ_MODE 
FONT 


we ee 


; els a ea FOR FONT PATTERN 
ASSUME DS: STACK 

ST,Bx + SET TOP ADDRESS OF FONT PATTERN 

Bx 3 RESTORE COLOR ATTRIBUTE 


Cae Care SEG) 5 GET ACTUAL REGEN SEGMENT FOR GRAPHICS 
ASSUME ES: VIDEO_RAM 


DI,CBP+NGPOSN) 5 SET WRITE POSITION TO DI 


DH, CBP*WC_MODE) ; GET CRT MODE 
OH.6 


+ 640X200 2 SHADE ? 
GURT26 3 NO, MODE IS 8 


s-~~ 640X200 2 SHADE 
CX,2 + REPEAT 2 TIMES FOR LEFT/RIGHT PART 


1 3 SAVE REGEN ADDRESS TO WRITE 
OH, CBOX_ROW/2 3 NUMBER OF TIMES THROUGH LOOP 


GET WORD FROM CODE POINTS 
SHOULD WE USE THE FUNCTION 
TO PUT CHAR IN? 


STORE IN REGEN BUFFER 
GET NEXT ROW 


BH, XOR_BIT 
GuRTZe- 


we ee ee 


wee 


AL, ES: (DI) s EXCLUSIVE OR WITH CURRENT DATA 
3 STORE THE CODE POIN 
$ AGAIN FOR ODD FIELD. 

AL, ES: (DI*2000H-1) 


ES:(DI*2000H-1),AL 3 STORE IN SECOND HALF 


O1,79 3 MOVE TO NEXT ROW IN REGEN 
OH 3 DONE WITH LOOP ? 
GWRT23 3 NO 
or 5 RESTORE REGEN ADDRESS 
DI 3 NEXT POSITION 
BHLOBL + SET 2ND ATTRIBUTE TO BH 
GURT22 
GWRT212 geo~ END 
DH.8 3 160X200 16 COLOR ? 
GWRT27 + NO 

s--~ 160X200 16 COLOR: MODE 8 
or,1 ‘ 
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1349 D1 E7 SAL Dr. 1 OFFSETK4 SINCE 4 BYTES/CHAR 
PUSH BX 3 SAVE ATTRIBUTE 
13ae aA DF Mov BL. BH 3 SET 1ST ATTRIBUTE 
6 09 mov DH,CBOX_ROW/2 —s SET _LOOP COUNT ( 18 ROW / 2 SCAN ) 
138 ES 1eFS R CALL G_WL4 3 WRITE LEFT PART 
1383 83 ¢7 04 ADD oT + NEXT WRITE POSITION 
sb PoP ax } RESTORE ATTRIBUTE 
1386 
1337 BG 09 MoV DH,CBOX_ROW/2 ©; SET LOOP COUNT ( 18 ROW / 2 SCAN ) 
139 EB 14F3 R CALL OGL i; WRITE RIGHT PART 
13BC ED 148E R JMP GuRT212 i--+ END 
13BF GWRT27: 
13BF 80 FE 09 cmp DH. 9 + 320X200 16 COLOR 
13c2_ 75 32 JHE GWRT282 + KO 
s--- 320X200 16 COLOR 
13¢6 D1 E? SAL DIL ; 
13¢6 D1 E7 SAL DI,1 3 OFFSETH4 SINCE 4 BYTES/CHAR 
13c8 53 PUSH BX + SAVE ATTRIBUTE 
13¢9 8A DF MoV BL.BH + SET 1ST ATTRIBUTE 
LSCB BG 09 Mov DH, CBOX_ROW/(472); SET LOOP COUNT ( 18 ROW 7 4 SCAN 7 2 DEC. ) 
13CD 8B 46 82 nov AX,CBPOHPOSH] 5 GET ROW COLUMN POSITION 
5 
1302 72 OF Jc GWRT28 3 YES 
so-- WRITE EVEN ROW CHARACTER 
13D¢ EB 14F3 R CALL GW $ WRITE LEFT PART 
1307 83 C7 04 AbD DI.4 3 NEXT WRITE POSITION 
1308 6 09 roe Bepsaxieouvtase! ar Lite Stat) 16 ees ¢ wn 8 des. 2 
+CBOX_ ; ¢ € 18 ROW / : 
1SDD EB 14F3 RP CALL G6 ; WRITE RIGHT PART 
13E0 £9 148E R ump GURT212 s--- END 
1SES GURT28: --- WRITE ODD ROW CHA 
13ES 81 C7 SBD Abb DI,4000H-80 } ADJUST FOR ope Ro NRACTER 
13E7 EB 1527 R CALL = G60 i; WRITE LEFT PART 
L3EA 83°€7 06 ADD DI.4 + NEXT WRITE POSITION 
13ED 5B POP Bx 5 RESTORE ATTRIBUTE 
13EE BG 09 MOV DH, CBOX_ROW/(472); SET LOOP COUNT ( 18 ROW / 4 SCAN 7 2 DEC. ) 
13FO E8 1527 R CALL G_W_40 + WRITE RIGHT PART 
ISFS E9 168E R JMP GHRT212 so-> END 
ire a0 Fe 0B ee, 
mp DH, OBH + 640X200 16 COLOR ? 
13F9 75 6D SNE GWRT29 + HO 
ir geen at entn 
poe- “RAM 
ISEB 53 PUSH BX 3 SAVE ATTRIBUTE 
13FD 36 rush =o b SIVE GHLRLOVER Setiiin nreesk 
; H R PATTER 
13FE 8B C3 : Mov AX, BX 3 SAVE ATTRIBUTE TO BH 
1400 25 s080 : 
1603 81 ES 7e7¢ AND Bx 7CTCHT teow OR XOR_BIT | MASK NOR BET 
aes BL SHR OKs i SHIFT ATTRIBUTE FOR WRITE TO V-RAM2 
1693 OB D8 OR BX, AX ie 
i ESTORE XOR BIT 
160D Di £7 SAL DIsi } OFFSETX2 SINCE 2 BYTES/CHAR 
160F 
1610 8A DF ee i Sep usy artbteure 
14128 ’ 
2 B86 09 HOV DH» CBOX_ROW/(4/2); SET LOOP COUNT € 18 ROK 7 4 SCAN / 2 DEC.) 
414 8B 46 02 
1617 DO EC SHR 1h lla GET ROW COLUMN POSITION 
thin 8S Oh Je GWRT282 ie 
wine cut ct OTE G4 to nnn 
et oe ADD DI,2 s HEXT WRITE POSITION 
PoP 3x 
1622) B6 og 3 RESTORE ATTRIBUTE 
1626 €8 1698 R Ak Be eOX-ROW/(472)5 SET LOOP Count (18 ROW 7 4 SCAN 7 2 DEC.) 
1627 eB 1 A WRITE RIGHT PART 
JMP SHORT GWRIZ83 
“-- END 
1629 
1629 81 ¢7 sep0 iii ee Ins" WRITE ODD ROW CHARACTER 
D EB i6cz R CALL gage ee { ARUST For O00 Rou 
1630 383 ¢7 092 ap, 
1433 sp ae He + NEXT WRITE PoszTION 
1436 Be O9 Pop BX : 
wai hoy + RESTORE ATTRIBUTE 
1639 ie CALL Gry ROX-ROWZC472)5 SET LOOP COURT ( 18 ROW 7 4 SCAN 7 2 DEC.) 
14639 SE GWRT283; =e 3 WRITE RIGHT PART 
163A 5F PoP SI F 
1638 36 Pop Hy + RESTORE CHARACTER PATTERN ADDRESS 
| Pep : + RESTORE REGEN POINTER 


} RESTORE ATTRIBUTE 
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143¢ 
143D 


1440 
1443 
1445 
1446 


1448 
1448 
144B 


144D 
144D 


144F 
1450 
1452 


1454 
1457 
1459 


1458 
145E 


1461 
1462 
1464 


1467 


1469 
1469 
146D 


1470 


1473 
1474 
1476 


1479 


1478 
1478 


147D 
147E 
1480 
1482 


1485 


1488 
1489 
1488 


148E 
148E 
1491 


1494 
1495 
1496 


1497 
1498 


1498 
1498 


1493 
149¢ 
149C 
149F 
14a3s 
14A6 


Es co00 E 


E8 1095 R 
BE co 


75 2€ 


Dl E7 
53 
Bé 09 
8B 46 02 
DO EC 
72 «OE 
EB 1498 R 
83 C7 02 
5B 

09 
ES 14698 ® 
EB 25 
81 C7? SFBO 
E8 14C2 R 
83 C7 02 


B6 09 
Es 14C2 8 


EB 13 


Dl £7 

$3 

8A DF 

Be 09 

ES 14C8 R 
83 C7 02 
58 

Es 14C8 R 
B8 0002 
01 46 00 
07 

iF 


cs 


E€8 152D R 
57 


E8 1554 R 
81 C? 2000 
ES 1554 R 
81 C7 2000 


PUSH DS + SAVE DS 
CALL pps 3 POINT TO DATA AREA 
CALL GET_DIRSEG 3 GET DIRECT ACCESS SEGENT OF V-RAM 1 
MOV ES,AX 3 SET IY TO ES 
PoP DS 3 RESTORE DS 
JMP SHORT  GWRT291 s--- WRITE V-RAM 1 
GWRT29: 
cup DH, OAH + 640X200 4 COLOR ? 
JNE GMRT211 3 NO, MODE = 4,5 
GWRT291: s-7> 640X200 4 COLOR 
SAL DI,1 3 OFFSETMH2 SINCE 2 BYTES/CHAR 
PUSH Bx 3 SAVE ATTRIBUTE 
MOV BL,BH 3 SET 1ST ATTRIBUTE 
MOV DH, CBOX_ROW/(472)3 SET LOOP COUNT ( 18 ROW 7 4 SCAN 7 2 DEC.) 
MOV AX, CBP*HPOSH) 5 GET ROW COLUMN POSITION 
SHR AH, 1 3 ODD ROW 2 
Jc GWRT210 3 YES 
go--> WRITE EVEN ROW CHARACTER 
CALL G_W_1 3 WRITE LEFT PART 
ADD d1,2 3 NEXT WRITE POSITION 
PoP Bx 3 RESTORE ATTRIBUTE 
Mov DH,CBOX_ROW/(472); SET LOOP COUNT ( 18 ROW 7 4 SCAN / 2 DEC.) 
CALL G_W_i 3 WRITE RIGHT PART 
JMP SHORT GWRT212 9 ;--- END 
GWRT210: s--- WRITE ODD ROW CHARACTER 
ADD DI,4000H-80 3 ADJUST FOR ODD ROW 
CALL G_W_10 3 WRITE LEFT PART 
ADD DI,2 3 NEXT WRITE POSITION 
PoP Bx 3 RESTORE ATTRIBUTE 
MoV OH, CROK_Row/C472)5 SET LOOP COUNT ¢ 18 ROW 7 4 SCAN / 2 DEC.) 
CALL GW + WRITE RIGHT PART 
JMP SHORT GWRT212 3--- END 
GURT211: 3~-- 320X200 4 COLOR/SHADE 
SAL DI, + OFFSETH2 SINCE 2 BYTES/CHAR 
PUSH Bx 3 SAVE ATTRIBUTE 
MOV 3L,BH 3 SET IST ATTRIBUTE 
MOV DH,CBOX_ROW/2 =: SET LOOP COUNT ( 18 ROW 7 2 SCAN ) 
CALL G_W_2 3 WRITE LEFT PART 
ADD DI,2 3 NEXT WRITE POSITION 
PoP ax 3 RESTORE ATTRIBUTE 
MOV DH,CBOX_ROW/2 = 5, SET LOOP COUNT ( 18 ROW 7 2 SCAN ) 
CALL ews 3 WRITE RIGHT PART 
GURT212: s--- END 
HOV AX,2 3 
ADD CBP¢HGPOSN),AX 5 ADVANCE WRITE POSITION 
PoP ES + RESTORE ES 
POP DI 3 RESTORE DI 
PoP DS + RESTORE DS 
RET 


G_LWRITE2 ENDP 


Brew ew mene ener ewww w ww wee ne eee ewww ewe ee eee nen nee 


G_W_i 


INPUT 


OUTPUT 


CALL 


VOLATILE 


we we we we we we we we we we we we ee me 


Obl PROC 
CALL 


PUSH 


CALL 
ADD 
CALL 
abd 


GWile 


THIS ROUTINE WRITES ONE CHARACTER PATTERN INTO REGEN 


€ 640X200 ¢ COLOR ) 


BL = ATTRIBUTE 
DH = ROW NUMBER OF ONE SCAN BANK 
DS:SI = CHARACTER PATTERN ADDRESS 
EStDI = REGEN ADDRESS TO WRITE 

NONE 

EX_2BIT 

G_W_RI 


AX, BX, DH, ST 


ASSUME CS:CODE, 


EX_2BIT 
DI 
G_W_R1 
DT,2000H 


G_W_R1 
DY, 2000H 


A-61 


we ee eee 


DS:STACK, ES: VIDEO_RAM 


EXPAND LOW 2 BITS IN 8X 
woo WRITE CHARACTER 


SAVE REGEN POINTER 


DO FIRST DOT ROW 
ADJUST REGEN POINTER 
DO NEXT DOT ROW 
ADJUST REGEN POINTER 


Appendix A. 


14aa FE CE 
14ac 74 12 


16AE E8 1554 RK 


14B1 81 C7 2000 


1485 €8 1554 R 


1438 81 EF SF6O 


14pc FE CE 
14BE 75 DC 


14¢2 
14C2 E€8 152D R 


14cS 57 
14C6 EB Eb 


14¢8 


16DF €8 1572 R 


14E9 81 EF 1FBO 


16ED FE cE 
1SEF 75 EE 


14Fl SF 
16F2 3 


16F3 


Gu12: 


ere ee 


G21: 


GW22: 


G_W_2 


DEC OH 
JZ Gw1s 


CALL G_W_R1 


ALL DONE ? 
Oo 


ary 


DO NEXT DOT ROW 


3 
ADD DI,2000H 3 ADJUST REGEN POINTER 
CALL W_Ri 3 DO NEXT DOT 
SUB DI, c000H-160 } ADJUST REGEN POINTER TO NEXT ROW 
DEC DH 
JNZ GW11 3 KEEP GOING 
POP DI 3 RECOVER REGEN POINTER 
RET 
ENDP 
G_W_10 


THIS ROUTINE WRITES ONE CHARACTER PATTERN INTO REGEN ( FOR ODD ROW ) 
( 640X200 4 COLOR ) 


INPUT BL 
DH 


DS:SI 
Es:DI 


OUTPUT 
CALL 


VOLATILE 


ATTRIBUTE 

ROW NUMBER OF ONE SCAN BANK 
CHARACTER PATTERN ADDRESS 
REGEN ADDRESS TO WRITE 


NONE 


EX_2BIT 
(G_W_1) 


AX, BX,DH,SI 


ASSUME “¢S:CODE, DS:STACK, ES: VIDEO_RAM 


Proc NEAR 
CALL EX_2BIT 
PUSH DI 

JMP GWi2 
ENDP 

G_W_2 


+ EXPAND LOW 2 COLOR BITS IN BL 
g--- WRITE CHARACTER 
3 SAVE REGEN POINTER 


' 
1 
' 
' 
‘ 
' 
' 
' 
' 
' 
' 
‘ 
' 
1 
1 
1 
' 
‘ 
i] 
t 
t 
1 
' 
1 
1 
i] 
! 
‘ 
‘ 
t 
i] 
‘ 
' 
1 
t 
' 
t 
f] 
1 
i] 
' 
i] 
' 
i] 
' 
1 
' 
' 
‘ 
' 
‘ 
' 
f] 
' 
' 
' 
' 
‘ 
' 
‘ 
' 
' 
' 
' 
' 


THIS ROUTINE WRITES ONE CHARACTER PATTERN aaa REGEN 
© 320X200 4 COLOR, 320X200 4 SHADE 


INPUT BL = ATTRIBUTE 

DH = —- ROW NUMBER OF ONE SCAN BANK 

DS:SI = CHARACTER PATTERN ADDRESS 

ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT NONE 
CALL G_W_R2 
VOLATILE AX, BX, DH, SI 

peseeiceeioseceesedwesees wetsees de Sains cece deseevewcucsbabeosceisen 
PROC — NEAR 
MOV DL, BL + COPY ATTRIBUTE YO DL 
: ---EXPANDS THE LOW 2 BITS IM BL TO FILL THE BX 
AND BL,3 3 ISOLATE THE COLOR BITS 
MOV AL, BL 3 COPY TO AL 
PUSH = CX 3 SAVE REGISTER 
MoV CX, 3 + HUMBER OF TIMES TO DO THIS 
SAL Als. 
ore BLTAL } ANOTHER COLON INTO BL 
é ; HER COLOR VERSION 
LOOP == G21 s FILL ALL OF B 
Mov BH, BL i FILL UPPER PORTION 
POP cx i REGISTER BACK 
3--- WRITE CHARACTER 

PUSH oI $ SAVE REGEN POINTER 
CALL = G_W_R2 3 DO FIRST 2 BYTES 
7, bY .2esan ; NEXT SPOT IN REGEK 
SUB DI, 2000-80 3 NEXT 2 BYTES 
DEC DH 
JNZ Gw22 + KEEP GOING 
ce 2|OO + RECOVER REGEN POINTER 
ENDP 
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1527 
1527 
US2A 
1528 
1520 


ESB 1542 R 


ES 158C R 
81 C7 2000 
ES 158C R 


80 7E 09 69 
16 
FE CE 
PTY 
81 C7 2000 
ES 158C R 
81 C7? 2000 
EB 158C R 
81 EF SFBO 
81 EF 1FBO 


FE CE 
75 b2 


ES 1542 R 
37 
EB E2 


Jowene------ a 
C_W_S$ 
THIS ROU 


ee ee 


pee WRITES ONE CHARACTER PATTERN ae REGEN 
160X200 16 COLOR, 320X200 16 COLOR ) 


INPUT x = RP IRIBUTE (LOW 4 BITS) 


= W NUMBER OF ONE SCAN BANK 
TBPeNC HOE): CURRENT CRT MODE (MASKED) 
DS:SI = CHARACTER PATTERN ADDRESS 


ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT NONE 
CALL EX_4BIT 
RS 
VOLATILE AX, BX, DH, SI 
feceeces saciwdaeeus Scecaweee eames ceseweesSatwesseces Scapa 
G_M_4 PROC NEAR 
CALL EX_4BIT + EXPANDS THE LOW 4 BITS 
s--- WRITE CHARACTER 
PUSH DI 3 SAVE REGEN POINTER 
G41: 
CALL G_W_R4 3 EXPAND DOT ROW IN REGEN 
ADD DI,2000H 3 POINT TO NEXT REGEN ROW 
CALL G_W_RG 3 EXPAND DOT ROW IN REGEN 
cue BYTE PTR CBP+NC_MODE),09H 3 USING 32K REGEN AREA? 
SNE GUS 3 JUMP IF 16K REGEN 
DEC DH 3 DECREMENT COUNTER 
Jz Gu44 3 ALL DONE 
— ADD DI,2000H + POINT TO NEXT REGEN ROW 
: 
CALL G_W_R4 3 EXPAND DOT ROW IN REGEN 
ADD DI,2000H 3 POINT TO NEXT REGEN ROW 
CALL G_W_R4 3 EXPAND DOT ROW IN REGEN 
aes SUB DI.4000H-80 3 ADJUST REGEN POINTER 
2 
SUB DI,2000H-80 3 ADJUST REGEN POINTER TO NEXT ROW 
DEC DH 
INZ Gw41 3 KEEP GOING 
GH44: 
PoP DI 3 RECOVER REGEN POINTER 
RET 
G_W4 =  ENDP 
ji SerSera cee ce sewn cewa eae ewes ccecce eee es 
$ 
3 G_W_40 
8 
3 THIS ROUTINE WRITES ONE CHARACTER PATTERN INTO REGEN (ODD ROW) 
i € 160X200 16 COLOR, 320X200 16 COLOR » 
3 INPUT BL = ATTRIBUTE (LOW 4 BITS) 
3 DH = ROW NUMBER OF ONE SCAN BANK 
3 CBP+WC_MODEJ= CURRENT CRT MODE (NIBBLE) 
3 OS:SI = CHARACTER PATTERN ADDRESS 
, ES:DI = REGEN ADDRESS TO WRITE 
3 ouTPUT NONE 
t 
3 CALL EX_4BIT 
: (O_W_4) 
, VOLATILE AX,8X,DH,SI 
t ewer eeeree= ee Ree eee eee eee ewer wees SOR O88 OS SS SSeS eee See ee Sees 
G_W_40 PROC HEAR 
CALL EX_4BIT 3 EXPANDS THE LOW 4 BITS 
bo-~ WRITE CHARACTER 
PUSH DI 3 SAVE REGEN POINTER 
snp Gu42 3 
G_W_40 ENDP 
Jt Re Se ee ewe cee m meme wn wwwe we wee ewww ewe wen ewe ewe we wee weennn 
’ 
’ EX_2BIT 
3 
’ THIS ROUTINE EXPANDS hee 2 COLOR BITS IN BL 
3 640X206 4 COLOR ) 
t 
; INPUT BL = ATTRIBUTE 
; 
5 OUTPUT DL = ATTRIBUTE 
} BX = EXPANDED COLOR 
s 
3 CALL NONE 
} 
$ VOLATILE AX, BX 
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1542 


1542 
1544 


1945 
1548 


154A 
154c 


154E 
1550 
1552 
1553 


1554 


bs 


co 
cs 


FF 
cs 
FF 


8a DS 


51 


80 ES OF 
BA FB 


Bl 04 
b2 E7 


OA FB 
3A OF 


59 
cs 


ac 
ba 
23 


EO 
cs 


Fe C2 80 


74 


26: 32 25 
26: 32 45 01 


26: 88 25 
26: 88 45 OL 


c3 


07 


Jomo eee w een n eee mee meron nn eee eee eeeene wow ee enn n eee: —— -- 


ASSUME “ES:CODE, DS:STACK, ES: VIDEO. _RAM 
EX_2BIT PROC HEAR 


MoV DL. BL 3 COPY ATTRIBUTE TO DL 
3--~ EXPAND LOW 2 COLOR BITS IN BL (C1CO) 
XOR AX, AX + INTO BX (COCOCOCOCOCOCOCOCICICICICICICIC1) 
TEST BL.1 + CO COLOR BIT ON? 
JZ EX2B1 3 NO, JUMP 
MOV AH, OFFH 3 YES, SET ALL CO BITS ON 
EX2B1: 
TEST BL.2 + C1 COLOR BIT ON? 
JZ EX2B2 3 NO, JUMP 
MOV AL, OFFH + YES, SET ALL C1 BITS ON 
EX2B2: 
wee BX, AX 3 COLOR MASK IN BX 


EX_2BIT ENDP 


meres Wecteccetsculs ERS R Se eee a Re eS ae eRe ee ee 
; EX_4BIT 
3 
; THIS ROUTINE EXPANDS LOW 4 COLOR BITS IN BL 
; (160X200 16 COLOR, 320x200 16 COLOR > 
; 
3 INPUT BL = ATTRIBUTE (LOW 4 BITS) 
; OUTPUT DL = ATTRIBUTE 
3 BX = ‘EXPANDED ATTRIBUTE 
3 
; CALL NONE 
5 
3 VOLATILE AX 
3 
OC Sraiedaiwss SNL Senne Team AP OES RE sites na ah os ee 
EX_4BIT PROC NEAR 
MoV DL, BL 3 COPY ATTRIBUTE TO DL 
PUSH CX $~--EXPANDS THE LOW 4 BITS IN BL TO FILL BX 
AND BL, OFH 3 ISOLATE THE COLOR BITS 
MOV BH, BL 3; COPY TO BH 
Mov cL.4 ; MOVE TO HIGH NIBBLE 
SHL BH,CL ; 
OR BH, BL 3 MAKE BYTE FROM HIGH AND LOW NIBBLES 
MOV BL, BH ; 
POP cx 
RET 
EX_4BIT ENDP 
eae nee id ateucloce bacwccuisececc ous Te sg 
3 
3 G_W_RI 
; THIS ROUTINE WRITES ONE ROW OF CHARACTER PATTERN INTO REGEN 
3, EXPAND 1 DOT ROW OF A CHAR INTO 2 BYTES 
3 © 640X200 4 COLOR ) 
3 
3 INPUT BX = EXPANDED ATTRIBUTE 
3 DL = ATTRIBUTE 
3 DS:SI = CHARACTER PATTERN ADDRESS 
3 ES:DI = REGEN ADDRESS TO WRITE 
3 
5 OUTPUT Sz = Ssr#2 
3 
3 CALL HONE 
3 
3 VOLATILE AX 
3 
H 


ASSUME CS:CODE, DS:STACK, ES: VIDEO_ RAM 
GWAR PROC NEAR 


LODSB + GET CODE POINT 
MoV AH, AL 3 COPY INTO AH 
AND AX, BX + SET COLOR 
TEST DL, XOR_BIT + XOR FUNCTION? 
J2 GWR11 + NO, JUMP 
XOR AH, ES:(DI} > EXCLUSIV RENT DATA 
XOR AL, ES:(D141) Sennen 
GUR11: 
Mov ES:(DI),AH + ST 
nay re ORE IN REGEN BUFFER 
RET 


G_WR1 ENDP 


156D 


156D 
1570 


1572 


158¢ 


~ 
w 
o 
a 


ee ed 
VUE VU BEUwW w 
200 2D WOOD & 
>on VP uUenm Oo 


E8 15C2 ® 
EB 046 


ac 
cs 
23 


F6 
74 


15A0 R® 
cs 


C2 80 
07 


26: 32 25 


26: 32 45 01 


26: 88 25 


26: 88 45 O1 
cs 


04 
€& 


1S56D R 


156D R 


EX_W_R2 


GHR22: 


G_W_R2 


ee oe 


G_LWLR4 


THIS ROUTINE EXPANDS Seen ROW OF CHARACTER PATTERN 
AND WRITES IT INTO REGEN 


INPUT = AL = CHARACTER PATTERN 
og = EXPANDED ATTRIBUTE 
= ATTRIBUTE 
D311 = CHARACTER PATTERN ADDRESS 
= REGEN ADDRESS TO WRITE 


OUTPUT SI = SI#1 


CALL EX_NIBBLE 
(G_W_R2) 
VOLATILE Ax 
PROC = NEAR 
CALL EX_NIBBLE + QUAD UP THE LOW NIBBLE 
JMP SHORT GWR22 
ENDP 
G_W_R2 


THIS ROUTINE WRITES ONE ROW OF CHARACTER PATTERN INTO REGEN 
EXPAND 1 DOT ROW OF A CHAR INTO 2 BYTES 


€ 320X200 4 COLOR, 320x200 4 SHADE ) 


INPUT BX = petty ATTRIBUTE 
DL = ATTRIBUTE 
OS:SI = CHARACTER PATTERN ADDRESS 
ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT SI = SI*1 
CALL EX_BYTE 
VOLATILE Ax 
PROC NEAR 
LODSB 3 GET CODE POIN 
CALL EX_BYTE + DOUBLE UP AL THE BITS 
AND AX, BX ; rae ee TO FOREGROUND COLOR 
TEST DL,XOR_BIT ; IS THIS XOR FUNCTION? 
JZ GWR22 3 


NO, STORE IT IN AS IT IS 


DO FUNCTION WITH HALF 
AND WITH OTHER HALF 


STORE FIRST BYTE 
STORE SECOND BYTE 


XOR AH, ES: (DI) 
XOR AL, ES: (COIe2) 


MOV ES: (DIJ,An 
MOV ES: CDI#1),Ab 


ee 


we 


TR mre w enn ew meee nnn new ern wen www ewww ee enw e ewww wenn 


G_LW_R4 


THIS ROUTINE WRITES ONE ROW OF CHARACTER PATTERN INTO REGEN 
EXPAND 1 DOT ROW OF A CHAR INTO 4 BYTES 


€ 160X200 16 COLOR, 320x200 16 COLOR > 


INPUT §=BX = EXPANDED ATTRIBUTE 
DL = ATTRIBUTE 
OS:SI = CHARACTER PATTERN ADDRESS 


ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT SI = SI 
CALL EX_W_R2 
VOLATILE Ax 
PROC = NEAR 
LODSB 3 GET CODE POINT 
PUSH AX 3 SAVE 
PUSH CX 
MOV CL. 4 3} MOV HIGH NIBBLE TO Low 
SHR ALCL 
PoP cx 
CALL EX_WLR2 3s EXPAND TO 2 BYTES & PUT IN REGEN 
POP ax 3 RECOVER CODE POINT 
INC or 3 ADJUST REGEN POINTER 


or 
CALL EX_W_R2 
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EXPAND LOW NIBBLE & PUT IN REGEN 
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159D 
159E 


159F 
15A0 


4F 
4F 


cs 


Fo 


DEC pI 3 RESTORE REGEN POINTER 
DEC DI 
RET 
G_W_R4  ENDP 
Jedeesweuscecesucewscesbed voce cceuee. 48 
: EX_BYTE EXPAND BYTE 
: THIS ROUTINE TAKES THE BYTE IN AL AND DOUBLES ALL 
; OF THE BITS: TURNING THE 8 BITS INTO 16 BITS. 
; THE RESULT IS LEFT IN 
i INPUT AL = BIT TO DOUBLE 
3 
; OUTPUT AX = DOUBLED BITS 
F CALL NONE 
3 
; VOLATILE NONE 
EX_BYTE PROC NEAR 
PUSH Dx 3 SAVE REGISTERS 
PUSH cx 
PUSH BX 
SUB DX, DX + RESULT REGISTER 
Mov cXs1 3 MASK REGISTER 
EXBYTE2: 
mov BX, AX 3; BASE INTO TEMP 
AND BX, CX 3 USE MASK TO EXTRACT A BIT 
OR DX, BX i PUT INTO RESULT REGISTER 
SHL AX 
SHL CX, 3 SHIFT BASE AND MASK BY 1 
Mov BX, AX 3; BASE TO TEMP 
AND BX, CX } EXTRACT THE SAME BIT 
OR DX, BX ; PUT INTO RESULT 
SHL v1 3 SHIFT ONLY MASK NOW, MOVING TO NEXT BASE 
JNC EXBYTE1 3 USE MASK BIT COMING OUT TO TERMINATE 
MoV AX, DX 3 RESULT TO PARM REGISTER 
POP BX 
POP CX ; RECOVER REGISTERS 
POP DX 
RET 3 ALL DONE 
EX_BYTE EKDP 
jeceeenwedecee esas sa i ds Sos 38 
3 
; EX_NIBBLE EXPAND NIBBLE 
3 
; THIS ROUTINE TAKES THE LOW NIBBLE IN AL AND QUADS ALL 
; OF THE BITS, TURNING THE @ BITS INTO 16 BITS. 
3 THE RESULT IS LEFT IN A 
3 
3 INPUT AL = NIBBLE DATA 
3 
; OUTPUT AX = QUADED BITS 
3 
3 CALL KONE 
3 
; VOLATILE HORE 
Pe avec tc aeplgeiceen ene 
EX.HIBBLE PROC NEAR 
PUSH x 3 SAVE REGISTERS 
XOR DX, DX ; RESULT REGISTER 
TEST = ALB 
Jz EXNBL1 
oR DH, OFCH 
EXNBLL: 
TEST ALG 
Jz EXNBL2 
oR DH, OFH 
EXNBL2: — 
TEST AL 2 
Jz EXNBLS 
OR DL, 
EXNBL3: belires 
TEST Aly 
J2 EXNBL4 
OR 
ea DL,OFH 
por = AX+DX + RESULT TO PARM REGISTER 
Ree 1 RECOVER REGIS TERS 


EX_NIBBLE ExpP 


3 ALL 


ee tt ee 
AR SOSSSAASAH SAAR® SAAR OD 
NN Ne Ree ee eee KH OOo C0O0SO 38o 
“VN OMMONF OST ON COUGW wry~r~y wo 


1624 


- 
o 
®" 
w 


1625 


al 


53 
$1 


8B 
F6 


8A 
80 


80 
73 
80 
73 
D1 


ol 
8 


O35C R 


Ds 
26 
3E 


&7 0 


se 
oB 


CO4A R 
OO69 R 
F 
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GRAPH_POSITION 


THIS ROUTINE TAKES THE CURSOR POSITION CONTAINED IN 
THE MEMORY LOCATION, AKD CONVERTS IT INTO AN OFFSET 
INTO THE REGEN BUFFER, ASSUMING ONE BYTE/CHAR. 

FOR MEDIUM RESOLUTION GRAPHICS, THE NUMBER MUST 
BE DOUBLED. 


INPUT HO REGISTERS, MEMORY LOCATION CURSOR_POSN IS USED 
OUTPUT AX CONTAINS OFFSET INTO REGEN BUFFER 


VOLATILE NONE 


we Se we we we we we we we we we we we we we 


GRAPH_POSITIOK PROC NEAR 
mov AX,CURSOR_POSN 3 GET CURRENT CURSOR 


GRAPH_POSH LABEL NEAR 
PUSH = BX 3 SAVE REGISTER 
PUSH = ¢X 3 SAVE CX 
MOV BX, AX 3 SAVE A COPY OF CURRENT CURSOR 
MOV AL, AH 3 GET ROWS TO AL 
MUL BYTE PTR CRT_COLS ; MULTIPLY BY BYTES/COLUMN 
MoV BH, CRT_MODE 3 GET CRT MODE 
AND BH, KJ_OFF + MASK VIDEO PROCESSOR HO. OFF 
cup CRT_MODE,KJGRAPH; KANJI GRAPHICS MODE ? 
JAE GRPOS2 3 YES 
j---_ANZANK GRAPHICS MODE 
cmp BH,9 3 MODE USING 32K REGEN? 
JHC GRPOS1 + YES, JUMP 
SHL AX, 1 3 MULTIPLY ™ 4 SINCE 4 ROWS/BYTE 
GRPOS1: 
SHL AX, 1 
JMP SHORT GRPOS4 
GRPOS2: s--- KANJI GRAPHICS MODE 
MOV CX, AX 3 SAVE AX VALUE FOR AFTER CALCULATION 
CMP 3BH,9 3 MODE USING 32K REGEN? 
INC GRPOSS + YES, JUMP 
SAL AX, 1 + MULTIPLY & 9 SINCE 1872=9 ROWS/BYTE 
SAL CX,2 ; 
GRPOSS: 
SAL AX, 2 3 
SAL AX, 1 3 MULTIPLY ™ 4.5 SINCE 1874=4.5 ROWS/BYTE 
SHR CX,1 3 
ADD AX, CX ; 
GRPOS4: 
SUB 8H, BH 3 ISOLATE COLUMN VALUE 
ADD AX, BX 3 DETERMINE OFFSET 
PoP cx 3 RESTORE CX 
POP BX 3 RECOVER POINTER 
RET 3 ALL DONE 


GRAPH_POSITION ENDP 
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GRAPHICS WRITE 


THIS ROUTINE WRITES THE ASCII CHARACTER TO THE CURRENT 
POSITION ON THE SCREEN. 


IMPUT AH = CURRENT CRT MODE (MASKED) 

CHARACTER TO WRITE 

COLOR ATTRIBUTE TO BE USED FOR FOREGROUND COLOR 

IF BIT 7 IS SET, THE CHAR IS XOR'D INTO THE REGEN BU 


(0 IS USED FOR THE BACKGROUND COLOR) 
NUMBER OF CHARS TO WRITE 

DS = DATA SEGMENT 

ES = REGEN SEGMENT 
OUTPUT NOTHING 


CALL 


wn 


AL 
BL 


ee 


cx 


FONT 
GRAPH_POSITION 
G_Wlt 


WORK CBP+WC_MODEJ= CURRENT CRT MODE (MASKED) 
CBP+WFORT - WFONT+7) = FONT PATTERN 


VOLATILE AX, BX, CX,DX,S1,DI,DS 
FOR BOTH ROUTINES, THE IMAGES USED TO FORM CHARS ARE CONTAINED IN 
ROM. 


wee ee we ee we we we we we we we we we we we we we we Oe we oe we 
1 
1 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
GRAPHICS_WRITE PROC NEAR 
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PUSH BP + SAVE CURRENT BP 
1625 55 SUB SP.GW_LOCAL 3 ALLOCATE LOCAL WORK AREA 
1626 e ee 12 MOV BP,SP_ 3 ASSIGN BP AS FRAME POINTER 
1629 8 
ese a 89 MOV [BP+WC_MODE],AH 3 SAVE CURRENT CRT MODE 
ES ts SAVE REGEN SEGMERT 
ME Se rush Ax 3 SAVE CODE POINT AND CRT MODE VALUE 
16 
PUSH = BX 3 SAVE COLOR ATTRIBUTE 
$33 33 PUSH = CX 3 SAVE NUMBER OF CHAR 
cian. Hd pusH $$ ; SET DESTINATION SEGMENT FOR FONT 
1633 07 ASSUME ES:STACK 
1634 ap SE 8A LEA BX,CBP+WFONT] 5 SET DESTINATION OFFSET FOR FONT TO BX 
£ XOR AH, AH 3 CLEAR FOR 1 BYTE CODE 
1839 FY cs : * MOV CX, AX 3 SET CHARACTER CODE TO Cx 
80 MOV AL, — 3 SET FUNCTION OF aia FONT WITH FULL BOX 
1638, Be oe MOV DH, 3 INDICATES ANK MODE 
MSP OES 1A63 R CALL FONT ; GET FONT PATTERN 
1642 8B FS MoV SI,BX + SET TOP ADDRESS OF FONT PATTERN 
aoe POP cx 3 RESTORE NUMBER OF CHAR 
oy etd POP BX + RESTORE COLOR ATTRIBUTE 
3~-DETERMINE POSITION IN REGEN BUFFER To PUT CODE POINTS 
1646 E8 1SES R CALL GRAPH_POSITION “FIND LOCATION IN REGEN BUFFER 
1649 8B FS MoV DI,AX~ 3 REGEN POINTER IN DI 
~~~ DETERMINE REGION TO GET CODE POINTS FROM 
1663 58 PoP Ax + RECOVER CODE POINT AND CRT MODE 
164C 06 PUSHES. 3 SET FONT PATTERN SEGMENT 
1660 1F POP DS 3 0D 
ASSUME DS:STACK 
164E 07 POP ES 3 RESTORE REGEN SEGMENT 
ASSUME ES:VIDEO_RAM 
64F 80 FC 04 cup AH.4 + 320X200 4 COLOR ? 
ese 98 58 JE GRURTS 3 YES 
1656 80 FC 05 cP AH,S 3 320X200 4 SHADE ? 
1657 74 56 JE GRWRT9 3 YES 
1659 80 FC OA CHP AH, OAH 3 640X200 4 COLOR ? 
165 74 42 JE GRWRT7 3 YES 
165E 80 FC 06 CMP AH. 6 3 640X200 2 SHADE ? 
1661 75 2B crurti: ONE GRWRT5 3 NO, MODE IS 8 OR 9 
1663 : 
1663 7 pusH DI 3 SAVE POINTERS 
3 
3--~ 640X200 2 SHADE 
1665 BG 04 senienis Oe DH.8/2 3 NUMBER OF TIMES THROUGH LOOP 
z 
1667 AC LODSB 3 GET WORD FROM CODE POINTS 
1668 F6 C3 80 TEST —- BL, XOR_BIT + SHOULD WE USE THE FUNCTION 
1668 75 06 JZ GRURTS 3 TO PUT CHAR IN 
166D AA STOSB STORE IN REGEN BUFFER 
166E Ac . LODSB GET NEXT ROW 
166F EB OA JMP SHORT GRWRTS 
1671 GRURTS: 
1671 26: 32 05 XOR AL. ES: (D1) 3 EXCLUSIVE OR WITH CURRENT DATA 
1676 AA STOSB 3 STORE THE CODE POINT 
1675 AC LODSB 3 _AGAIN FOR ODD FIELD 
1676 261 32 85 LFF niginns, AL, ES: (DI+#2000H-1) 
: 
167B 26: 88 85 FFF MoV ES:(DI+2000H-1),AL ; STORE IN SECOND HALF 
1680 83 C7 4F ADD D1,79 3 MOVE TO NEXT ROW IN REGEN 
1683 FE CE DEC DH + DONE WITH LOOP 2 
1685 75 £0 JNZ GRURT2 3 HO 
1687 SE 
nr 3e rg 
1689 47 
168A £2 D7 tOoP ORWRT ; 
168C EB 2E JMP SHORT GRWRT11 = 5--- END 
168E 
168E D1 E7 GRURTS: “ai — so~~ 1607320x200 16 COLOR 
690 DA E? , 
tues SAL DI,1 3} OFFSETN4 SINCE 4 BYTES/CHAR 
GRURT6: 
1692 56 PUSH st ‘ 
1693 36 06 
1695 E8 16F3 RK Mov DH.87(472) 3 SET LOOP COUNT ( 8 ROW 7 4 SCAN / 2 DEC.) 
CALL G_W 3 WRITE ONE CHAR 
1698 83 C7 046 - 
1693 SE ety 24 ; 
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169C E2 F4 Loop GRWRT6 3 


169E EB 1C JMP = SHORT GRWRT11.—3-== END 
A GRWRT?: $--~ 640X200 4 COLOR 
1éa0 Da E? SAL DI 3 OFFSETH2 SINCE 2 BYTES/CHAR 
1642 GRURTS: 
16A2 56 PUSH SI ; 
16A3 BG 06 MOV DH 87472) + SET LOOP COUNT ( 8 ROW / 4 SCAN 7 2 DEC.) 
1645 E8 1498 R CALL = G_W1 3 WRITE ONE CHAR 
AB 47 Incr ; 
1eay 9 INC ODE ; 
GAA pops SI ; 
igas eS FS LOOP = GRWRT8 ; 
16AD EB OD JMP = SHORT GRWRT11 = s--- END 
GRWRT9: s--- 320X200 4 COLOR/SHADE 
ISaF DL €7 SAL DE. } OFFSETH2 SINCE 2 BYTES/CHAR 
B1 GRWRT1O: 
igbl 56 PUSH SI ; 
1632 BG 06 MOV DH, 872 3 SET LOOP COUNT ( 8 ROW 7 2 SCAN ) 
16B6 E8 14¢8 R CALL GW 3 WRITE ONE CHAR 
67 INC DI ; 
ieps 49 INC DI ; 
5 Pops $i ; 
1gBA ES FS LOOP = GRWRT0 ; 
tae cena ae GH_LOCAL } DEALLOCATE LOCAL WORK 
BC 83 C4 12 ; ; 
lense 5D POP sa 3 RESTORE BP 
16c0 C3 RET 
16¢1 GRAPHICS_WRITE _ENDP 
; SET COLOR INT 10H, AH = 11 COBH) 
es 
; THIS ROUTINE WILL ESTABLISH THE BACKGROUND COLOR, THE 
; OVERSCAN COLOR, AND THE FOREGROUND COLOR SET FOR GRAPHICS 
3 
3 INPUT 
; = CURRENT CRT MODE (MASKED) 
; CHM Has coven 36 
; IF BH=0, THE BACKGROUND COLOR VALUE 18 SET 
; FROM THE LOW BITS OF BL (0-31) 
; IN GRAPHIC MODES, BOTH THE SACKGROUMD AND 
3 BORDER ARE SET. IN ALPHA MODES, ONLY THE 
3 BORDER IS SET. 
F IF BHE1, THE PALETTE SELECTION IS MADE 
3 BASED ON THE LOW BIT OF BL: 
3 2 COLOR MODE 
i es WRITE FOR COLOR 1 
i = BLACK FOR COLOR 1 
; 4 covor “MODES: 
; 0'= GREEN, RED, YELLOW FOR 
i COLORS 1.2.3 
i 1 = BLUE, CYAN, MAGENTA FoR 
3 COLORS 1,2.3 
; 16 COLOR MODES: 
; ALWAYS SETS UP PALETTE AS: 
; BLU FOR COLOR 1 
i GREEN FOR COLOR 2 
i CYAN FOR COLOR 3 
; RED FOR COLOR & 
; MAGENTA FOR COLOR $ 
: YELLOW FOR COLOR 6 
i LIGHT GRAY FOR COLOR 7 
; DARK GRAY FOR COLOR 8 
5 LIGHT BLUE FOR COLOR 9 
; LIGHT GREEN FOR COLOR 10 
3 LIGHT CYAN FOR COLOR 11 
; LIGHT RED FOR CoLoR 12 
3 LIGHT MAGENTA FOR COLOR 313 
i LIGHT YELLOW FOR COLOR 16 
; WHITE FOR COLOR 15 
: (BL) HAS THE COLOR VALUE To BE USED 
t 
; outeut 
; THE COLOR SELECTION I$ UPDATED 
3 
i CALL ENABLE_VG12 
‘ ENABLE_VG2 
i SUPREG 
3 
3 VOLATILE AX, BX, CX, DX 
; 
: ASSUME CS:CODE, DS:DATA 
é 16C1 SET_COLOR PROC NEAR 
16C1 E8 1DFC R CALL ENABLE_vG12 + ENABLE VIDEO GENERATER 1 AND 2 
16C6 BA O3DA MOV DX, VGA_CTL + 170 PORT FOR PALETTE 
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Ec 
as 
74 
BO 
(33 
32 
cE 


OA 
75 
80 
72 
BO 
80 
75 
34 
EE 
BA 
EE 
Bo 
(a3 
BA 
EE 
A2 


eB 


ae 
74 


80 
75 


BS 


oo 
73 


83 


8B 
43 


89 
BS 


8A 


cE 
2E: 
iz3 


ie 
Hy 
eB 
BA 
B4 
Bg 
8a 


FE 
E2 


BA 
& 


&8 
cs 


TC1: 
= AL. DX 3 SYNC UP VGA FOR REG ADDRESS 
TEST AL, VERTRET 3 IS VERTICAL RETRACE ON? 
08 3z SETCL 3 NO, WAIT UNTIL IT IS 
rs Mov AL, PCSUPER 5 
06 OUT DX, AL + CLEAR SUPERIMPOSE COTROL REGISTER 
XOR AL. AL ; FOR SET PALETTE 
co OUT DX. AL ; 
‘ OR BH. BH 3 IS THIS COLOR 0? 
Ha INZ SETCS 3 OUTPUT COLOR 1 
1 s--- HANDLE COLOR 0 BY SETTING THE 
; BACKGROUND COLOR AND BORDER COLOR 
6.aR , CMP AH, GRAPHICS 3 IN ALPHA MODE? 
cs Jc SETC2 3 YES, JUST SET BORDER REG 
54 mov AL, IXPALET + SET PALETTE REG 0 
FC 0B CMP AH, OBH 3 640 X 200 X 16 COLOR ? 
be JNE SETCI1 3 40 
an XOR AL, 10108 A 
SETCLI: 
out DX, AL + SELECT VGA REG 
3s MOV AL, BL 3 GET COLOR 
OUT DX, AL 3 SET IT 
SETC2: 
02 MOV AL, IXBORD + SET BORDER REG 
OUT DX.AL 3 SELECT VGA BORDER REG 
3 MOV AL, BL + GET COLOR 
OUT DX, AL 3 SET IT 
0066 8 MoV CRT_PALLETTE,AL ; SAVE THE COLOR VALUE 
+F JMP SHORT  SETC10 
SETCS: gene HANDLE COLOR 1 BY CHANGING PALETTE REGISTERS 
0281 ® MOV CX,OFFSET PL1C20; POINT TO 2 COLOR TABLE ENTRY 
FC 06 cmp AH, 6 3 2 COLOR MODE? 
12 JE SETCS > YES, JUMP 
FC 06 cup AH, 4 3 4 COLOR MODE? 
oA JE SETC4 > YES, JUMP 
FC 05 che AH, 5 3 4 COLOR MODE? 
JE SETCS 3 YES, JUMP 
FC OA cmp AH, OAH 3 4 COLOR MODE? 
20 weg: Oe SETC8 3 NO, GO TO 16 COLOR SET UP 
? 
o2B9 R sites MoV CX,OFFSET PLTC40; POINT TO 4 COLOR TABLE ENTRY 
cB "por BL. 3 SELECT ALTERNATE SET? 
03 JRC SETCE + NO, JUMP 
C1 04 ADD CX,PLTC2OL 3 POINT TO NEXT ENTRY 
SETC6: 
pe MoV BX, CX 3 TABLE ADDRESS IM BX 
INC BX 3 SKIP OVER BACKGROUND COLOR 
000s Mov CX.PLTC20L-1 = -SET NUMBER OF REGS TO FILL 
11 MOV AH, 11H 3 AH IS REGISTER COUNTER 
SETC?: 
c4 mov AL, AH + GET REG HUMBER 
OUT DX, AL 3 SELEC 
8a 07 MoV AL, CS: (BX) 3 GET DATA. 
OUT Dx, 3 SET IT 
4 INC AH 3 NEXT REG 
INC BX 3 NEXT TABLE VALUE 
FS LOOP = SETC7 
18 JMP SHORT SETC10 
SETC8: 
FC mov BH, AH ; SET MODE TO BH 
il MoV AH, 11H + AH IS REGISTER COUNTER 
000r MOV CX,15 3 NUMBER OF PALETTES 
SETC9: 
4 MOV ALLAH + GET REG HUMBER 
FF 08 CHP BH, OBH 3 640 X 200 X 16 COLOR ? 
oA xor At Sod _ = 
AL,1010B 
SETC9: : : 
ouT DX, AL > SELECT IT 
c4 MOV AL, AH + GET REG NUMBER 
OUT DX, AL + SET PALETTE VALUE 
c4 INC AH ; 
EF tocp Seay 3 NEXT REG 
SETC1e: 
fee R MOV AH, SUPIPCR 3 
CALL = SET_SUPREG s RESTORE SUPERIMPOSE CONTROL REGISTER 
1006 & 
CALL ENABLE_vG2 + ENABLE VIDEO GENERATER 2 
SET_COLOR ENDP 
; OR SOR O UNE M RRO OMe nm eseewecnase 
3 
: WRITE DOT INT 10H, AM = 12 (OCH) 
Hy 


THESE ROUTINES WILL WRITE THE DoT 


AT THE INDICATED LOCATION 
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>>r> OD 2S COLL SD CAO Oe OAMneOws wW 


— ee ee ee ee ee eee Oe Oe et 
> v~ 
> OFS NTN OF SFOFN CO OY YVuUKrTnNSO we ~ 


~ NNN NN ONS ONNS™ ONS NS OVS OSS OS OS 


- = 
_vo™~ 
> > 
non 


1782 
1734 


Hy 

; INPUT 
H 

3 

; 

5 

3 

; 

; ouTPUT 
; CALL 

3 

3 

; VOLATILE 
3 


AH = CURRENT CRT MODE (MASKED) 
DX = ROW (0-199) (THE ACTUAL VALUE DEPENDS ON THE MODE) 
CX = COLUMN (0-639) ( THE VALUES ARE NOT RANGE CHECKED ) 
AL = DOT VALUE TO WRITE (1,2 OR 4 BITS DEPENDING ON MODE, 
REQ’D FOR WRITE DOT ONLY, RIGHT JUSTIFIED) 
BIT 7 OF AL = 1 INDICATES XOR THE VALUE INTO THE LOCATION 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 
NONE 
DOT_POSITION 
GET_DIRSEG 
BX,CX,DX,SI 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 


REGISTER USAGE 


3 

3 

3 

3 

3 

3 

3 

5 

3 

3 

$ 

WRITE_DOT 
8B Ds mov 
80 FF OB CMP 
75 04 JNE 
DO E8 SHR 
DO E& SHR 

WDOT1: 
ES 17E7 R CALL 
BA F4 MOV 
Fe D4 NOT 
8A D4 mOV 
b2 E8 SHR 
22 co AND 
26: 8A 2C MOV 
Fé C3 80 TEST 
75 6A INZ 
22 EA AND 
Oa C5 OR 

WMDOT2: 
26: 88 64 MoV 
80 FF OA cmp 
72 5D J8 
8A CS MOV 
74 04 JE 
Do E8 SHR 
Do E8 SHR 

WDOT21: 
DO E8 SHR 
Do c8 ROR 
b2 €8 SHR 
22 Cé AN 
26: BA 6C OL nOV 
Fe CS 80 TEST 
75 49 JNZ 
22 EA AND 
oa cS OR 

WDOTS: 
26: 88 44 61 MOV 
60 FF OB cmp 
75 37 SNE 
Es 1095 R CALL 
8E CO MoV 
8A CS MOV 
bo C8 ROR 
D2 €8 SHR 
22 C6 AND 
26: 8A 2C MOV 
F6 C3 80 TEST 
75 28 JNZ 
22 €A AND 


Proc 

BX,AX 
BH. OBH 
wWoOoT1 


HEAR 


AlL,1 
AL,2 


DOT_POSITION 
OH, AH 

AH 

DL. AH 

ALCL 


ALDH 
CH, ES: (ST) 
BL,XOR_BIT 
WDOT? 
CH,DL 
AL.CH 
ES:(SIJ,AL 


BH,OAK 
WOOTS 


AL,BL 
wWDOT21 


AL.1 
AL,2 


Al, 

CH, es: (st1} 
BL.XOR_BIT 
WOOTS 


CH,DL 
AL.CH 
ES: (SI#aJ,at 


BH. OBH 
WOOT6 


GET_DIRSEG 
&S,AX 


AL.BL 
AL.. 
AL.CL 
AL.DH 
CHES: (SI) 


BL,XOR_BIT 
WDOT9 


CH, DL 
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AH 
AL 


BH 
BL 
CH 
cL 
DH 
OL 


ee er 


wees we 


we we we oe 


wee eee wee 


a ee eT 


ee 


~ 


DOT VALUE CTEMPORALY SAVED) 
ACCUMULATER 


CRT MODE 
DOT VALUE (NOT CHANGED) 


MOVED DATA FROM APA 
SHIFT COUNT 


MASK 
MASK( COMPLIMENT) 


SAVE CRT MODE AND DOT VALUE TO BX 
uae X 208 X 16 COLOR ? 


SHIFT PAL ADDR 2-3 TO LSB FOR WRITE IN V-RAMZ 


DETERMINE BYTE POSITION OF THE BIT 
SET MASK TO DH 

SET COMPLIMENT OF MASK TO DL 

SHIFT TO ADJUST IN THE DOT POSITION 


STRIP OFF THE OTHER BITS 
GET THE BYTE 


XOR THE DOT ? 
YES 

REMOVE THE INDICATED BITS 
MERGE NEW BIT TO APA 

SET IT TO APA 


64e x hi X 4716 COLOR 2 
WO, END 


GET THE DOT VALUE 
4 COLOR 


€ALL POINT ADDRESSABLE BUFFER) 


SHIFT PAL ADDR 2-3 TO LSB FOR WRITE IN V-RAM2 


SHIFT 1 BIT TO FIT IN ODD BYTE 
LEFT JUSTIFY THE VALUE 
SHIFT TO ADJUST IN THE DOT POSITION 


STRIP OFF THE OTHER BITS 
GET THE BYTE 


XOR THE DOT ? 

YES 

REMOVE THE INDICATED BITS 
MERGE NEW BITS TO APA 

SET IT TO APA 

640 X 200 X 16 COLOR ¢ 

NO 

GET gs ight wt V-RAM 1 
SET IT TOE 

GET DOT VALUE 

LEFT JUSTIFY THE VALUE 
SHIFT TO ADJUST IN THE DOT POSITION 


STRIP OFF THE OTHER BITS 
GET THE BYTE 


XOR THE DOT ? 
YES 


REMOVE OTHER BITS 
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oa CS 
26: 88 04 
aa cS 


cé 
32 aa 6c 02 
F6 C3 80 
7515 


22 EA 
oa C5 


26: 88 44 01 
cs 


32 ¢5 
EB 96 


32 CS 
EB B7 


32 C5 
EB DS 


32 C5 
EB EB 


53 
so 


Be 28 

80 E2 FE 
8A FC 
72:03 

80 E2 Fc 
Fe E2 

SA 
08 
65 2000 


80 FF 09 
72 08 


Fe C2 02 
76 63 
9S 4000 
88 Fo 


38 
8B DI 


3 MERGE NEW DOT TO APA 
SET IT TO APA 


~ 


~~ 


SHIFT NEXT BIT TO FIT IN ODD BYTE 
SHIFT TO SDJUST IN THE DOT POSITION 


MASK OTHER BITS OFF 
GET THE BYTE 


- 


wee 


— 


XOR THE DOT 2 
NO 


REMOVE THE OTHER BITS 
MERGE MEW BITS TO APA 


SET IT TO APA 


we ee 


~ 


E DETERMINES THE REGEN BYTE LOCATION OF THE 
ROW COLUMN VALUE IN GRAPHICS MODE. 


CURRENT ry MODE (MASKED) 


ROW VALUE (0-199) 
COLUMN VALUE (0-639) 


OFFSET INTO REGEN BUFFER FOR BYTE OF INTEREST 
MASK TO STRIP OFF THE BITS OF INTEREST 

DOT VALUE (LEFT JUSTIFYED) 

BITS TO SHIFT TO RIGHT JUSTIFY THE MASK IN AH 
@ BITS IN RESULT 


3 SAVE BX DURING OPERATION 
3 WILL SAVE AL DURING OPERATION 


ALUE 
s--"DETERMINE 1ST BYTE IN INDICATED ROW BY MULTIPLYING ROW V 


a ar 40( LOW BIT OF ROW DETERMINES EVEN/0DD, 80 BYTES/ROW 


SAVE ROW VALUE 
STRIP OFF ODD/EVEN BIT 


SAVE CRT MODE TO BH 

MODE USIHG 32K REGEN? 

HO, JUMP 

STRIP OFF LOW 2 BITS i 
RO! 

AX HAS ADDRESS OF 1ST BYTE OF INDICATED 

RECOVER IT 


TEST FOR EVEN/ODD 
JUMP IF EVEN ROW 


ee 


we eee 


Ev 


OFFSET TO LOCATION OF ODD ROWS 
EN_ROW 

MODE USING 32K REGEN? 

NO, JUMP 


wee eee eee 


TEST FOR ROW 2 OR ROW 3 
JUMP IF ROW 0 OR 1 


OFFSEY TO LOCATION OF ROW 2 OR 3 
MOVE POINTER To $1 


oR AL,CH 
4 
BROT ag ES:CSI),AL 
MOV AL, BL 
SHR AL,1 
ROR = ALA 
SHR AL,CL 
AND AL,DH 
MOV CH, ES: (S141) 
TEST BL, XOR_BIT 
Jez WDOTIO 
AND CH, DL 
OR ALSCH 
wDOTs: 
nov ES: (S142), AL 
NDOT: 
RET 
wDOT7: 
XOR AL, CH 
IMP SHORT wDOT2 
wooTs: 
XOR AL. cH 
JMP SHORT  WDOTS 
WDOTS: 
XOR AL, CH 
IMP SHORT WDOTS 
WoOT10: 
XOR AL. CH 
IMP SHORT  WDOTS 
WRITE_DOT ENDP 
pieoSeewese eens s tc. Boswect See es 
ry 
3 DOT_POSITION 
3 
; THIS SUBROUTIN 
; INDICATED 
3 
3 INPUT 
; AH = 
3 AL = DOT VALU 
3 DX = 
3 cx = 
3 ouTPUT 
3 $I = 
; AM = 
3 AL = 
3 cl = 
3 DH = 
3 CALL NONE 
H VOLATILE CH, DL 
3 
DOT_POSITION PROC NEAR 
PUSH BX 
PUSH AX 
Mov ; 
PUSH DX 
AND DL, OFEH 
nov BH, AH 
CHP AH,O9H 
Jc DPOS1 
AND 
Stine DL, OFCH 
mUL DL 
Pop DX 
TEST DL 
Jz DPOs2 
ADD 
—" AX, 2000H 
CMP 8H,09H 
Je DPOS3 
TEST OL,2 
J2 DPOSS 
Al 
oposs, 4% AX, 4000K 
MOV ST,AX 
POP AX 
Mov DX,cx 
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RECOVER AL VALUE AND CRT MODE 
COLUMN VALUE To Dx 


~ 


1858 
185B 


1850 
1860 


1862 
1865 


1867 
1869 
1668 


186D 
1870 


BB 02C0 
BY 0302 


80 FC 04 
80 FC 05 
16 
BB 04F0 
B9 0101 
80 FC OA 


80 FC 06 
06 


80 FC OA 


8B DS 
€8 17E7 R 
BA E9 
26: BA 04 
22 ¢c4 
O02 EO 
6A CE 
b2 co 


80 FF OA 
72 30 


ee GRAPHICS MODE edd anid an toner 
P THE REGISTERS ACCORDING T MODE 
VAASE FOR LOW OF COLUMH ADDRESS” C 7/3/1 FOR Er ta RES) 


cL ": @ OF ADDRESS BITS IN COLUMN VALUE ( 37271 FOR H/MY 
BL = MASK TO SELECT BITS FROM POINTED BYTE TeaHrcOH/FOn” tor H/PVL) 
s BH = NUMBER OF VALID BITS IN POINTED BYTE ¢ 17274 FOR H/PVL) 


mov BX,2COH 


MOV CX, 302H 3 SET PARMS FOR MED RES 
CHP AHA 
JE DPOSS ) HANDLE IF MED RES 
CHP AHS 
JE DPOSS s HANDLE IF MED RES 
mov BX, 4FOH 
MOV «CX, 101H sSET PARMS FOR LOW RES 
cup AH, OAH 
JAE DPOS4 ; HANDLE MODE A,B AS HIGH RES 
cup AH, 6 
JME ——sDPOSS s HANDLE IF LOW RES 
DPOS4: 
MoV BX, 180H 
mov CX, 703H SET PARMS FOR HIGH RES 
DPOSS: joo> DETERMINE BIT OFFSET IN BYTE FROM COLUMN MASK 
AND CH, DL ; ADDRESS OF PEL WITHIN BYTE T 
jo-~ DETERMINE BYTE OFFSET FOR THIS LOCATION IW COLURM 
SHR DX,CL 3 SHIFT BY CORRECT AMOUNT 
ADD —s ST, DX 3 INCREMENT THE POINTER 
CHP AH, OAH 5 640X200 4716 COLOR? 
JB DPOS6 3 NO, JUMP 
ADD ST, DX + INCREMENT THE POINTER 
DPOS6: 
MoV DH, BH 3 GET THE @ OF BITS IN RESULT TO DH 
g--= MULTIPLY BM CVALID BITS IN BYTE) BY CH (BIT OFFSET) 
ewes O08 cLck 3 ZERO INTO STORAGE LOCATION 
: 
ROR ALs1 3 LEFT JUSTIFY THE VALUE IN AL 
3 CFOR WRITE) 
ADD CL CH 3 ADD IN THE BIT OFFSET VALUE 
DEC 3 LOOP CONTROL 
JNZ ——-DPOS7 3 ON EXIT, CL HAS SHIFT COUNT TO RESTORE BITS 
mov AH, BL > GET MASK TO A 
SHR AH,CL ; MOVE THE MASK’ TO CORRECT LOCATION 
POP Bx 3 RECOVER REG 
RET 3 RETURN WITH EVERYTHING SET UP 
DOT_POSITION — EXDP 
joorocece 2ecee Pewee eee ee wee eee ees eeeecee== Sted 
3 
i READ DOT INT 20H, AH = 13 (ODHD 
i THESE ROUTINES WILL READ THE DOT AT THE INDICATED LOCATION 
3 INPUT 
; AH = CURRENT CRT MODE (MASKED) 
; DX = ROW (0-199) (THE ACTUAL VALUE DEPENDS ON THE MODE) 
3 CX = COLUMN (0-639) ( THE VALUES ARE NOT RANGE CHECKED ) 
3 DS = DATA SEGMENT 
1 ES = REGEN SEGMENT 
; ourPuT 
1 AL = DOT VALUE READ, RIGHT JUSTIFIED, READ ONLY 
’ CALL DOT_POSITION 
i GET_DIRSEG 
VOLATILE AH, BX, CX, DX, SI, ES 
[esteseseseseretedsctectess colscck ence} peenee 
ASSUME CS:CODE, DS: DATA, ES:VIDEO_RAM 
; 
; REGISTER USAGE An MASK 
: AL ACCUMULATER 
1 aH CRT MODE 
’ vt TEMPORARY SAVE DATA OF DOT VALUE 
) cH SHIFT COUNT (SAVED) 
3 ct SHIFT COUNT 
i 
; DH @ OF BITS IN ONE PIXEL 
READ_DOT PROC = NEAR 
MOV = «BX, AX 3 SAVE CRT MODE To 8H 
CALL DOT_POSITION =: DETERMINE BYTE POSITION OF THE SIT 
MOV CHL TL 3 SAVE SHIFY COUNT TO CH 
MOV AL, ES: (1) s GET THE BYTE 
AND AL, AH 3 STRIP THE OTHER BITS OFF 
SHL ALCL + SHIFT TO LEFT JUSTIFY 
MOV CL DH ; 
ROL ALCL 3 RIGHT JUSTIFY THE RESULT 
CHP BH, OAH 5 O40 X 200 X 4726 COLOR t 
JB RDOT! 3 XO, END 
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8A D8 
26: BA 44 OL 


FF OB 


1095 Rk 
co 


26: BA 04 
22 c4 


b2 
be 
OA 


Eo 
ce 
os 


26: BA 44 01 
22 C4 


3c 
75 


32 
e9 


SE 0062 2 
OF 


ES 
7 


97 O35C R 


OE o362 Rr 
06 6342 R C000 


68 
03 


19C2 R 
05 


D2 
19BE ® 


ROOT: 


READ_DOT 


MoV BL AL 3 SAVE EVEN VALUE TO BL 

mov AL,ES:(SI+2) 5: GET THE ODD BYTE 
AL, AK + STRIP THE OTHER BITS OFF 
nov clien s RESTORE SHIFT COUNT 
SHL AL, cL 3s LEFT JUSTIFY THE VALUE 
ROL ALL. 3 RIGHT JUSTIFY THE VALUE 
ROL AL. s MOVE TO PALETTE ADDRESS 1 POSITION 
OR AL, BL + COMBINE EVEN/ODD BIT 
CHP BH, OBH 3 640 X 200 X 16 COLOR ? 
JNE RDOT 3 NO, END 
SHL AL,2 3 SHIFT LOW 2 BIT TO PALETTE ADDR 2-3 POSITION 
SHL AL,1 3 
HOV BL, AL 3} SAVE EVEN VALUE To aL 
PUSH = AX 3} SAVE AX 
CALL —_—- GET_DIRSEG 3 GET DIRECT SEGMENT OF V-RAM 1 
MOV ES,AX 3 SEY IT TO ES 
POP AX 3 RESTORE AX 
MoV AL, ES: C81) 3 GET THE BYTE 
AND AL, AH 3 STRIP THE OTHER BITS OFF 
SHL AL, CL + LEFT JUSTIFY THE VALUE 
ROL AL, 2 b RIGHT JUSTIFY THE VALUE 
OR BL, AL + COMEBINE EVEN BIT OF V-RAM 3 TO PAL ADDR O 
Mov AL,ESt(SI¢1] 5 GET THE BYTE 
AND ALLAH 3 STRIP THE OTHER BITS OFF 
SHL AL, CL 3 LEFT JUSTIFY THE VALUE 
ROL Aust 3} RIGHT JUSTIFY THE VALUE 
ROL AL, 2 3 MOVE TO PALETTE ADDRESS 0 POSITION 
OR ALL BL 3 COMBINE ALL 4 BITS 
ag 
EDP 

Jere wesws ee Ses eSieseeek ann wwweceesseeecisechcuc 

WRITE_TTY 


on we wee Woe we we we we we we we Oe 2 we we we Be we we we we ee 
“=e we Be we 0s we © 


INT 10H, AH = 14 (OEH) 


THIS INTERFACE PROVIDES A TELETYPE LIKE INTERFACE TO THE 
VIDEO CARD. THE INPUT CHARACTER IS WRITTEN TO THE CURRENT 
CURSOR POSITION, AND THE CURSOR IS MOVED TO THE NEXT POSITION. 
IF THE CURSOR LEA 


VES THE LAST COLUMN OF THE FIELD, THE COLUMN 


IS SET TO ZERO, AND THE ROW VALUE IS INCREMENTED. IF THE ROW 


VALUE LEAVES THE FIELD, THE CURSOR 


ROW, 
LINE. 


IS PLACED ON THE LAST 


FIRST COLUMN, AND THE ENTIRE SCREEN IS SCROLLED UP ONE 
WHEN THE SCREEN IS SCROLLED U 


WLY BLANKED LINE IS READ FROM THE CURSOR POSITION ON THE 


P, THE ATTRIBUTE FOR FILLING 


PREVIOUS LINE BEFORE THE SCROLL, IN CHARACTER MODE. 
GRAPHICS MODE, THE 0 COLOR IS USED. 
INPUT 
AH = CURRENT CRT MODE (MASKED) 
AL = CHARACTER TO BE WRITTEN 
NOTE THAT BACK SPACE, CAR RET, BELL AND LINE FEED ARE 
HANDLED AS COMMANDS RATHER THAN AS DISPLAYABLE GRAPHICS 
BL = FOREGROUKD COLOR FOR CHAR WRITE IF CURRENTLY IN A 
GRAPHICS MODE 
OUTPUT NONE 
CALL BEEP 
VIDEO 
VOLATILE BH, CX, DX 
ASSUME CS:CODE, DS:DATA 
WRITE_TTY PROC = HEAR 
PUSH = AX § SAVE REGISTERS 
PUSH = AX ) SAVE CHAR TO WRITE 
Mov BH/ACTIVE_PAGE 3 GET CURRENT PAGE SETTING 
PUSH BX 3 SAVE IT 
MOV BL. BH + IW BL 
XOR BH, BH 
SAL 8X, 1 3 CONVERT TO WORD OFFSET 
MoV DX, CBX*OFFSET CURSOR POSH] ; GET CURSOR POSITION 
POP BX + RECOVER CURRENT PAGE 
POP ax + RECOVER CHAR 4 
‘ i~eo DX NOW HAS THE CURRENT CURSOR POSITIO 
mov SX\TTY AST CHAR 5 SAVE 1ST BYTE OF 2 BYTE CODE 
v TTY_UST_CHER,O 5 CLEAR IT FOR SPECTAY cope 
CHP AL. BS 
we aret , 1s IT A BACKSPACE? 
JMP WTY19 5 BACK_SPACE 
WTY1s 
CHP AL.CR 
aKE ans } is IT A CARRIAGE RETURN? 
XoR DL. s-=> CARRIAGE RETURN 
HP uTyes + MOVE TO FIRST COLUMN 


3 SET_CURSOR 
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3c 
75 


e9 


OA 
os 


1982 R 
07 
08 


02 
0000 E 
19BA R 


SE 0049 R 10 
7A 


OE 0342 R 


ce 
18 


06 0342 R 0008 
6 


OE OO4A R 


D1 
21 


36 0342 R 
C6 O342 R CbC8 


OE20 
10 


OF 
FF 


ES 
97 OSSC R 
06 0342 R 


0342 R 
pc 
OA 


0001 
10 


at O342 R C000 


02 
10 


OA 
0001 
10 


16 OO4A R 


36 0346 R 


WTY2: 


WTYS: 


WTY4: 


WTYS: 


WTY6: 


WTY7: 


WTY8: 


WTY9: 


WTY10: 


WTYiad: 


IP 
JNE 
JMP 

Pp 
JHE 


MoV 
CALL 
JMP 


AL,LF 
WTYS 


WTY11 


AL, BELL 
WTY¢ 


BL,2 
BEEP 
WTY16 


3 IS IT A LINE FEED 
3 WO 
3 LINE_FEED 


s IS IT A BELL 
3 NO 


BELL 
3 SET UP COUNT FOR BEEP 
3 SOUND THE POD BELL 
TTY_RETURN 


~ 


CRT_MODE,KJ_MODE; KANJI MODE ? 
WTY10 


TTY_IST_CHAR, CX 
CX,CX 
WTY6 


AL,O80H 


AH, BL 
TTY_1ST_CHAR, AX 
WTYi¢ 


AL,OSOH 
WTY7 
AL,OFCH 
WTY7 
AL,O7FH 
WTYs 


TTY_1ST_CHAR,0 
SHORT WTY10 
CX, CRT_COLS 

cx 


DL.CL 
WTY9 


ax 
3x 


TTY_1ST_CHAR 
TTY_IST_CHAR,@ 


AX,QEQOH + * ¢ 
VIDEO 





~ 


NO, SKIP 2 BYTE CODE HANDLING 


+ RESTORE 1ST BYTE OF 2 BYTE CODE 
; Aer BYTE OF 2 BYTE CODE HAS BEEN SET ft 
3 YES 


1ST BYTE OF 2 BYTE CODE ? 
NC, GO TO WRITE ONE CHARACTER 


NO, GO TO WRITE ONE CHARACTER 
YES 


ee we oe we ee we Oe we 


NO, GO TO WRITE ONE CHARACTER 


b-~~ CHARACTER IS 1ST BYTE OF 2 BYTE CODE 
+ SET COLOR 

3 SAVE 1ST BYTE OF 2 BYTE CODE AND SET FLAG 
+ RETURN; WRITE PROCESS IS PENDING 


bw>~ CHARACTER MUST BE 2ND BYTE OF 2 BYTE CODE 
+ 2ND BYTE OF 2 BYTE CODE ? 

3 NO 

Oo 

YES 

j-~~ IGNORE 1ST BYTE 


+ RESET FLAG OF 1ST BYTE 
3 GO TO WRITE ONE BYTE 


we ee ee we 


s--- WRITE 2 BYTE CODE 

3 CHECK COLUMN BOUNDARY 

+ ADJUST FOR COMPARE 

; re COLUMN AT END OF LINE ? 
3 


SAVE 2ND BYTE OF 2 BYTE CODE 
SAVE FOREGROUND COLOR 


SAVE 1ST BYTE OF 2 BYTE CODE 
CLEAR FOR RECURSIVE CALL 


CAH)=OEH: WRITE SPACE 
VIDEO 170 


PAGE NUMBER 
3 CONVERT TO WORD OFFSET 


~ 


wee 


a 


a 


ox. taxeorrser CURSOR ~POSN) + GET CURSOR POSITION 


TTY_1ST_CHAR 


Bx 
AX 


AX 
BX 


AX, TTY_IST_CHAR 
BLAH 


TTY_IST_CHAR,0 
OL 


s RESTORE 2ND BYTE OF 2 BYTE CODE 


RESTORE Sic ila COLOR 
RESTORE 2HD 8 

w7~ WRITE 1ST MTe OF 2 gis ‘CODE 
SAVE 2ND BYTE OF 2 BYTE CO 

SAVE COLOR 

GET 1ST BYTE OF 2 BYTE CODE 

SET COLOR OF 1ST BYT 

CAH)=OANt WRITE CHARACTER AT CURRENT CURSOR 
WRITE ONE CHARACTER 

VIDEO Iv0 

RESTORE COLOR OF 2ND BYTE 


+ RESET FLAG OF 1ST BYTE 
+ INCREMENT ROW 


ee ee we we we we we we we we Oe 


AH,2 + FUNCTION OF SET CURSOR POSITION 
VIDEO 3 00 IT 
ax + RESTORE 2XD BYTE 
t--~ WRITE THE eae TO THE SCREEN 
AH,10 3 WRITE CHAR ONLY 
Cx.) 3 ONLY ONE on 
VIDEO 3 WRITE THE CHA 
ger POSITION THE CURSOR FOR NEXT CHAR 
DL 
evi PTR CRT_ er arile FOR COLUMN OVERFLOW 
3 CUR 
DL, DL s COLUMN FOR CURSOR 
b-~~ LINE FEED 
DH, CRT_ROWS 3 BOTTOM OF SCREEN ¥ 
WIY.7 s NO, SET _CURSOR_INC 
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55 
BA 
8A 


e2 
10 


0049 R 
oF 
04 
04 
FF 
10 
os 
10 


SE 0049 R 10 
os 


E477 
Fc 
0601 
c 

36 8346 8 
16 GO4A R® 
CA 


16 


26 CO4A R 
0049 R 
SE 0062 R 


83 EC 


89 


5D 
c3 


SE 08 


mov AH,2 


SET THE CURSOR 
or ~ qeeeee i DETERMINE VALUE TO FILL WITH DURING SCROLL 
AL. CRT_MODE GET THE CURRENT M 
AND AL, KJ_OFF } MASK KJ BIT OFF 
_ AL, GRAPHICS 3 IN ALPHA MODE ? 
i. wTvi2 + YES, READ ATTRIBUTE 
XOR BH BH 3 FILL WITH BACKGROUND 
JMP = SHORT WTY146 + SCROLL-UP 
wrvi2: seo READ ATTRIBUTE 
mov AKL. 
INT ——- VIDEO 5 READ CHARZATTR AT CURRENT CURSOR 
CHP = CRT_MODE,KJ_MODE; KJ MODE ? 
3B WTYTS 3 HO 
AND AH, HAN_MASK 3 MASK KUBIT OFF 
wTYL3: 
mov BH, AH s STORE IN. BH 
WTY24: 
Mov AX, 601H 3 SCROLL ONE LINE 
SUB cx, cx + UBPER LEFT CORNER 
MOV DH. CRT_ROWS LOWER RIGHT ROW 
mov DL/BYTE PTR CRY SOLS 5 LOWER RECHT COLUNH 
wryi5: 
INT VIDEO $s SCROLL UP THE SCREEN 
WTY16: 
pop ax + RESTORE THE CHARACTER 
RET 5 RETURN TO CALLER 
Joceeeee--- waeneee---------- a SET NEW CORSOR POSITION 
wTYa7: 
INC DH + NEXT ROW 
wTvis: 
MoV AH,2 
IMP WTYI5 + ESTABLISH THE NEW CURSOR 
wrernne-=--+- 2-8 ~------ BACK SPACE 
WYY19: 
oR DL. DL 3 ALREADY AT END OF LINE 
JE WTyi8 3 SET_CURSOR 
DEC DL } NO =~ JUST MOVE IT BACK 
JMP swig 3 SET_CURS 
WRITE_TTY EHDP 
: 
3 VIDEO STATE INT 10H, CAH) = 15 COFH) 
| Mee eeOLSIATE 
; RETURNS THE CURRENT VIDEO STATE IN AX 
t 
3 INPUT NONE 
} OUTPUT 
5 AH = HUMBER OF COLUMNS -ON THE SCREEN 
3 AL = CURREHT VIDEO MODE 
; BH = CURRENT ACTIVE DISPLAY PAGE 
5 
3 CALL HONE 
i. VOLATILE HOKE 
3 
ae 


ASSUME CS:CODE, DS:DATA 
VIDEO_STATE PROC NEAR 
PUSH BP 


+ SAVE BP 
Mov AH. BYTE PTR CRT_COLS ; GET oo OF COLUMNS 
MoV AL,CRT_MODE $ CURRENT MODE 
NOV BHLACTIVE Pace ; GET CURRENT ACTIVE PAGE 
MoV P.SP 3 SET FRAME POINTER 
mov tos F_Bx3, 8x 3 SET RETURN BX 
POP oP + RESTORE BP 
RET 5 RETURN TO CALLER 
ae STATE ENDP 


SET_PALLETTE IMT 10H, AH = 16 (10H) 
THIS ROUTINE WRITES THE PALETTE REGISTERS 
INPUT 4 5 CRT MODE (MASKED) 


0 SET PALETTE REGISTERS 
(BH) = VALUE 10 SET 


(BL) = PALETTE REGISTER ,"° SET (OOH-OFH) 
AL = 10 SET BORDER COLOR REGISTE 
CB TO SET 


a H) = VALUE 
AL= 2 SET ALL PALETTE REGS AND BORDER REG 
EStDX POINTS TO A 17 BYTE LIST 
BYTE 0 = 15 ARE VALUES FOR PALETTE 6 
BYTE 16 IS THE VALUE FOR THE BORDER RE 


wee We we Be Be Be we Be we we we we we we we we we Oe 
~ 

‘ 

~ 


OUTPUT MONE 
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50 

E& 1DFC R 
8B FS 

36: SE 44 10 
8B F2 

ES 1AS4 R 
BO 06 

EE 

32 CO 

EE 

58 

OA CO 

74 OA 

3c 02 

74 :1¢ 

77: «3¢ 


BO 02 
€B oD 


8A C3 
24 OF 
oc 10 


80 FC OB 
75 02 


34 OA 

EE 

BA C7 

ce 

32 60 

ee 

EB 22 

87 10 

8a Cc? 

80 FC OB 
75 02 

34 0A 

cE 

261 BA 04 
La 3 

4 

FE C7? 

80 FF 20 
72: EA 


BO 02 
EE 


26: BA 04 
ee 
A2 0066 R 


8A 26 O347 RK 
€8 0929 R 


ES 1DD6 R 
C3 


wee we we we we we we we 


pece--- 


CALL ENABLE_VG12 
EWABLE_VG2 
WAIT_VERTRET 
SET_SUPREG 


VOLATILE AX. BX,DX,SI,ES 
NOTE: PALETTE REGISTERS ARE WRITE ONLY. 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 


SET_PALLETTE PROC NEAR 


SPLI: 


SPL2: 


SPL3: 
SPL4: 


SPL41: 


SPLS. 


PUSH = AX + SAVE AX 
CALL ——- ENABLE_VG12 3 ENABLE BOTH VG1 AND VG2 
mov $1,SP 
Mov ES,SS:(SI¢F_ES) 3 GET SEG FROM STACK 
ASSUME ES: INDETERMINATE 

mov $1,DX 3 OFFSET IN SI 
CALL WAIT_VERTRET = 5 WAIT UNTIL VERICAL RETRACE 
Mov AL, PCSUPER ; 
OUT DX, AL 3 CLEAR SUPERIMPOSE CONTROL REGISTER 
XOR ALL AL 3 FOR SET PALETTE 
ouT DX, AL 3 
PoP ax 3 RESTORE AX 
oR AL, AL 3; SET PALETTE REG? 
Jz SPLL ; YES, GO DO IT 
cMP AL,2 + SET ALL REGS? 
JE SPLS 3 YES, GO DO IT 

3 SET BORDER COLOR REG? 
JA SPLS 3 NO, DON'T DO ANYTHING 

3---_ SET BORDER COLOR REGISTER 
Mov AL, IXBORD + SET BORDER COLOR REG HUMBER 
JMP SHORT SPL2 

soo-_SET PALETTE REGISTER 
mov AL, BL 3 GET DESIRED REG NUMBER IN AL 
AND AL,OFH 3 STRIP UNUSED BITS 
OR AL, IXPALET + MAKE INTO REAL REG NUMBER 
CMP AH, OBH 3 640 X 200 X 16 COLOR ? 
INE SPL2 + NO 
XOR AL, 10108 3 MAP TO REAL REG NUMBER 
out DX, AL 3 SELECT REG 
MoV AL.BH 3 GET DATA IW AL 
ouT DX, AL 3 SET NEW DATA 
XOR AL, AL 3 SET REG @ SO DISPLAY WORKS AGAIN 
our DX, AL 
une SHORT SPLS 

inas SET ALL PALETTE REGS AND BORDER REG 
MoV BH, IXPALET ; BM IS REG COUNTE 
Mov AL. BH + REG ADDRESS IN AL 
CMP AH, OBH 3 640 X 200 X 16 COLOR 
JNE SPL41 3 KO 
XOR AL, 10208 + MAP TO REAL REG NUMBER 
our DX, AL + SELECT IT 
Mov AL-BYTE PTR Esi(s1) 3GET DATA 
OUT DX, AL PUT IN VGA REG 
Inc $I 3 NEXT DATA BYTE 
INC BH 3 NEXT REG 
CMP BH,20n 3 LAST PALETTE REG? 
JB SPL4 3 NO, DO NEXT ONE 
MOV AL, IXBORD SET BORDER REG 
OUT DX, AL s SELECT IT 
Mov AL-BYTE PIR ESiCST) 3 GET DATA 
OUT DX. AL 3 PUT IN VGA REG 
MoV CRT_PALLETTE,AL ; SAVE TN RAM 
MoV AH, SUPIPCR + RESTORE SUPERIMPOSE CONTROL REOISTER 
CALL —- SET_SUPREG ; 
CALL ENABLE_VG2 3 ENABLE VIDEO GENARATER 2 
RET + ALL DONE 


SET_PALLETTE ENDP 


1 
3 
’ 
3 
i 


WATT_VERTRET WAIT VERTICAL RETRACE 
THIS ROUTINE WAITS UNTIL A VERTICAL RETRACE BEGIN 
INPUT NONE 
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1AS2 
1Aa5S2 
153 


1A53 
1A53 


1A5¢ 
1AS6 


1059 


1as¢ 
1ASE 


1A61 
162 


1A63 


BA SDA 


€c 
24 08 
75 FB 


Ec 
24 08 
74 FB 


cs 


cs 


ss 
8B EC 
SE 46 10 


EB 1B65 & 


Be 10 
EB LAGS R 


5D 
C3 


OUTPUT 
VOLATILE 


WAIT_VERTRET PR 


oc NEAR 


MOV DX, VGA_CTL 3 SET VGA CONTROL PORT 
vi 
MAE . IN AL, DX 3 GET VGA STATUS 
AND AL, VERTRET s IN VERTICAL RETRACE? 
JNZ WAITVL s YES, WAIT FOR IT TO GO AWAY 
WAITV2: 
In AL,DX 3 GET VGA STATUS 
AND AL, VERTRET 3 IN VERITCAL RETRACE? 
JZ WAITV2 3 





ASSUME CS 
NO_OPERATION Proc NEAR 
RET 
NO_OPERATION ENDP 


NO, WAIT FOR IT 


CODE, DS:DA 





FONT PATTERN IRT 10H, AK = 19 
THIS ROUTINE ACCEPTS OR RETURNS FONT PATTERN FROM/IN USER AREA 


=0 REQUEST BASE-FONT 
=80H REQUEST BASE-FONT WITH FULL CHARACTER BOX 
=40H WRITE FONT PATTERN FROM USER AREA TO GAIJI RAM 


= INTERNAL CODE FOR REQUESTED FONT 
FOR HANKAKU-FONT (CH) =0 


= OFFSET OF DATA AREA FOR FONT 
NORMAL-BOX FULL-BOX 

“16X16 5; 32 BYTE 36 BYTE 
“16X8 =; 16 BYTE 18 BYTE 


= DATA SEGMENT 
FONT PATTERN 
CHECK_ROSS_CHAR 
FONT 


AX,CX,SI,DI,ES 


—— — 
3 

; 

3 Re ewewcewenesces 
3 

3 

3 INPUT 

3 AL 
3 AL 
5 AL 
3 

s cx 
> 

3 BX 
3 

3 

3 DS 
3 

3 OUTPUT 

, 

3 CALL 

; 

; 

H VOLATILE 

3 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
FONT_PATTERN PROC NEAR 


PUSK BP 


3 SAVE BP 
MoV BP,SP + SET SP TO BP 
Mov ES, (BP+F_ES) 3 GET SEGMENT VALUE FROM STACK 
ASSUME ES: INDETERMINATE 
CALL CHECK_ROSS_CHAR + CHECK AND CONVERT ROSSIAN CHARACTER 
MOV DH, KJ_MODE 3 INDICATES KJ MODE 
CALL FONT 3 PERFORM FONT FUNCTION 
PoP BP 
RET 5 RESTORE BP 


3 RETURH TO CALLER 


FONT_PATTERK — ENDP 


FONT 


INPUT 
AL 
AL 
AL 


cx 


DH 
ES: 


we Wo 0s we 0s we we Oe Oe Be Be Oe we WF Be Or Oe OH Oe Be 


DS 


THIS ROUTINE ACCEPTS OR RETURNS FONT PATTERN FROM/IN USER AREA 


70 REQUEST BASE-FONT 
=80K REQUEST BASE-FONT WITH FULL CHARACTER BOX 
“40H WRITE FONT PATTERN FROM USER AREA TO APA 


= INTERNAL CODE FOR REQUESTED FONT 
FOR HANKAKU- is 
: CRT Mobe KU-FONT (CH)=0 
BX = DATA AREA FOR FONT 
HORMAL-BOX FULL-BOX 
“16X16 5 32 BYTE 36 BYTE 
“16X83 16 BYTE 18 BYTE 


DATA SEGMENT 
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B9 
AD 
E2 
58 
74 


33 
AB 


OUTPUT 





(ES:BX) = FONT PATTERN 


5 
3 
; CALL ENABLE_VG1 
; EHABLE_VG2 
3 ENABLE_KJROM 
3 ENABLE_VRAM 
; CVTCR 
; VOLATILE AX, CX, SI,DI,ES 
3 
t Deheheteteteeteteteetettetetet ad 
ASSUME CS:CODE ,DS:DATA 
FOHT PROC —NEAR 
PUSH x 3 SAVE CURREKT DX 
PUSH DS 3 SAVE CURRENT DS 
PUSH aX 3 SAVE REGISTERS 
1DB0 R CALL ENABLE_vG1 3 ENABLE VIDEO GENERATER 1 
PUSH DX + SAVE DX 
O3DA coxrn: 2" DX. VGA_CTL 3 GET GATE ARRAY ADDRESS 
ONT1: 
In AL,DX 3 SEE STATUS REGISTER 
08 AND AL, VERTRET 3 IN VERTICAL RETRACE ? 
FB Jz FONTL 3 NO. WAIT UNTIL IT COMES 
POP DX 3 RESTORE Dx 
1DD6 R CALL —_- ENABLE_VG2 + ENABLE VIDEO GENERATER 2 
PoP AX ; 
1388 R CALL - ENABLE_LKJROM =: ENABLE KJ-ROM 
Ee Mov AH,AL $ SAVE FUNCTION TO AH 
7F AND AL, 7FH 3 MASK FULL BOX FLAG OFF 
FC 48 cup AH, 40H 3 WRITE FONT PATTERN ? 
50 JE FONTS 3 YES 
jooeee----=- REQUEST FONT PATTERN 
00 cup AL. 3 REQUEST FONT ? 
4 JME FONTLL 
PUSH aX 3 SAVE REQUESTED FUNCTION 
PUSH CX 3 SAVE INTERRAL CODE 
1 nov AX, x ; 
1B01 R CALL CVTCR 3 GET KJ ROM SEGMENT ADDRESS 
ASSUME DS: INDETERMINATE 
D8 mov DS, AX 3 SET CHARACTER PATTERN ADDRESS TO DS 
Fé XOR $1.SI 3 CLEAR FOR ROW 0 
FB mov DI, BX 3 SET PATTERN RETURN ADDRESS 
PoP cx } RESTORE INTERNAL CODE 
ED oR CH,CH 3} 2 BYTE CODE ? 
12 JNZ FONTS 3 YES 
FE 10 chp DH, KJ_MODE 3 KJ GRAPHICS MODE ? 
23 JAE FONTS 3 YES 
0008 HOV CX.8 3 REPEAT COUNT FOR ANK 
0001 MoV SI.) 3 OFFSET FOR ANK 
PoP ax ; 
E4 7F AND AN, 7FH 3 MASK FULL BOX FLAG OFF 
PUSH AX 3 
19 JMP SHORT FONT? 3 CONTINUE 
FONTS: s~-> GET LEFT PART FONT OF 2 BYTE CODE 
ene race me CX, 16 3 SET ROW NUMBER OF CHARACTER BOX 
t 
Lopsw 3 GET ONE ROW 
7F AND AL KJMASKL 3 MASK OFF CONTROL BIT 
STOSB 3 PUT LEFT PART OF ONE ROW 
FA OOP se Fon 3 REPEAT UNTIL EXHAUST LEFT PART 
por ax 3 RESTORE FUNCTION 
PUSH aX + SAVE IT 
c4 80 TEST AH, 80H 3 FULL CHARACTER BOX ? 
03 Jz FONTS + MO 
co XOR AX, AX ; 
STOSW 3 SET @ FOR FULL BOX 
FONTS: 
oon Nov $1.1 3 SET OFFSET FOR RIGHT PART 
FONT6: b-o- GET FONT OF 1 BYTE CODE OR RIGHT PART 
0010 cowry, "OY CX, 16 3 SET ROW NUMBER OF CHARACTER BOX 
ONT?: 
LoDsW + GET ONE ROW 
STOSB $ PUT RIGHT PART OF ONE ROW 
FC LOOP = FONT? 3 REPEAT UNTIL EXHAUST LEFT PART 
PoP ax RESTORE FUNCTION 
c4 Be TEST AH,80H 3 FULL CHARACTER BOX ? 
03 Jz FONTS 3 NO 
co XOR AX, AX ; 
STOSW : + SET 0 FOR FULL BOX 
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1aDi «EB 28 


1AD3 81 F9 FOSO 


2 
1aD9 81 FY FO7E 
1aDD 77 :1¢ 


1ADF D1 EL 


AEL 81 El OSFE 
1AES 81 C9 8800 


1AEB 8B OFS 
1AED 8€ C1 
(AEF 33 FF 
JAF1 Bd 0010 


ac 
1AFS 8A 64 OF 


AB 
1AF9 E2 FY 
1AFB ES 1BB4 R 
WAFE 1F 


(AFF OSA 
1800 CS 


1301 0A E4 
1B0S «75 07 


bi €0 
1307 OD 8000 
1BGA EB 35 


1BOC «3D 8100 


1B2A 3D FO4e 
1B2D 72 OF 
\B2F 3D FO7E 

77 0A 
1B34 D) £0 
1B36 25 OSFE 
1839 0D 3aco 
1BSC EB 03 
LB3E B8 BOER 
1BS1 C3 


FONTS: 
SHORT FONT11 3 END 
----------- WRITE FONT PATTERN 
ASSUME DS:DATA 
FONTS: 
CMP cx, EXT _CHAR_L 3: IN EXTERNAL CHARACTER RANGE 
JB FONT11— 3 NO 
CMP Saat —CHAR_H 3 
JA FO 3 NO 
SAL cx,1 3 ADJUST FOR CHARACTER PATTERN ADDRESS 
AND CX, OSFEH ; 
OR CX,8800H 3 FORCE "10001" To MSB 
PUSH es 3 SET SOURCE SEGMENT 
PoP oS 3 
ASSUME DS: INDETERMINATE 
MOV ST,BX 3 SET SOURCE OFFSET 
mov Es,cx 3 SET DESTINATION SEGMENT 
ASSUME eg ag a rt 
XOR DI,.DI SET DESTINATION OFFSET 
MoV 6X16 3 SET HUMBER OF ROW 
FONT10: 
LODSB 3 GET LEFT PART OF ONE ROW 
MOV AH,DS:(S1415) 3 GET RIGHT PART OF ONE ROW 
STOSW 3 STORE ONE ROW 
L FONT10 3 REPEAT ALL ROW 
FONTLA: 
ENABLE_VRAM s ENABLE VIDEO RAM 
ASSUME DS:DATA 
POP DS + RESTORE DS 
POP DX 3 RESTORE DX 
RET 
FONT ENDP 
pitoon ecedteacceccastsccucoma! mesucoscatss 
5 
; CVTCR 
7 Hwee 
3 THIS ROUTINE CONVERT CODE TO KJ-ROM ADDRESS 
3 
$ INPUT AX = INTERNAL CODE FOR REQUESTED FONT 
3 
3 OUTPUT AX = SEGMENT ADDRESS OF KJ-ROM 
; CALL NONE 
; VOLATILE NONE 
3 
, ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
CVTCR PROC NEAR 
OR AH, AH + 2 BYTE CODE ? 
JHZ CVTCRI 3 YES 
poo 1 BYTE CODE 
SAL AX,1 } ADJUST FOR CHARACTER PATTERH ADDRESS 
OR AX, 8000H + FORCE 1000000" TO MSB 
JMP SHORT CVTCRS 5. END 
cvTcri: s--- 2 BYTE C 
cue AXeRR sRROSS L_toW ; I REGEN cope RANGE OF ROSSIAN CHARACTER ? 
Hy 
cup AX, RROSS__ L_HIGH 3 
JBE CVTCR2 3 YES 
cMP AX, JISI_L 5 IH JIS 1 RANGE ? 
JB CVTCRS + NO 
ce AX, S181 H ; 
CR 
cvTcRa: ‘ sibs 
SAL AX, 1 5 ADJUST FOR CHARACTER PATTERN ADDRESS 
AND AX, SEFEH 3 
»8000H 3 FORCE °10° TO MSB 
JMP SHORT CVTCRS = 3-_: END 
CVTCRS: “~~ EXTERNAL CHARACTER 
’ 
o AX, EXT_CHAR_L 3 IM EXTERNAL CHARACTER RANGE 
+ NO 
CMP AX,EXT_CHARLH 5 
JA CVTCR4 + NO 
SAL AX,1 A TERN ADDRESS 
AND AX. O3FEH DJUST FOR CHARACTER PAT 
»8800K 3 FOR ' ' 
IMP SHORT cvrers FORCE 10001" TO MSB 
CVTCRG: 
MOV 
cvters, AX, OFFSET WHITE_BOX 3s SET WHITE BOX 
RET 
CVICR = ENDp 
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1888 
1B88 
1889 
1B8A 
1888 


188C¢ 


1BSF 


1B92 


F9 8100 
F9 8120 


Ci 0340 


81 F9 8200 


81 F9 8221 


81 C1 0270 


FO 8440 
F9 8460 
Ed 0340 


81 F9 8476 
81 F9 8491 


81 E9 0270 


ES 1BE4 ® 


BA O1FF 


3 
; CHECK_ROSS_CODE 

; THIS ROUTINE TRANSLATE REGEN CODE TO ROSSIAN CHARACTER CODE 

; INPUT CX = 2 BYTE REGEN CHARACTER CODE 

; OUTPUT CX = 2 BYTE CHARACTER CODE 

; CALL NONE 

3 VOLATILE NONE 

i 

CHECK_ROSS_CODE PROC  —-NEAR 

cmp CX-RROSS_L_LOW 1 CHECK LOWER CASE OF ROSSIAN CHARACTER 


JB 
CMP tx. RROSS_L_HIGH 
JA RCODE1 + NO 
ADD CX,ROSS_L_LOW - RROSS_L_LOW + TRANSLATE 
JMP SHORT RCODE2 
RCODE1: 3 CHECK UPPER CASE OF ROSSIAN CHARACTER 
CMP CX,RROSS_U_LOW 
JB RCODE2 3 
CMP CX, RROSS_U_HIGH 
JA RCODE2 ; 
ADD CX,ROSS_U_LOW - RROSS_U_LOW $ TRANSLATE 
RCODE2: ee 


CHECK_ROSS_CODE ENDP 


Jr err re ewe mn ween www w ewww www www wwe 2 n eee eee 


CHECK_ROSS_CHAR 
THIS ROUTINE TRANSLATE ROSSIAN CHARACTER CODE TO REGEN CODE 


INPUT CX = 2 BYTE CHARACTER CODE 
OUTPUT CX = 2 BYTE REGEN CHARACTER CODE 
CALL MONE 

VOLATILE NONE 


we we ws we we we we we we we we we we 


CHECK_ROSS_CHAR PROC NEAR 


CMP CX.ROSS_L_LOW 5 CHECK LOWER CASE OF ROSSIAN CHARACTER 
JB RCHAR2 0 
CMP CX. ROSS_t_HIGH 
JA HARL 5 
sus xs ROSS_L_LOW - RROSS_L_LOW 5 TRANSLATE 
Jmp SHORT RTHAR2 
RCHARL: 3 CHECK UPPER CASE OF ROSSIAN CHARACTER 
cup CX.ROSS_ U_LOW 
CMP cx wos _U_HIGH 
Ja 3 NO 
suB CX,ROSS_U_LOW - RROSS_U_LOW 3 TRANSLATE 
RCHAR2: 
RET 


CHECK_ROSS_CHAR ENDP 


Jerr rere we ee wow ne wn wwe wenn nen ene we eee 


3 

F ENABLE_KJROM 

3 

F THIS ROUTINE ENABLES KJ-RON 
3 

F INPUT NONE 

‘ OUTPUT NONE 

; CALL DDS 

5 DISABLE_INT 
5 ENABLE_INT 
; VOLATILE NONE 

5 

| Detehaheehetetetetetetet tte tt ee ee ed 


ENABLE_KJRON PROC NEAR 
PUSH ax 


4 
PUSH BX 3 SAVE REGISRES 
PUSH Dx 5 
PUSH oS 3 
CALL bos + POINT DATA AREA 

ASSUME DS:DATA 

CALL OISABLE_INT + DISABLE ALL INTERRUPT 

+ DURING VRAM AND KJ-ROM SNITHING 
MoV DX, SXOBBASE 3 ADDRESS OF ADDRESS CONTROLLER 
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1395 
1398 


1598 
1B9E 


1BAl 
1BAS 


1BA7 
Bac 
IBAF 
1BBO 
18Bi 
1882 
1BBS 


1BB4 


1BBE 
180) 
1Bcs 
1bc7 


1BCA 
1BCF 


18D1 
1304 
1807 
1bDe 
1BDF 
18E0 
1BEL 
1BE2 


1BES 
1BE4 


1BES 
1BE4 
IBES 
1BE6 
1BE8 


1BEA 
1BEB 


1BEC 


BB 0937 
€8 1€22 ® 


BB OAS? 
fe 1€22 & 


BB 0780 
€8 1€22 ® 


Ce 06 0353 R FF 
€8 1BEC R 


Es 0000 E 
Es 1BE4 R 


BA OFF 
BB 0730 
E38 1E22 R 
BB 0987 


80 SE O34C R O8 
oS 


BD OAR? 

ES 1E22 & 

C6 06 0353 R 08 
£8 1BEC R 


30 


FA 
BO 10 
E6 AO 


38 
C3 


nov BX, S8VRAMIM1OOH * VRAMI_OFF 

CALL OUT_GA ; DISABLE VIDEO RAM 1 
Mov BX, SSVRAM2"100H + VRAM2_0 

CALL“ OUT_GA | DISABLE VIDEO RAM 2 
mov BX, S8KJROMM100H ¢ KJRO! 

CALL OUT_GA 3 EWABLE™ KaNar ROM 
Mov KJROM_STAT,TRUE + KJ-ROM FLAG ON 
CALL ENABLE_IRT 3 ENABLE INTERRUPT 
PoP Ds ; 

POP DX ; 

PoP BX RESTORE REGISTERS 
POP ax ; 

RET 


ENABLE_KJROM ENDP 


revere a a eee core 

i ENABLE_VRAM 

3 

3 THIS ROUTINE ENABLES VIDEO RAM 

3 

; IMPUT NONE 

; OUTPUT NONE 

; CALL DDS 

3 DISABLE_INT 

3 ENABLE_INT 

; VOLATILE NONE 

paeweebeea ones eacs iniena rece ies iaeciee erares 

ENABLE_VRAM PROC NEAR 
PUSH AX 3 
PUSH BX 3 SAVE REGISTERS 
PUSH Dx > 
PUSH DS ; 
CALL oD ; POINT DATA AREA 

ASSUME DS:DAT 
CALL DISABLE_INT 3} DISABLE ALL INTERRUPT 
; DURING VRAM AND KJ-ROM SWITHING 

MOV DX, SXO8BASE 3 ADDRESS OF ADDRESS CONTROLLER 
MOV BX,S8KJROMM100H *# KJROM_OFF 
CALL OUT_GA + DISABLE KANJI ROM 
MoV BX,S8VRAMIM1O0H + VRAMI_ON 
cnP CPU_PAGE,VRAM2_PAGE ; VIDEO RAM 1 ? 
3B EVRAML + YES 
Mov BX, S8VRAM2M100H + VRAM2_ON 

EVRAMI1: 
CALL OUT_GA > ENABLE VIDEO RAM 
nov KJROM_STAT, FALSE; KJ-ROM FLAG OFF 
CALL ENABLE_INT + ENABLE INTERRUPT 
POP DS ; 
PoP DX ; 
POP BX 3 RESTORE REGISTERS 
POP AX 3 
RET 


ENABLE_VRAM ENDP 


3 
; DISABLE_INT 
; THIS ROUTINE DISALES ALL INTERRUPT 
> 
; INPUT NONE 
3 OUTPUT NONE 
3 ALL NORE 
; VOLATILE NONE 
Prmeewnwenn wwe ne ene wn nn eee eee nce 
DISABLE_INT PROC NEAR 
PUSH AX 
CLI 
DISABLE INTERRUPTS 
MOV AL, DISABLE_NM : 
ar one wPORT nce I : DISABLE NMI AND HOLD REQUEST 
Por A 
RET . 


DISABLE_InT ENDP 
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1coo 
1c00 


1cos 
1c0s 


1C0? 
1608 


eed 
oO 
o 
eo 


-—— | dh ola ew 

aAA AaAnA ann Aa 
Nee eee ewe Oo 
om> Oe £0 OC 


F6 
75 


BO 
&6 
FB 
1F 


cs 


OA 
75 


50 
iz.) 


0000 E 
06 OS55 R FF 
os 


80 
ao 


1DB0 R 


co 
OF 


09460 R 


8A C7? 


iz} 
58 
eB 
3c 
73 
BA 
DO 


AC7D R 


0961 R® 
63 


o2 
18 
26 0347 R 
c? 
Eo 


Jeroen ene - ~~~, 


3 EWABLE_INT 
$ 
} THIS ROUTINE ENABLES ALL INTERRUPT 
‘ INPUT NONE 
; OUTPUT NONE 
3 CALL DDS 
3 VOLATILE NONE 
; 
Jowose wenn ee eee. Moeoenonaoelwe wwecewewee can 
ENABLE_INT PROC NEAR 
PUSH Ax 
PUSH DS 
CALL DDS 3 POINT DATA AREA 


ASSUME DS:DATA 
TEST at A TEP_CTRL, TRUE ; an eRee Younes 2 


JHZ EMBL YES, DO NOT ENA 
MOV AL, ENABLE_NMI =; ENABLE HMI 
our NMI_PORT,AL ; 
STI + ENABLE INTERRUPTS 
ENBLI1: 
PoP ps 
POP Ax 
RET 
EWABLE_INT ENDP 
poee nemo een eee eee. ee ee 
SUPERIMPOSE INT 16H, AH = 20 (14H) 


THIS ROUTINE CONTROLS SUPERIMPOSE FUNCTION 
INPUT AL = 0 Has MODE OF VIDEO GENERATER 1 


= 4 320X200 4 COLOR (ANK) 
Hi = 5 RESERVED 
BH = 6 RESERVED 
BH = 7 NOT VALID 
BH = 8 160X200 16 COLOR (ANK) 
BH = 9 320X200 16 COLOR (ANK) 
BH = A 640X200 4 COLOR (ANK) 
BH =14 320X200 4 COLOR (KJ) 
BH =15 RESERVED 
BH =16 RESERVED 
BH =17 NOT VALID 
BH =18 160X200 16 COLOR (KJ) 
BH =19 320X200 16 COLOR (KJ) 
BH =1A 640X200 4 COLOR (KJ) 
AL = 1 SET SUPERIMPOSE 
LH = ; nig 
AL = 2 Ser Bigs te PAGE 
BH = 0 VRAM-1 


AL =3 SET * TRANSPARENT PALETTE REGISTER 
BH = PALETTE RIGISTER NUMBER 
AL = 4 SET ace MODE 


BH = 0: IORITY 
BH = 1: XOR 
BH = 2: AND 
BH = 3: OR 
OUTPUT NONE 
CALL ENABLE _VG1 


ERASE_SCURSOR 
SuP_SET_MODE 
Nida _SCURSOR 
ENABCE_vG2 


VOLATILE AX, BX,CX,DX,SI,DI,ES 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
SUPERIMPOSE Proc NEAR 


CALL ENABLE_VG1 


a ee ee ee er ee ry 


SELECT VIDEO GENERATER 1 


OR ALLAL 3 SUPERIMPOSE MODE SET ? 

INZ STPL + NO 

PUSH ax 3 SAVE CURRENT CRT MODE 

CALL ERASE_SCURSOR ; ERASE meals CURSOR 

MOV AL, BH 3 SET MODE TOA 

CALL SUP_SET_MODE 3 SET MODE OF VIDEO GENERATER 1 
PoP ax + RESTORE CRT MODE 


CALL APPEAR_SCURSOR 
JMP SHORT SIP? 


APPEAR SOFTWARE CURSOR 
END 


SIPi: 
CMP AL,2 + SUPERIMPOSE ON/OFF FUCTION ? 
JAE S1P2 + kO 
p--~_ AL=1 SUPERIMPOSE OFF/ON 
MOV AH, SUPIPCR 3 GET LAST VALUE OF SUPERIM. CONT. REG. 
MoV AL,BH + GET VALUE 
SHL AL,t } SHIFT TO TRANSPARENT BIT POSITION 
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AND AH,NOT TRANSON ; MASK TRANSPARENT BIT OFF 
ic2z. 80 E& FD AND AL, TRANSON 3 GET TRANSPARENT BIT 
1€25 24 02 OR AL, AH 3 SET TRANSPARENT BIT 
1027 is ae R poe Buri ESR e AG ; ONE ay ti VALUE 
1629 Z : 
1c2c 8A D8 mov BH, PCSUPER 3 SET REG. ADDRESS OF SUPERIM. CONT. REG. 
1C2E HL of JMP SHORT SIPS 
1030 
are cMP AL.3 
C32 ° 
1e32 3c 03 JAE SIPS 
ic3¢ 73 16 3-~~_AL=2_SET FORGOUND PAGE 
a7 Mov AH, SUPIPCR 3 GEY LAST VALUE OF SUPERIM. CONT. REG. 
1C36 8A 26 03 MOV AL, BH 3 GET VALUE 
1c3a 8A C7 . AND AH, NOT FOREVRAM ; MASK FORGROUND BIT OFF 
ic3c 30 E4 F AND AL, FOREVRAM 3 GET FORGROUND BIT 
IC3F 24 01 OR AL, AH 3 SET FORGROUND BIT 
1cé OA CO) MoV SUPIPCR,AL ; UPDATE BY NEW VALUE 
1C4$_ AZ O34 MoV BL,AL 3 SET IT TO 
1046 8A D8 mov BH, PCSUPER 3 SET REG. ADDRESS OF SUPERIM. CONT. REG. 
oe 7 Me JMP SHORT SIP5 
SIPS: 
iene er JA SIP4 + SET SUPERIMPOSE MODE FUNCTION ?, YES 
3-7~_AL=3 SET TRANSPARENT PALETTE REGISTER 
a toe MoV BL, BH 3 SET TRANSPARENT PALETTE NUMBER TO BL 
1C6E . 05 MoV BH, PCTRPALT 3 SET REG. ADDRESS OF TRANSPARENT PALETTE 
1c ae iF JMP SHORT SIP6 
SIP4: 
less 3¢ 04 CMP AL,4 + SET SUPERIMPOSE MODE ? 
ieee 75 21 INE SIP? 3 NO 
ics s--- AL=4 SET SUPERIMPOSE MODE 
cs8 DoE? SAL BH,1 3 ADJUST POSITION 
ieaa Do €7 SAL BH,2 3 ADJUST POSITION 
1cSc AO 0347 RK Mov AL, SUPIPCR 3 GET LAST VALUE OF SUPERIM. CONT. REG. 
ACSF 24 03 AND AL, 000000113 3 MASK TRANSPARENT BIT OFF 
1C6l OA FB OR BH, AL 3 SET SUPERIMPOSE MODE BIT 
1c63 88 3E OS47 RK MOV SUPIPCR, BH 3 UPDATE BY NEW VALUE 
1067 8A OF MOV BL, BH + SET IT TO BL 
1¢69 B7 06 a MoV BH, PCSUPER 3 SET REG. ADDRESS OF SUPERIM. CONT. REG. 
2 
tee re c3 02 TEST BL. TRANSON 3 SET SUPERIMPOSE ON ? 
1C6E 75 03 JRE SIP6 3 YES 
1670 80 ES 01 roe AND BL, FOREVRAM 3 MASK MODE CONTROL BITS FOR SUPERIMPOSE OFF 
t 
1e73 WA C308 MOV DX, VGA_CTL 3 GET 170 ADDRESS OF VIDEO GATE ARRAY 
1€76 £8 1E22 ® CALL OUT_GA 3 OUT BX TO GATE ARRAY 
79 SIP7: 
179 E8 1DD6 ® CALL ENABLE_VG2 3 SELECT VIDEO GENERATER 2 
ic7c C3 RET + ALL DONE 
1¢70 SUPERIMPOSE ENDP 
yewenawocwce, hie soot oe Soa oes ee oe 
3 SUP_SET_MODE 
i 
3 THIS ROUTINE INITIALIZES THE ATTACHMENT TO 
; THE SELECTED MODE FOR SUPERIMPOSE 
3 THE SCREEN IS BLANKED. 
; INPUT AL = MODE SELECTED (RANGE 4-A) 
3 
; OUTPUT HONE 
; 
3 CALL DISABLE_INT 
; SET_PALETTE4 
3 SET_PALETTEI6 
3 VGA_RESET 
3 EXABLE_VG1 
; ENABLE_VG2 
; SET_SUPREG 
i ENABLE_INT 
i VOLATILE AX, BX,CX,DX,SI,DI 
’ 
ASSUME cs: CODE, DS:DATA, ES:VIDEO_| RAM 
1¢7D 


SUP_SET_MODE PROC NEAR 


1C7D FF $6 0355 R 


BIT FLAG 
181 gee PUSH WORD PTR IEP_CTRL 5} SAVE INTERRUPT ENABLE PROHI 
ue eee R FF OR BYTE PTR ier TCTRL, TRUE PROHIBIT INTERRUPT ENABLE 
7 CALL DISABLE_IN 3 DISABLE HAROWARE INTERRUPT 
89 50 
1CBA 26 IF PUSH AX 5 SAVE INPUT MODE ON STACK 
1C8C BA FB nay AL,7FH + MASK REGEN HON CLEAR FLAG 
1C8E 26 EF BH,AL + SET INPUT MODE 10 BH 
aan AKD AL, OEFH + MASK KJ BIT OFF 
1692 72 26 cmp ALL4 be-- CH v MODES 
AEs 3¢ 07 ae SSETM2 3 MODE oc TS INVALIO 
ine 4 20 AL,? 3 CHECK FOR VALID MODES 
3C 0A SSETM2 + MODE 7 IS INVALID 
1C9A 77-16 cup AL, OAH s UNDER OBH ? 
dA SSETM2 3 NO, INVALID 
1C9C BA 26 O33 8 ; OMBINATION 
is ante ae Mov “=~ CHECK VALID SUPERIMPOSE COMB? 
i ake inp AN a gamez + GET CRT MODE OF VIDEO PROCESSOR-2 


J 
CHP oRL 3 MASK KJ BIT OFF 
AH.2 + CURRENT MODE IS HIGH BAND ? 
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euengnwen~ Yur 


eed arth aed acl andl oi al andl ane 
ooo°cv0000 ooo 
RON KE eee eee 


72 «OA JB 
80 FC 04 CMP 
72 OF JB 
80 FC 09 CMP 
73 OA JAE 
SSETM1: 
3c 09 CMP 
73 02 JAE 
EB 10 JMP 
SSETM2: 
58 PoP 
E9 1D8D R JMP 
SSETMS: 
3c 09 CMP 
72 F8 JB 
50 PUSH 
ES 62 IN 
Ag 08 TEST 
58 POP 
75 Fo JNZ 
SSETM4: 
50 PUSH 
8A E7 MOV 
8B FS MOV 
ES 1A44 R CALL 
32 CO XOR 
ce OUT 
AO O33SD R MOV 
24 =F? AND 
EE ouT 
59 PoP 
F6 06 OSFC R FF TEST 
75 2€ JNZ 
BO 06 MOV 
EE ouT 
32 co XxOR 
ee ouT 
BS 10 MOV 
BB O2BD R mov 
80 F9 04 cup 
74°11 JE 
80 FS 65 cmp 
74 oc JE 
80 FO 08 CMP 
74:11 JE 
8Q F9 09 cmp 
74: 0¢ JE 
EB OD JMP 
SSETMS: 
80 FD 06 CMP 
75 08 JNE 
E8 OS35 KR A 
EB 03 oS 
SSETNG 
EB 0545 R * cate 
SSETM? 
8B Cc? : MOV 
BS 40 MOV 
3c 09 cer 
72 02 Jc 
BS CO MOV 
TMS 
BA OSDF eT 
AQ OOBA R MOV 
24 SF AND 
OA CS OR 
cE out 
A2 QO8A R MOV 
E&8 0551 R CALL 
BO OL MOV 
cE our 
2€: BA 47 O1 MoV 
24 OF AND 
EE ouT 
BO 03 MoV 
EE OUT 
2E: BA 47 03 MoV 
24 OF AND 
cE our 


SSETM1 5 
AH,4 


yO 
3 CURRENT MODE IS HIGH BAND ? 
YES 


SSETMS 5 
AH,9 ; CURRENT MODE IS HIGH BAND ? 
SSETMS , 

Hee TURRET ee 1S LOW BAND 
AL,9 ; CHECK LOW B 


SSETM2 + MODE cOMFRICT. 
SHORT SSETM4 3 OK 


AX 3 RESTORE AX 
SSETM11 3 BREAK 
3~ CURRENT tars IS HIGH BAND 
AL,9 3 CHECK HIGH BAND 
SSETM2 3 MODE COMFRICT 
Ax 3 SAVE AX 
AL,PORT_C 3 GET DATA FROM PORT-C 
AL, EXP64K 3 64K_EXPANTION INSTALLED ? 
AX + RESTORE AX 
SSETM2 3 MO 
Ax ¢ SAVE CURRENT CRT MODE AND SETTING MODECMASKED) 
AH, BH 3 SAVE MODE IN AH 
DI,AX 3 SAVE MODE IN DI 
WAIT_VERTRET 3 WAIT UNTIL VERTICAL RETRACE 
beret TURN OFF VIDEO 
ALLAL 3 SET VGA REG 6 
DX, AL + SELECT IT 


AL, CRT_MODE_SET2; 


GET LAST MODE SET 
AL,NOT VIDEOENB ; 
DX, AL 


TURN OFF VIDEO 
SET IN GATE ARRAY 


~ 


{====< SET DEFAULT PALETTES 
cx 3 GET CURRENT CRT MODE AND SETTING MODE 
SUPRESS_PAL, TRUE; SET PALETTE IS SUPRESSED 2? 
SSETM7 + YES, SKIP 
AL, PCSUPER ; 
DX, 3 CLEAR SUPERIMPOSE SonTROL REGISTER 
ALLAL 3 FOR SET PALETTE 
DX.AL i 
AH, PCPALET 3 SET PALETTE REG 0 
BX, DEESED PLTC41; POINT TO TABLE ENTRY 
cL, + CHECK FOR 4 COLOR MODE 
ssétns + YES, JUMP 
L,5 3 ae ree 4 COLOR MODE 
SSETMS + YES J 
CLL8 3 CHECK FOR 16 COLOR MODE 
SSETM6 3 YES, JUMP 
L.9 + CHECK FOR 16 COLOR moDE 
SSETM6 + YES, JUMP 


SHORT SSETM7 


~ 


SKIP SET PALETTES 


CH, 06H 
SSETM7 


SET_ PALETTES 
SHORT SSETM? 


2 COLOR MODE ? 
NO, SKIP SET PALETTES 


SET PALETTE 4 COLOR 


SET_PALETTEI6 


SET PALETTE 16 COLOR 
b---~~ SET UP MNO & M1 IN PAGREG 


AX, DI 5 GET CURRENT MODE 
BL, 40H 5 SET UP FOR 16K REGEN 
AL, 09 + MODE USE 16K 
SSETMS > YES, JUMP 
BL,OCOH 3 SET UP FOR 32K REGEN 
DX, PAGREG 3 SET PORT ADDRESS OF PAGREG 
AL, PAGDAT > GET LAST DATA OUTPUT 
AL, 3FH + CLEAR MO & M1 BITS 
AL, BL + SET NEW BITS 
DX, AL + STUFF BACK IN PORT 
PAGDAT, AL + SAVE COPY IN RAM 
i--- ENABLE VIDEO AND CORRECT PORT SETTING 
VGA_RESET + RES 


AL, PCPALETM s ae PALETTE MASK REGISTER 
Xr AL 
AL. CS¢ CAX*PCPALETH} 


AL,OFK + MASK EXTRA DATA OFF 
OX, AL $s SET IT 

Al, aaa 3 ee MODE REGISTER 2 
Dx, 

al, C5: CBXPCHODES) 

AL,OFH s MASK EXTRA DATA OFF 


OX, AL + SET IT 
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R mov AH, SUPIPCR 
BA 26 os 


3s RESTOER SUPERIMPOSE CONTROL REGISTER 
CALL —- SET_SUPREG 3 
ADSE ee 
1Ds2 8 CALL ENABLE_VG2 s EHABLE VIDEO GATE ARRAY 2 
oR 
pues 6: 1am IN AL, Dx } INSURE ADDRESS STATE 
c nov AL, IXPALETM 3 SELECT PALETTE MASK REG 
ibes 50 03 out DX, AL 3 SET IT 
ips EE MOV AL, PALETTE_MASK 3 GET LAST VALUE OF PALETTE MASK REGISTER 
1D6c Ad 0352 R OR AL, VRAMLENB } SET VORAML ENABLE BIT 
1D4F OC 10 ou f 3 
ims TF Mov AX, $I 3 PUT MODE SET & PALETTE IN RAM 
1052 rd + oysp R nov GRY AODE_SETZAN sakes satin aan se 
1 
IN ALLP 3 GET CURRENT VALUE OF 8255 PORT 3 
pss E4 62 AND AL, nat "Fort _B_ALPHA 3 SET UP GRAPHICS MODE 
IDSA 24 FB OUT PORT_| 3 STUFF BACK IN 8255 
6 61 
zee HOV $I,DI 3 SET MODE TO SI 
1Dse 8B FT HOV AX, SI 3 GET MODE BACK 
8B 
= ao FILL REGEN AREA WITH BLANK 
ms XOR DI,DI SET UP POINTER FOR REGEN 
33 
— POP Dx 3 GET ORIGINAL INPUT BACK 
1D64 «SA AND DL.80H 3 NO CLEAR OF REGEN 
1D65 % 3 80 INZ SSETM10 3 SKIP CLEARING REGEN 
1068 
BY 2000 Mov CX,8192 3 NUMBER OF WORDS TO CLEAR 
1D6A 
cMP AL,O9H 3 REQUIRE 32K BYTE REGEN ? 
ieee is pace HOV AX,REGEH_START 3 SET SEGHENT OF 16K REGEN BUFFER 
1D6 Jc SSETM9 3 NO, 
1D72 72 65 
SHL cx, 3 SET 16K WORDS TO CLEAR 
1 CALL —s GET_DIRSEG 3 GET 
+t] iE ois . ai SEGMENT OF 32K REGEN 
SETMY: 
1079 ’ MOV ES,AX 3 SET REGEN SEGMENT 
1d79 8E CO XOR AX, AX 3 FILL FOR GRAPHICS MODE 
ibyD ar REP STOSW 3} FILL THE REGEN BUFFER WITH BLANKS 
TM101 geoee- ENABLE VIDEO 
{OTE EB DBO R an Ls ENABLE_VG1 } ENABLE VIDEO GATE ARRAY 1 
MOV DX, VGA_CTL 3 SET PORT ADDRESS OF VGA 
1082 BA OSDA IN ;DX ~ ; INSURE ADDRESS MODE 
1D85 EC ; 
52 ¢O XOR AL, AL 3 
ee ee ouT DX, AL 3 SELECT VGA REG 0 
ipse AO OSSD R mov AL, CRT. ~MODE_SET2; GET MODE SEY VALUE 
psc EE out DX, AL SET MODE 
3080 SSERIEL PROHIBIT FLAG 
F 06 0355 R POP WORD PTR IEP_CTRL;RESTORE INTERRUPT ENABLE 
ion) Es inee R CALL —_—- ENABLE_INT 3 ENABLE INTERRUPT IF IT IS NOT PROHIBITED 
1p%s cS. RET 
1p95 SUP_SET_MODE  ENDP 
jeseeteeeesutenscecess ea ce aes en 
3 
; GET_DIRSEG 
3- 
3 “THIS ROUTINE DETERMINE DIRECT ADDRESS 
3 SEGMENT OF V-RAM1 (MAIN RAM) 
3 
i INPUT DS = DATA SEGMENT 
; gurPur AX = SEGMENT VALUE 
3 CAL NONE 
; VOLATILE HONE 
5 
pormwewennennn a is Ge dic ce Saag es ald ess wa ian oa ww en 
1D95 GET_DIRSEG PROC = HEAR 
it ae Moy AH PAGDAT j ET COPY OF PAGE REGS 
, CPUREG ™ 100H 3 ISOLATE CPU 
1DIC DO EC SHR AK, } SHIFT TO MAKE INTO SEGMENT VALUE 
1D9E 53 PUSH Bx 
5 SAVE BX 
1D9F 8B 1E 0015 R MOV BX, TRUE_MEN Dany wemony: SIZE 
ADAS 51 PUSH =X 
5 
Hs may eg ! 
1DAB 59 Has Berek ADJUST FOR SEGMENT VALUE 
3 
1DA9 80 EF 20 
\DAC OA E7 SUB BH, 001000008 3 0 10P 128K 
1DAE 5B OR AH, BH i SHIFT VIDEO RAM ADDRESS T 
eure i + RESTORE BX 
RET 
1080 
GET_DIRSEG ENDP 
braceeeenne wenn ne pieiictiteice ass 
ENABLE_VGi 


THIS ROUTINE ENABLES VIDEO GENERATER 1 


A-86 


1DB0 


1DBO0 
1D81 
1DB2 
1DBS 


1DB4¢ 


1BE4 R 
OFF 
8D7B 
1E22 8 


8CFB 
1E22 R 


06 0354 R OL 
1BEC R 


1BE4 R 
OLFF 
8C7B 
1E22 R 


SDFB 
1E22 R 


06 0354 R 00 
1BEC R 


INPUT 


NONE 


SAVE REGISTERS 


3 POINT DATA AREA 
DS:DATA 


3 
3 OUTPUT NONE 
; CALL DISABLE_INT 
; ENABLE_INT 
3 OUT_GA 
3 VOLATILE 
jeetinesoseree sind So le eeecccescenn 
ENABLE_VG1 PROC = HEAR 

PUSH = aX 3 

PUSH = BX 3 

PUSH = DX 3 

PUSH = »S 3 

CALL DDS 

ASSUME 
CALL DISABLE_INT 5 


MoV DX, SXO8BASE 
mov BX, S8SX02BM100H 
UT_GA 


MOV BX, S8SXO2AN100H 
OUT_GA 


DISABLE ALL INTERRUPT 


$ ADDRESS OF ADDRESS CONTROLLER 
+ $X02B_OFF 
3 DISABLE VIDEO GENERATER 2 


+ SX02A_ON 
+ ENABLE VIDEO GENERATER 1 


MOV VG_STAT,VG1_ON ; SET VIDEO GENETAETER 1 ON 
CALL ENABLE_INT 3 ENABLE INTERRUPT 
PoP Ds 3 
POP Dx 3 
POP Bx 3 RESTORE REGISTERS 
PoP AX 5 
RET 
ENABLE_VG1 ENDP 
Jee re anes nme wecawcceuscaescesensececuscess 
3 
3 ENABLE_VG2 
; THIS ROUTINE ENABLES VIDEO GENERATER 2 
3 
3 INPUT NONE 
3 ouTeuT NONE 
3 CALL DISABLE_INT 
3 ENABLE_INT 
3 our 
3 VOLATILE NONE 
3 
fetessteees eae cece es eecusnvenecewoed ce 
ENABLE_VG2 PROC = NEAR 
PUSH Ax F 
PUSH Bx 3 SAVE REGISTERS 
PUSH Dx 3 
PUSH DS 3 
CALL ops 3 POINT DATA AREA 
ASSUME DS:DATA 
CALL DISABLE_INT 3 DISABLE ALL INTERRUPT 
MOV DX, SXO8BASE 3 ADDRESS OF ADDRESS CONTROLLER 
MOV BX. SBSXOZANLOOH # SXO2A_OFF 
CALL OUT_GA 3 DISABLE VIDEO GENERATER 1 
MOV BX, S8SXO2BH100H # SX02B_ON 
CALL OUT_GA s ENABLE VIDEO GENERATER 2 
MOV VG_STAT,VG2_ON ; SET VIDEO GENERATER 1 OFF 
CALL ENABLE_INT 3 ENABLE INTERRUPT 
PoP Ds 3 
PoP px 3 
POP Bx 3 RESTOER REGISTERS 
PoP ax i 
RET 
ENABLE_VG2 ENDP 
Jr mts t ew ewe www ewww nee ewww we ww wwe fi et a 
t 
3 ENABLE_VG12 
, 
; THIS ROUTINE ENABLES VIDEO GENERATER 1 AND 2 
4 
3 INPUT NONE 
’ OUTPUT NONE 
3 CALL DISABLE_INT 
5 ENABLE_INT 
3 OUT_GA 
F VOLATILE NONE 
5 
paecite doe feo ct ececce cause poses Seewecnes 


Appendix A. 


1E22 
1E22 
1E25 
1€25 
1E26 
1€28 
1E29 


VE2A 


ec 
BA 


BA 
EE 


cs 


8b 
ga 
74 


51 
8B 


80 
73 


Es 


06 0354 R 02 
1BEc R 


c7 


16 OS4AR 
1E 0368 R 
DB 
15 


SE 0350 R 


FC 04 
os 


LEMAR 


EB 03 


13) 


59 
32 


0618 R 


DB 
OE OS50 R 


ENABLE_VG12 PROC. — NEAR 
PUSH AX 3 
PUSH BX } SAVE REGISTERS 
PUSH DX t 
PUSH Ds 3 
CALL ops 3 ofS BIOS DATA AREA 
ASSUME DS: DAT 
CALL DISABLE_INT DISABLE ALL INTERRUPT 
MOV DX, SXO8BASE 3 ADDRESS OF ADDRESS CONTROLLER 
MOV —s-BXs SBSXOZAMLOOH + SXOZA_ON 
CALL OUT_GA s ENABLE VIDEO GENERATER 1 
MOV BX,S8SXO2BR100H + SX02B_0N 
CALL OUT_GA 3 ENABLE VIDEO GENERATER 2 
mov VG_STAT,VG12_0N ; SET FLAG 
CALL ENABLE_INT 3 ENABLE INTERRUPT 
PoP DS 3 
PoP DX 3 
POP BX 3 RESTORE REGISTERS 
PoP AX 3 
RET 
ENABLE_VG12 ENDP 
lati iS aoe eae piiseasatuast cece 
3 
3 oUT_GA 
3 
3 THIS ROUTINE OUTPUT ADDRESS/DATA TO GATE ARRAY 
3 
3 INPUT BH = INTERNAL ADDRESS 
3 BL = DATA TO WRITE 
3 DX = ADDRESS OF GATE ARRAY 
3 
3 OUTPUT NONE 
3 CALL NONE 
3 VOLATILE aL 
3 
Ese aes Stee ee eee SAE . 


OUT_GA PROC NEAR 


IN AL,DX 
MOV AL,BH 
OUT DX, AL 
MoV AL, BL 
OUT DX,AL 
RET 

OUT_GA ENDP 

Joenroe eno eee ee 

t 

3 SET_LALT_CTYPE 

3 Serre eee eee= 

- 

3 

5 

3 INPUT AH = 

‘ cx = 

3 

5 OUTPUT NONE 

s 

3 CALL 

5 

3 

5 VOLATILE 

5 

5 


ASSUME C$:CODE, DS:DATA 


SET_ALT_CTYPE proc 
mov 


mov BL,AC. 
OR BL, BL 
Jz SACTS 
PUSH cx 


3 


3 
5 


SYNC TO ADDRESS STATE 


WRITE INTERNAL ADDRESS 
WRITE DATA 


INT 10H, AH = 81H 


THIS ROUTINE SETS THE ALTERNATE CURSOR VALUE 


CURRENT CRT MODE ( MASKED ) 
CURSOR VALUE CH-START LINE, CL-STOP LINE 


WRITE_ALT_CURSOR 
WRITE_GCURSOR 


BX, DX, DI 


HEAR 


3 
; 
5 
3 


Mov CX, ACURSOR_MODE ; 


CMP AH, GRAPHICS 
SACTA 


JAE 5 
CALL = WRITE_ALT_cur 
JMP SHORT Sheree 
SACTI: 
Sact2, CALL WRITE GcuRsoR 
PoP cx 
3 
sacts, “OR — BLBL ; 
Mov 


ACURSOR_MODE, cx ‘ 


A-88 


DX» ALT_CURSOR_POSNs GET CURRENT CURSOR POSITION 
PRESENT 


GET ALTERNATE CURSOR PRESENT FLAG 
ARTERRATE CURSOR PRESENT ? 


SAVE NEW CURSOR MODE 
GET OLD CURSOR MODE 


GRAPHICS MODE ? 


3 YES 


ERASE CURRENT ALTERNATE CURSOR 


R 
ERASE CURRENT ALTERNATE GRAPHICS curso 


RESTORE WHEW CURSOR MODE 
CLEAR ALTERNATE CURSOR FLAG 


SAVE NEW GRAPHICS CURSOR MODE 


1E9A 


1E9A 
1€9D 


1E9F 
1EA2 


FC 04 


73 05 


1E9A R 


EB 04 


Es 
4B 


88 
cs 


E8 


SA 
32 


80 
73 


0618 R 


1E 0348 R 


OE O350 R 
1E 0348 R® 
15 


16 OS4A R 
c 04 

05 

1E9A R 

os 


0618 R 


oB 
16 OS4A R 


FC 04 
05 


1E9A R 


EB 04 


iz) 
4B 


88 
cs 


0618 R 


1E 0348 R 


SACT4: 


SACTS: 


CMP AH, GRAPHICS 3 GRAPHICS MODE 2? 
JAE SACTS 3 YES 


CALL WRITE_ALT_CURSOR; WRITE WHEW ALTERNATE CURSOR 
JMP SHORT SACTS 3 


WRITE_GCURSOR 3 WRITE NEW GRAPHICS CURSOR 
BX 3 SET ALTERNATE CURSOR FLAG 


AC_PRESENT,BL 5 SET ALTENATE CURSOR FLAG 
RET 


SET_ALT_ CTYPE ENDP 


(Se we ee we we we we we we we we Oe we we we we we 


SET_ALT_CPOS INT 10H, AH = 82H 


THIS ROUTINE SETS THE ALTERNATE CURSOR POSITION TO THE 
NEW X-Y VALUES PASSED 


INPUT AH = CRT MODE (MASKED) 
DX = ROW,COLUMN OF NEW CURSOR 


OUTPUT NONE 

CALL WRITE_ALT_CURSOR 
WRITE_GCURSOR 

VOLATILE 8X,CX,DI 


ASSUME CS:CODE, DS:DATA 


SET_ALT_CPOS PROC NEAR 


mov CX,ACURSOR_MODE + GET ALTERNATE GRAPHICS CURSOR MODE 
MOV "le enaneel GET ALTERNATE CURSOR PRESENT FLAG 


OR ’ ; ALTERNATE CURSOR PRESENT ? 
JZ SACPOSS 3 NO, SKIP ERASE OLD CURSOR 
PUSH Dx 3 SAVE NEW CURSOR POSITION 
MoV DX, ALT_CURSOR_POSN ; GET OLD ALTERNATE CURSOR POSITION 
CMP AH, GRAPHICS 3 GRAPHICS MODE ? 
JAE SACPOS1 3 YES 
CALL WRITE_ALT_ CURSOR} WRITE ALTERNATE CURSOR 
JMP SHORT SACPOS2 
SACPOS1: 
ekeanes CALL WRITE_GCURSOR 3 WRITE ALTERNATE CURSOR IN GRAPHICS 
? 
POP DX 3 RESTORE NEW CURSOR POSITION 
XOR BLLBL 3 CLEAR ALTERNATE CURSOR FLAG 
SACPOS3: 


MOV ALT_CURSOR_POSN,DX 3 SET NEW ALTERNATE CURSOR POSITION 


CMP AH, GRAPHICS 3 GRAPHICS MODE ? 
JAE SACcPOs4 + YES 


CALL WRITE_ALT_CURSOR; WRITE ALTERNATE CURSOR 
JMP SHORT SACPOSS 


SACPOS4: 

CALL WRITE_GCURSOR 3 WRITE ALTERNATE CURSOR IN GRAPHICS 

DEC Bx 3 SET ALTERNATE CURSOR FLAG FOR GRAPHICS 
SACPOSS: 

her ACLPRESENT,BL 3 ALTERNATE CURSOR PRESENT 


SET_ALT_CPOS ENDP 


Jrmmmm nme mnw ewww www wwe new enn wn cee weeen 


WRITE_ALT_CURSOR 
THIS ROUTINE WRITES THE ALTERNATE CURSOR 


KANJT BIT IS MASKE 
CIF BL=0, USE ATTRIBUTE AT REGEN BUFFER) 
CX = CURSOR MODE 
OX = ROW,COLUMN POSITION TO WRITE 


QUTPUT BL = NEW ATTRIBUTE AT ALTERNATE CURSOR POSITION 
KANJI BIT IS MA 


4 
i 
s 
3 
t 
3 
; 
3 
F 
5 
t 
’ SKED 

’ CIF NO CURSOR HAS WRITTEN, BL=0) 
4 

; 

’ 

’ 

1 

i 


CALL FIND_POSN 
VOLATILE 8H,DI 
WRITE_ALT_CURSOR PROC NEAR 
TEST CH, CURSOR_DISABLE s CURSOR DISABLED 2 
JNZ WALTC2 i YES 
CMP CX. BLOCK_CURSOR + BLOCK CURSOR ? 
JNE WALTC2 + MO 


A-89 


INPUT BL = ATTRIBUTE TO BE USED AT ALTERNATE CURSOR POSITION 
D 
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1ED8 


1ED8 
1ED9 
1€0D 


1EEL 
1EES 
1EE6 


1EES 
1EEA 


1EEB 


50 
31 


BB C2 
53 
€8 0D 


8B FB 
SB 


32 ED 
8A OE eee R 


26: 8B OS 
OA DB 


74 :«05 


80 £4 
OA ES 


35 
8B O16 
8B CE 


8B EC 
89 56 
89 4E 


5D 
cs 


7? 
88 


OS4A R 
350 8 


oc 
OA 


s 

PUSH ex 3 SAVE REGISTERS 
nov AX, DX 3 SET ROW/COLUMN POSITION 
PUSH =—-_ BX 3 SAVE ATTRIBUTE 
XOR CH,CH 3 SET ACTIVE PAGE TO CX 

v CL,ACTIVE_PAGE 3 
CALL FIND - 3 DETERMINE LOCATION IN REGEN BUFFER 
nOV DI, BX 3 SET OFFSET TO 
PoP Bx 3 RESTORE ATTRIBUTE 
MOV AX, ES: {DI 3 GET CODEZATTR FROM REGEN 
OR BL,BL 3 ATTRIBUTE SPECIFYED ? 
JZ WALTC1 3 NO 
AND AH, ZEN2_MASK 3 GET KJ BIT 
OR AH, BL 3 SET ATTRIBUTE 

WALTC1: 


s--> REVERSE ATTRIBUTE OF FORE/BACKGROUND 
MOV BH, AH 3 SET ATTRIBUTE TO BH FOR REVERSE 
MOV CL,4 3 SEY SHIFT COUNTER 
ROR BH,CL 3 SWAP NIBBLE 
AND BH, HAN_MASK + STRIP OFF KJ-BIT 
AKD AM, ZEN2 _MASK 3 STRIP FORE/BACKGROUND COLOR BIT OFF 
OR 3 SET REVERSED COLOR BIT TO A 
STOSW 3 WRITE CODE/ATTR TO REGEN 
MoV BL, BH + SET NEW ATTRIBUTE 
POP cx i 
POP AX 3 RESTORE REGISTERS 
RET 
WALTC2: 
XOR BL, BL 3 CLEAR FLAG 
RET 
WRITE_ALT_CURSOR ENDP 
fuabotes seed e ces sate. cua ponucunuetescetacuae ani 
3 READ_ALT_CURSOR INT 10H, AH = 83H 
0 gegewereeren2ce 
3 THIS ROUTINE READS THE ALTENATE CURSOR POSITION 
3 
3 INPUT NONE 
3 OUTPUT DX = ROW, COLUMN OF THE ALTERNATE CURSOR POSITION 
3 CX = CURRENT ALTERNATE CURSOR MODE 
5 
; CALL NONE 
$ 
3 VOLATILE Bx 
Hy 
Gemeente eg 


ASSUME CS:CODE, DS:DATA 
READ_ALT_CURSOR PROC NEAR 
PUSH BP 


mov DX, ALT_CURSOR_P 
MOV CX, ACURSOR SMODE 3 
Mov BP,SP 

MOV UBP+F_DX}, Dx 3 
MOV (BP+F_Cx),¢X 3 
PoP BP F 
RET 


pietoen ALT_CURSOR ENDP 


THIS ROUTINE READS THE 


wo we we we We we we Be we Be Oe we we Be Oe we Oe we 


SAVE BP 
GET ALTERNATE CURSOR MODE 


3 SET FRAME POINTER 


SET RETURN DX 
SET RETURN CX 


RESTORE BP 


THT 10H, AH = 88H 


ATTRIBUTE AND CHARACTER AT THE 
CURRENT CURSOR POSITION AND RETURNS THEM TO THE CALLER 


INPUT = AH = CURRENT CRY ge 
DS = DATA SEGMENT a anaanen 
Es = REGEN SEGMENT 
OUTPUT AL =. CHAR READ 
AH = ATTRIBUTE READ 
CALL READ_AC_CURRENT 
ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
5X. 
' —READ_AC_CURRENT PROC NEAR 
4 MOV BH. ACTIVE PAGE 3 SET DISPLAY PAGE 
3 
; JMP READ_AC_CURRENT } HANDLE BY NATIVE ROUTINE 
bRREAD_ AC_CURRENT ENDP 
- 
; HRITE_AC_CURREHT FOR KANA- 
$ empty 


KANJI COKV 
THT 10H NVERSION 


H. AH = 89H 


1EEB 


1EEB 
1EEE 


1EFO 
1EFS 


1EFS 
1EFA 


1EFA 
1EFD 


1EFD 


1€FD 
1F0O 


1FO02 
1FO0S 


1FO7 
1Foc 


1Foc 
FOF 


FOF 


@ 


1FOF 


72 0 


F6 
75 


ce 


80 
72 


Fé 
75 


ce 


FC 04 

A 

cs 380 

os 

06 0348 R 00 


OF32 R 


FC 04 
OA 


C3 86 
0s 


06 0348 R 00 


OFS6 R 


50 
1F10 «8B 16 OS4A R 


; THIS ROUTINE WRITES THE ATTRIBUTE AND CHARACTER AT 
; THE CURRENT CURSOR POSITION 
3 
; IHPUT 
; AH = CURRENT CRT MODE (MASKED) 
; AL = CHAR TO WRIT 
3 BL = ATTRIBUTE OF — TO WRITE 
; DX = ROW/COLUMN FOR WRITE CHARACTER 
i DS = DATA SEGMENT 
; ES = REGEN SEGMENT 
3 
; OUTPUT 
; NONE 
; CALL —- WRITE_AC_CURRENT 
3 
te eee ree END EDENTON Ee 
ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
K_WRITE_AC_CURRENT PROC HEAR 
CHP AH, GRAPHICS + TEXT MODE ? 
3B KWACL 3 YES 
TEST BL, XOR_BIT + XOR WRITE BIT ON ? 
JHZ so KWACL + YES 
AC_PRESENT, FALSE; CLEAR ALTERNATE CURSOR PRESENT FLAG 
KWACL: 
JP WRITE_AC_CURRENT; HANDLE BY NATIVE ROUTINE 
K_WRITE_AC_CURRENT ENDP 
Jail latin pani ata a ce en 
; WRITE_C_CURRENT FOR KANA-KANJI CONVERSION 
$s eeeaetscbeceaces T 10H, AH = 8AH 
H THIS ROUTINE WRITES THE CHARACTER AT 
; THE CURRENT CURSOR POSITION 
3 
3 INPUT 
i AM = CURRENT CRT MODE: (MASKED) 
3 AL = CHAR WRITE 
3 SU = COLOR OF CHAR (GRAPHICS) 
3 DX = ROW/COLUMN FOR WRITE CHARACTER 
; DS = DATA SEGMENT 
3 ES = REGEN SEGMENT 
3 
; outPur 
i NONE 
3 
; CALL WRITE_C_CURRENT 
. 
7 ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
K_WRITE_C_CURRENT PROC NEAR 
CHP «AH, GRAPHICS «=—s'5-: TEXT MODE ? 
3B KWL + YES 
TEST —-BL,XOR_BIT + XOR WRITE BIT ON ? 
Juz WOR > YES 
xwer, TOW ACLPRESENT, FALSE: CLEAR ALTERNATE CURSOR PRESENT FLAG 
iy 
JMP = WRIETE_C_CURRENT 3 HANDLE BY NATIVE ROUTINE 
KWRITE_CLCURRENT ——__ENDP 


WRITE_TTY FOR seine | CONVERSION 
Seer esee NT 10H, AH = (8EH) 


THIS Lipson PROVIDES A TELETYPE LIXE INTERFACE TO THE 
VIDEO CARD. THE INPUT CHARACTER IS WRITTEN TO THE CURRENT ALTERNATE 
CURSOR POSITION, AND THE CURSOR IS MOVED TO THE NEXT POSITION. 


INPUT 
AH = CURRENT CRT MODE (MASKED) 
AL = CHARACTER TO BE WRITTEN 
NOTE THAT BACK SPACE, CAR RET, BELL AND LINE FEED ARE 
HANDLED AS COMMANDS RATHER THAN AS DISPLAYABLE GRAPHICS 
BH = DISPLAY PAGE 
BL = FOREGROUND COLOR FOR CHAR WRITE IF CURRENTLY IN A 
GRAPHICS MODE 
OUTPUT NONE 
CALL VIDEO 
VOLATILE BH, CX, DX 


ee 


ewww www ewe w wwe ewww ewe eeeee wa ewww ween enw eweeenceeee 


ASSUME CS:CODE, DS:DATA 
KLWRITE_TTY proc NEAR 


PUSH 3 SAVE REGISTER 
MOV OX, ALT. CURSORPOSH + GET CURSOR POSITION 
~ OX NOW HAS THE CURRENT CURSOR POSITION 


A-91 
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06 0344 R FFFF 
17 


a7 0346 R 8006 


OE OG4A R 


Di 
os 


06 0344 R 0000 
F 


0344 R 
oc 
BA 


0001 
10 


06 6344 R C008 
c2 


82 
10 


BA 
001 
10 


c2 
16 OO4A R 
04 


82 
10 


KWTY1: 


KWTY2: 


KWTY3: 


KWTY4: 


KWTYS: 


KWTY?7: 


PoP 
RET 


K_WRITE_TTY 


CODE 


ORG 


K_TTY_IST_CHAR, TRUEs 1ST BYTE OF 2 BYTE CODE HAS BEEN SET ? 
xhity2 s YES 


AL, 080H 3 1ST BYTE OF 2 BYTE CODE ? 
KWTY6 + NO, GO TO WRITE ONE CHARACTER 
AL, OFDH ; 

KWTY6 $ WO, GO TO WRITE ONE CHARACTER 
AL,OAOH ; 

KWTY1 3 YES 

AL,ODFH 3 

KWTY6 


3 WO, GO TO WRITE ONE CHARACTER 
WAL oo CHARACTER IS 1ST BYTE OF 2 BYTE CODE 
Cy) 
k ~TTY_1ST. CHAR, AX SAVE 1ST BYTE OF 2 BYTE CODE AND SET FLAG 
SHORT KWTY7 


+ RETURN; WRITE PROCESS IS PENDING 


3~-~ CHARACTER MUST Phe ea Pure OF 2 BYTE CODE 
AL,040H ; i BYTE OF 2 BYTE C 
KWTYS 3 
AL, OFCH 3 
KWTYS 3 NO 
AL,O7FH ; 
KWTY4 > YES 


3-~- IGNORE 1ST BYTE 
K_TTY_1ST CHAR, 0; RESET FLAG OF 1ST BYTE 


SHORT KWTY6 3 GO TO WRITE ONE BYTE 
3~~~ WRITE 2 BYTE CODE 
Cx, CRT_COLS 3 CHECK COLUMN BOUNDARY 
cx 3 ADJUST FOR COMPARE 
DL,CL 3 IS COLUMN AT END OF LINE 2 
KWTYS + MO 


eT IN CASE OF MRITE 2 BYTE CHAR OW THE END 
LINE, IT IS IGNORED 

K_TTY_1ST CHAR, 05 CLEAR FIRST BYTE 

SHORT” KWTY7 3 TERMINATE 


io WRITE 1ST BYTE OF 2 BYTE CODE 
Ax SAVE 2ND BYTE OF 2 BYTE CODE 
BX SAVE COLOR 
AX, K rry_ast_cuak 3 GET 157 BYTE OF 2 BYTE CODE 
BL, AR 3 SET COLO 
AH,8AH 3 CAHDE SSANe WRITE CHARACTER AT CURRENT CURSOR 
CX,1 3 WRITE ONE CHARACTER 
VIDEO 3 VIDEO 170 
Bx 3 RESTORE COLOR 
K VOLIST CHURN RESET FLAG oF 1ST BYTE 
ot INCREMENT ROW 
AH, 82H 3 FUNCTION OF SET CURSOR POSITION 
VIDEO 3 DO IT 
ax 3 RESTORE 2ND BYTE 
s-7- WRITE THE CHAR TO THE SCREEN 
AH, 8AH 3 WRITE CHAR ONLY 
cx, 3 ONLY OKE CHAR 
VIDEO 3 WRITE THE CH 


3~-- POSITION THE CURSOR FOR NEXT CHAR 


DL 
neo PTR CRT_COLS ; TEST FOR COLUMN OVERFLOW 
3 SKIP CURSOR MOVE 


AH, 82H 
VIDEO 3 ADVANCE CURSOR POSITION 
ax 3 RESTORE THE CHARACTER 
3 RETURN TO CALLER 
ENDP 
2000H 


3 ADJUST SIZE TO 8K 


SU O0000Ot 


Tie INT 2) weeeen nner nn 22 -n nee -- e+ 





, 
JUU00G000008 3 EQUIPMENT DETERMINATION 
" " ; THIS ROUTINE ATTEMPTS TO DETERMINE WHAT OPTIONAL 
* MODULE 4 * 3 DEVICES ARE ATTACHED TO THE SYSTEM. 
x " 3 INPUT 
JUDO 00006 3 NO REGISTERS 
1000000000006 3 THE EQUIP_FLAG VARIABLE IS SET DURING THE POWER ON 
5 DIAGNOSTICS USING THE FOLLOWING HARDWARE ASSUMPTIONS: 
3 PORT 62 (0->3) = LOW ORDER BYTE OF EQUIPMENT 
3 PORT 3FA = INTERRUPT ID REGISTER OF 8250 
3 BITS 7-3 ARE ALWAYS 0 
3 PORT 378 = OUTPUT PORT OF PRINTER -- 8255 PORT THAT 
3 CAN BE READ AS WELL AS WRITTEN 
3 OUTPUT 
; CAX) IS SET, BIT SIGNIFICANT, TO INDICATE ATTACHED 170 
3 BIT 15,124 = NUMBER OF PRINTERS ATTACHED 
3 BIT 13 = RESERVED 
3 BIT 12 = GAME I/0 ATTACHED 
3 BIT 12,10,9 = NUMBER OF RS232 CARDS ATTACHED 
; BIT 8 0 = DMA CHIP PRESENT ON SYSTEM, 1 = NO DMA ON SYSTEM 
; BIT 7,6 = NUMBER OF DISKETTE DRIVES 
: OO=1, 01=2, 10=3, 1124 ONLY IF BIT 0 = 1 
8 
3 BIT 5,4 = APPLICATION MODE FLAG ( 1: EXTENSION , 0: NATIVE ) 
3 
3 01 - NATIVE MODE 
3 10 - EXTENSION MODE 
3 11 - (RESERVED) 
3 
3 BIT 3,2 = PLANAR RAM SIZE 
3 BIT 1 RESERVED 
3 BIT 0 = 1 CIPL DISKETTE INSTALLED) 
; NO OTHER REGISTERS AFFECTED 
Fe mance ansaoeniama new ase Cee teen ees eee 
ASSUME CS:CODE,DS:DATA 
0000 EQUIPMENT PROC = FAR 
0000 FB STI 3 INTERRUPTS BACK ON 
0001 1€ PUSH ps + SAVE SEGMENT REGISTER 
0002 B8 ----R MoV AX, DATA 3 ESTABLISH ADDRESSING 
0005 8€ D8 MoV DS, AX 
0007 Al oo10 R MOV AX, EQUIP_LFLAG 5 MOVE EQUIPMENT FLAG 
COA 1F POP DS 3 RECOVER SEGMENT 
000B CF IRET 3 RETURN TO CALLER 
cooc EQUIPMENT ENDP 
i-t> INT 12 ----------------- wecece-s-e ee --- 
+ MEMORY_SIZE_DETERMINE 
3 INPUT 
3 NO REGISTERS 
; mer MEMORY_SIZE VARIABLE IS SET DURING POWER ON DIAGNOSTICS 
3 (AX) = NUMBER OF CONTIGUOUS 1K BLOCKS OF MEMORY 
[erenewacnecncwesansun a eaus een eres. 
ASSUME CS:CODE,DS:DATA 
oooc MEMORY_SIZE_DETERMINE | PROC FAR 
oooc FB STI + INTERRUPTS BACK ON 
0000 1€ PUSH DS 3 SAVE SEGMENT 
OOOE BS ---- R mov AX, DATA 3 ESTABLISH ADDRESSING 
0011 8E D8 MOV DS.AX 
0013 AL COIS R MoV AX, MEMORY_SIZE 3 GET VALUE 
0016 IF POP DS 3 RECOVER SEGMENT 
sein CF 3 RETURN TO CALLER 


IRET 
MEMORY _SIZE_DETERMINE ENDP 
s-> INT 13 
DISKETTE 170 
inputs INTERFACE PROVIDES ACCESS TO THE 5 174" DISKETTE DRIVES 


CAH)=0 RESET DISKETTE SYSTEM 
HARD RESET TO NEC, PREPARE COMMAND, RECAL REQD ON 
ALL DRIVES 
CAHD=1 READ THE STATUS OF THE SYSTEM INTO CAL) 
DISKETTE_STATUS FROM LAST OP'N IS USED 
REGISTERS FOR READ/WRITE/VERIFY/ FORMAT 
(DL) - DRIVE NUMBER (0-3 ALLOWED, VALUE CHECKED) 
CBIT 6 :1 80 TRACK DISKETTE ACCESS) 
¢ 70 40 TRACK ACCESS) 
~ HEAD NUMBER (0-1 ALLOWED, NOT VALUE CHECKED) 
~ TRACK NUMBER (0-79, NOT VALUE CHECKED) 
= sonnne NUMBER (1-9, NOT VALUE CHECKED. NOT USED FOR 
RMAT) 
CAL) - NUMBER OF SECTORS ( MAX = 8, NOT VALUE CHECKED, NOT 
USED FOR FORMAT, HOWEVER, CANNOT BE ZERO!!!) 
CES:BX) - ADDRESS OF BUFFER ( NOT REQUIRED FOR VERIFY) 


CAH)=2 READ THE DESIRED SECTORS INTO MEMORY 

CAH)=3 WRITE THE DESIRED SECTORS FROM MEMORY 

CAH)=4 VERIFY THE DESIRED SECTORS 

CAH)=5 FORMAT THE DESIRED TRACK 
FOR THE FORMAT OPERATION, THE BUFFER POINTER 
CES,BX) MUST POINT TO THE COLLECTION OF DESIRED 
ADDRESS FIELOS FOR THE TRACK. EACH FIELD IS 
COMPOSED OF 4 BYTES, (C,H,R.N). WHERE 
C = TRACK NUMBER, H=HEAD NUMBER, R = SECTOR NUMBER, 
N= NUMBER OF BYTES PER SECTOR (00=128, O1=256, 
02512, 03=1024,). THERE MUST BE ONE ENTRY FOR 
EVERY SECTOR ON THE TRACK. THIS INFORMATION IS USED 
TO FIND THE REQUESTED SECTOR DURING READ/WRITE 
ACCESS. 

TA VARIABLE -- DISK POINTER 
ae DOUBLE WORD POINTER TO THE CURRENT SET OF DISKETTE PARAMETERS 


PUT 
= AH 3 STATUS OF OPERATION 
STATUS BITS ARE DEFINED IN THE EQUATES FoR 
DISKETTE_STATUS VARIABLE IN THE DATA SEGMENT OF 
THIS MODULE 
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Appendix A. 


ee we we we we we we we Be Oe 


penne based 


cy 


0 SUCCESSFUL OPERATION (AH=0 ON RETURN) 


FAILED OPERATION CAH HAS ERROR REASON) 


cy 
FOR READ/WRITE/VERIFY 


PP TMUNBER OF SECTORS ACTUALLY READ 
AL = KUMB 
WOOL AL MAY NOT BE CORRECT IF TIME OUT ERROR OCCURS 


NOTE: IF AN ERROR IS REPORTED BY THE DISKETTE CODE, THE 
AP 


PROPRIATE ACTION IS TO RESET THE DISKETTE, THEN 
RETRY THE OPERATION. ON READ ACCESSES, KO MOTOR 
START DELAY IS TAKEN, SO THAT THREE RETRIES ARE 


REQUIRED ON READS TO ENSURE THAT THE PROBLEM IS NOT 
DUE TO MOTOR START-UP. 


SSUME CS:CODE,DS:DATA,ES:DATA 
PROC FAR 


3 INTERRUPTS BACK ON 

ES 3 SAVE ES 

Ax 3 ALLOCATE ONE WORD OF STORAGE FOR 
3 TIMER INITIAL VALUE 

Ax 3 ALLOCATE ONE WORD ON STACK FOR 
+ USE IN PROCS puna AND DISABLE. 
3 WILL HOLD 8259 

AX 3 SAVE COMMAND AND” te SSECTORS 

ax 3 SAVE ADDRESS 

DS + SAVE SEGMENT REGISTER VALUE 

SI + SAVE ALL REGISTERS DURING 
3 OPERATION 

DI 

BP 

Dx 

BP,SP 3 SET UP POINTER TO HEAD PARM 

DDS 3 SET DS=DAT 

J 3 CALL THE REST TO ENSURE DS 
3 RESTORED 

BL.4 3 GET THE MOTOR WAIT PARAMETER 

GET_PARM 


MOTOR COUNT,AH ; SET THE TIMER COUNT FOR THE MOTOR 
AH, DISKETTE “STATUS + GET 


STATUS OF OPERATION 
ee + RETURN STATUS IN AL 
+ RESTORE ALL REGISTERS 
BP 
oI 
SI 
DS 
cx 
' 3 RECOVER OFFSET 
SP,4 + DISCARD DUMMY SPACE FOR 8259 MASK 
ES 5 RECOVER SEGMENT 
AH,1 3 SET THE CARRY FLAG TO INDICATE 
3 SUCCESS OR FAILURE 
2 + THROW AWAY SAVED FLAGS 
ENDP 
NEAR 
DH,AL 


SAVE @ SECTORS IW DH 
3 INDICATE A READ OPERATION 
RESET FOR 80 TRACK PARM FLAG JX 


3 AH=0 
AH=1 


MOTOR_STATUS, O7FA 
DL,OFF_DBL_TRK  ; 


H, AH 
DISK RESET 


Disk STATUS 

DISKETTE _STATUS,0 ; RESET THE STATUS INDICATOR 

38 »DRV_RANGE 3 TEST FOR DRIVE IN 0-3 RANGE JX 
3 
3 


ERROR IF ABOVE 
AH=2 

DISK READ 

AH 


} TEST_DISK_VERF 


TEST_DISK_VERF 
3 AHE4 


3 AHE5 


J2 
DISK_WRITE 


- 


AH 
DISK_VERF 
AH 
DISK_FORMAT 
BAD_COMM, 
DISKETTE_STATUS, BAD CHD ; tRROR cove, NO SECTORS 
RED 


+ TRANSFERR 
$ UNDEFINED OPERATION 


et ae eon ae ce 


DISKETTES 10 
FB Str 
06 PUSH 
50 PUSH 
50 PUSH 
50 PUSH 
53 PUSH 
51 PUSH 
1E PUSH 
56 PUSH 
57 PUSH 
55 PUSH 
52 PUSH 
aB EC MOV 
E8 0000 E CALL 
E8 OOSF R CALL 
BS 04 MOV 
E8 O331 R CALL 
88 26 0040 ® MOV 
8A 26 0041 R MOV 
88 66 OF MOV 
SA POP 
3D POP 
SF PoP 
SE PoP 
1F PoP 
59 POP 
5B POP 
538 POP 
83 C4 04 ADD 
07 PoP 
80 FC 01 cMP 
FS CHC 
CA 0002 RET 
DISKETTE_IO 
PRO 
8A FO MOV 
80 26 OOSF R TF AND 
80 E2 SF AND 
OA ES OR 
74 27 Jz 
FE CC DEC 
76 74 JZ 
C6 06 0041 R 00 MOV 
80 FA 03 CMP 
77:13 JA 
Fe cc DEC 
74 60 JZ 
FE CC DEC 
75 03 INZ 
E9 OOFF R one 
FE CC uae 
74 62 bi 
FE CC DEC 
74 62 2 
C6 06 0041 R On ae nov 
cas RET 
Me ENDP 
DISK_RESE 
= OOF2 fay 
AO OOSF R CuI 
26 OF MoV 
ef a 
C6 06 OOSE R 00 
C6 06 0 MoV 
oC Bo nt R00 MOV 
EE OR 
FB OUT 
BE OBC R STI 
56 Mov 
PUSH 
B9 0010 
mov 
BS 08 
360: Moy 


DX NEC ie ADAPTER CONTROL PORT 
NO INTERRUPTS 


FIND OUT IF MOTOR IS RUNNING 
DRIVE BITS 


RESET THE ADAPTER 


AL, MOTOR_STATUS 
AL be » DRV_SUPPORT 


SEEK. STATUS,0 


SET RECAL REQUIRED ON ALL DRIVES 
DISKETTE STATUS,0 ; 
AL, FD VFDC_RESET jee ce status FOR DISKETTE 


TURN OFF THE RESET 


SLLOFESET J6_2 REENABLE THE INTERRUPTS 


DUMMY RETURN 

PUSH uae IF ERROR 
CX,10H TH NEC_OUTPUT 

NUMBER” OF SENSE INTERRUPTS TO 
AH, 08H sare 


wee we we we we we we we we we Se Be we we we we 


COMMAND FOR SEN TERRUPT 
STATUS RE te 
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ee ee ed ee ee ed ee se 
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Ao 


cs 


O3SO7 R 
OSAI R 
0042 R 


co 
12 


EF 
OE 0041 R 20 


18 


OoBC R 


133 
Fo 


03 


0307 R 
01 
0331 
oS 
O331 R 


“6 
26 


OE OOSF R 80 


4D 
1D 


07 
O331 R 
09 
O331 Rk 
OF 


0331 
0011 


O1SF R 


OE COSF R 86 
45 


06 0040 R FF 
OS6E R 

06 OOSF R 

1F 


26 OOSF R FO 
06 OOSF R 


80 
F2 


4 


0041 
88 46 OE 


CALL NEC_OUTPUT 
CALL RESULTS 
MOV AL, NEC_STATUS 


OUTPUT THE SENSE INTERRUPT 
STATUS 


GET STATUS FOLLOWING COMPLETION 
OF RESET 
a ERROR RETURN AND DO OWN 


3 
3 
; 
; 
3 
77 
3 
3 
3; 
B 


CMP AL,OCOH TEST FOR DRIVE READY TRANSITION 
JZ 7 EVERYTHING OK 
LOOP J4_0 RETRY THE COMMAND 

JG: ‘i DISKETTE_STATUS, AD_NEC ; SET ERROR CODE 


JMP SHORT J8 


342: MOV SI,OFFSET J4_2 REC_OUTPUT ae RETRY THE 


SENSE INTERRUPT 


3 
, 
PUSH SI 3 OFFSET OF BAD RETURN IN 
3 NEC_OUTPUT 
Loop J4_0 3 RETRY 
JMP SHORT J4.1 
3o----- SEND SPECIFY COMMAND TO NEC 
JT: POP SI 3 GET RID OF DUMMY ARGUMENT 
MOV AH, 03H 3 SPECIFY COMMAND 
CALL NEC_OUTPUT 3 OUTPUT THE COMMAND 
MOV BL.1 3 STEP RATE TIME AND HEAD UNLOAD 
CALL GET_PARM 3 OUTPUT TO THE NEC CONTROLLER 
MoV BLS 3 PARM1 HEAD LOAD AND NO DMA 
CALL GET_PARM 3 TO THE NEC CONTROLLER 
38: 3 RESET _RET 
3 RETURN TO CALLER 


RET 
DISK manag 
etched DISKETTE. STATUS ROUTINE 
DISK STATUS PROC NEAR 


MOV AL, DISKETTE_STATUS 
MOV BYTE PURCAPSIAISAL 5 FHT + aes OM STACK, IT WILL 
3 


RET 
DISK_STATUS 


ppd la LABEL NEAR 
Naeiieis DIS iia peee 
DISK READ NEAR 
DISK_READ_CONT 
MoV AH,O46H SET UP READ COMMAND FOR NEC 


CONTROLLER 
GO DO THE OPERATION 


we we we we 


JMP SHORT RW_OPN 
DISK_READ ENDP 


(Tate ted rere FORMAT 
DISK_FORMA PROC NEAR 
OR. oe ee + INDICATE A WRITE OPERATION 


MOV Ay, + ESTABLISH THE FORMAT COMMAND 
JMP SHORT RW_OPN + DO THE OPERATION 
J10: + CONTINUATION OF RW_OPN FOR FMT 
MoV BL.7 3 GET THE 
CALL GET_PARM 3 BYTES/SECTOR VALUE TO NEC 
MOV BL.9 3 GET THE 
CALL GET —PARM + SECTORS/TRACK VALUE TO NEC 
MOV BL,15 + GET THE 
CALL GET_PARM 3 GAP_LENGTH VALUE TO NEC 
MOV BX,17 + GET THE FILLER BYTE 
i BX 3 SAVE PARAMETER INDEX ON STACK 
cate + TO THE CONTROLLER 
DISK_FoRhut END! 
s~-~~-~ DISKETTE “RITE ROUTINE 
SAAREAITE PROC NEAR 
te MOTOR STATUS,80H 3 INDICATE A WRITE OPERATION 
AH, 045H + NEC COMMAND TO WRITE TO DISKETTE 
DISKION. INC 
DISK_WRITE 
jo>re= ALLOW WRITE ROUTINE. To FALL INTO |_RBLLOPN 
3 RW_OP 
; THIS ROUTINE PERFORMS THE READ/WRITE/VERIFY OPERATION 
RW_OPH PROC HEAR 
PUSH 3 SAVE THE COMMAND 
b-ece-- TURN ON THE MOTOR AND SELECT THE DRIVE 
PUSH cx + SAVE THE T/S PARMS 
CLI ; NO INTERRUPTS WHILE DETERMINING 


MOTOR STATUS 
MOV cere OTT 3 SET LARGE COUNT DURING OPERATION 
GET 


CALL THE DRIVE PARAMETER FROM THE 
STACK 
TEST § MOTOR_STATUS,AL 3 TEST MOTOR FOR OPERATING 
JNZ Jue IF RUNNING, SKIP THE WAIT 
AND MOTOR_STATUS,OFOH ; TURN OFF RUNNING DRIVE 
OR MOTOR_STATUS,AL + TURN ON THE CURRENT MOTOR 
STY 3 INTERRUPTS BACK ON 
1 AL, Foc RESET 3 NO RESET. TURN ON MOTOR 
NEC. AL 
pooees> WAIT FOR ROTOR BOTH READ AND WRITE 
Mov BL,20 3 GET MOTOR START TINE 
CALL GET_PARN 
OR AH, AH 3 TEST FOR NO WAIT 
312: 3 TEST_WALT_TIME 
Jz Jie 3 EXIT WITH TIME EXPIRED 
SUB Cx, CX 3 SET UP 178 SECOND LOOP TIME 
Jase LOOP) «JS } WAIT FOR THE REQUIRED TIME 
DEC AH 3} DECREMENT TIME VALUE 
JMP J12 3 ARE WE DONE YET 
Ji4a + MOTOR RUNNING 
STI 3 INTERRUPTS BACK ON FOR BYPASS 
+ WA 


A-95 


Bo 
&6 


£8 OG3A R 


E8 O64E R 


BA 
oc 
€€ 
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60 


03 


0299 R 
0299 R 


0307 R 
0 


Ossi R 
0000 


43 


FF 
41 


10 
Ao 


OOF2 
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POP cx 
“----- DO THE SEEK OPERATION 
: CALL SEEK 3 MOVE TO CORRECT TRACK 
POP aX 3 RECOVER COMMAND 
MOV BH, AH 3 SAVE COMMAND IN BH 
MOV DH, 0 ; Ser No SECTORS READ IN CASE OF 
3 
JNc J1@_t 3 TF NO ERROR CONTINUE, JUMP AROUND 
, 
une Ji7 3 CARRY SET JUMP TO MOTOR WAIT 
Ji¢_i: MOV SI,OFFSET J17 ; DUMMY RETURN ON STACK FOR 
4 + NEC_OUTPUT 
PUSH = SI + SO THAT IT WILL RETURN TO MOTOR 
3 OFF LOCATION 
joecen- SEND OUT THE PARAMETERS TO THE CONTROLLER 
CALL = NEC_OUTPUT 3 OUTPUT THE OPERATION COMMAND 
mov AH, TBP+1) 3 GET THE CURRENT HEAD NUMBER 
SAL AH, 1 3 MOVE IT TO BIT 2 
SAL AH, 2 
AND AH, 4 + ISOLATE THAT BIT 
OR AH, DL 3 OR IN THE DRIVE NUMBER 
CALL —_-HEC_OUTPUT 
greon-- TEST FOR FORMAT COMMAND 
cnP BH, 04DH 3 IS THIS A FORMAT OPERATION? 
JNE J15 3 NO. CONTINUE WITH R/W/V 
IMP J10 3 IF $0, HANDLE SPECIAL 
J1S: MOV AH, CH ; CYLINDER NUMBER 
CALL ——- NEC_OUTPUT 
MoV AH, TBP+1) 3 HEAD NUMBER FROM STACK 
CALL —- NEC_OUTPUT 
MOV AH, CL 3 SECTOR NUMBER 
CALL = NEC_OUTPUT 
MOV BL,7 + BYTES/SECTOR PARM FROM BLOCK 
CALL = GET_PARM 3 TO THE NEC 
MOV BLS + EOT PARM FROM BLOCK 
CALL ——« GET_PARM 3 RETURNED IN AH 
ADD cL, TaP+14) 3 ADD CURRENT SECTOR TO NUMBER IN 
3 TRANSFER 
DEC cl 3 CURRENT SECTOR * N_SECTORS - 1 
mov AH, CL 3 EOQT PARAMETER IS THE CALCULATED 
3; ONE 
CALL = NEC_OUTPUT 
MoV BL 11 ; GAP LENGTH PARM FROM BLOCK 
CALL GET_PARM ; TO THE NEC 
MOV BX, 13 3 DTL PARM FROM BLOCK 
PUSH = BX ; SAVE INDEX TO DISK PARAMETER ON 
3; STACK 
J16: CLD 3 FORWARD DIRECTION 
grceme START TIMER] WITH INITIAL VALUE OF FFFF 
MOV AL,01110000B  ; SELECT TIMERI,LSB-MSB, MODE 9, 
; BINARY COUNTER 
our TIM_CTL,AL 3 INITIALIZE THE COUNTER 
PUSH = AX 
POP AX 3 ALLOW ENOUGH TIME FOR THE 8253 TO 
3 INITIALIZE ITSELF 
MoV AL, OFFH 3 INITIAL COUNT VALUE FOR THE 8253 
OUT TIMER#1, AL 3 OUTPUT LEAST SIGNIFICANT BYTE 
PUSH = AX 
POP aX 3 
OUT TIMER#1, AL 3 OUTPUT MOST SIGNIFACNT BYTE 
sooo" INITIALIZE CX FOR JUMP AFTER LAST PARAMETER IS PASSED TO NEC 
MOV AL, (BP415) 3 RETRIEVE COMMAND PARAMETER 
TEST = AL, O1H 3 IS THIS AN ODD NUMBERED FUNCTION? 
JZ J16_1 3 JUMP IF HOT ODD NUMBERED 
MOV CX, OFFSET WRITE_LOOP 
JMP SHORT J16_3 
J16_1: CMP AL, 2 3 IS THIS A READ? 
JNZ J16_2 3 JUMP IF VERIFY 
MoV CX, OFFSET READ_LOOP 
JMP SHORT J16_3 
J16_2: MOV CX, OFFSET VERIFY_LOOP 
oo FINISH IMITIALIZATION 
J16_3: 
SMMMNOTEMMN 


sALL INTERRUPTS ARE ABOUT TO BE DISABLED. THERE IS A POTENTIAL 

3 THAT THIS TIME PERIOD WILL BE LONG ENOUGH TO MISS TIME OF 
3 DAY INTERRUPTS. FOR THIS REASON, TIMER] WILL BE USED TO 
3 KEEP TRACK OF THE HUMBER OF TIME OF DAY INTERRUPTS WHICH 
3 WILL BE MISSED. TH 
’ 

$ 


IS INFORMATION IS USED AFTER THE DISKETTE 
wou OPERATION TO UPDATE THE TIME OF DAY. vi 


MOV AL, 10H y DISABLE MMT neds 

QUT -MMI_PORT,AL =; HO KEYBOARD INTERRUPT 

CALL CLOEK_waIT i WAIT IF TIMERO IS ABOUT TO 
eam i INTERRUPT 


ENABLE WATCHDOG TIMER 


OOUNOT Ene OOO 0 A Tae ean wes Kone Kesenueceeeesssee-<= 


’ 
3 GIVEN THE CURRENT SYSTEM CONFIGURATIO BER 
i MA METHOD IS HEE 
; LE rut THE NEC OUT OF "FATAL ERROR" SITUATIONS. A TIMER 
5 PUN eRe ADAPTER CARD IS PROVIDED WHICH WILL PERFORM THIS 
3 AND SThokEers WATCHDOG TIMER ON THE ADAPTER CARD IS ENABLED 
: uate RECA REL ORE THE 8259 INTERRUPT 6 LINE 15 ENABLED. 
a TRIGGER AN AUS eR eee GLITCH ON THE LINE LARGE ENOUGH TO 
[~*eiomeme i eenanne et = 

CALL GET_DRive i GET SET Mash FOR DRIVE oa 

x i GET BIT MASK FOR DRIVE 
nov Re Rec CTL + CONTROL PORT TO NEC 
ha DX AL eee e*WD_ENABLE*WD_STROBE 


+ OUTPUT CONTROL INFO FOR 
3 WATCHDOG(WD) ENABLE 
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EE 


BA 
Bo 


6 


iz} 
89 


€8 
SB 
58 
06 
FF 


€3 


AF 


OOFS 
20 


Ao 


0000 € 
46 12 


0405 R 


O331 R 


El 


20 
FB 


80 
07 


20 
35 


20 
28 


20 


20 
21 
F7 


Fl 


20 
FB 
2080 
cs 
OA 
C1 
F? 


Fl 


OMGE R 


OoF2 


O43A R 


E 
SE 12 


cs 
Ly} 


AND AL, FDC_RESET+WD_ENABLE+DRV_SUPPORT 
OUT DX,AL 3 OUTPUT CONTROL INFO 10 STROBE 
} WATCHDOG 
MOV DX,NEC_STAT + PORT TO NEC STATUS 
MOV AL, 20H 3 SELECT TIMERI INPUT FROM TIMERC 
+ OUTPUT 
our NMI_PORT, AL 
joe---- READ TIMER NOW AND SAVE THE INITIAL VALUE 
CALL READ_TIME + GET TIMER] VALUE 
MOV (BP+i8),aX 3 SAVE INITIAL VALUE FOR CLOCK 
3 UPDATE IM TEMPORAY STORAGE 
CALL DISABLE 3 DISABLE ALL INTERRUPTS 
peoeee NEC BEGINS OPERATION WHEN NEC RECEIVES LAST PARAMETER 
BX 3 GET PARAMTER FROM STACK 
CALL GET_PARM + OUTPUT LAST PARAMETER TO THE HEC 
PoP AX ; CAN HO Now DISCARD THAT DUMMY RETURN 
PUSH ES 
POP DS 3 INITIALIZE DS FOR WRITE 
JMP cx 3 JUMP TO APPROPRIATE R/W/V LOOP 
yeasts tee wees ectecncdiewebeer tess ce ee eons Bn a 
SMMMNOTEM ON 
3 DATA IS TRANSFERRED USING POLLING ALGORITHMS. THESE LOOPS 
; TRANSFER A DATA BYTE AT A TIME WHILE POLLING THE NEC FOR: 
3 NEXT DATA BYTE AND COMPLETION STATUS. 
Hettatates VERIFY OPERATION 
VERIFY_LO 
In, AL, DX 3 READ STATUS 
TEST AL, BUSY_BIT 3 ue NEC ENTERED EXECUTION PHASE 
iain JZ VERIFY_LOOP 3 NO, CONTINUE SAMPLING 
TEST AL, Ren 3 IS DATA READY? 
INZ J22_4 3 JUMP IF DATA TRANSFER IS READY 
IN AL, DX 3 READ STATUS PORT 
TEST AL BUSY BIT 3 ARE WE DONE? 
JNZ 2.2 3 JUMP IF mORE TRANSFERS 
JMP 3HoRT OP_END 3 TRANSFER D 
J22_4: INC DX 3 POINT AT nec DATA REGISTER 
IN AL, DX 3 READ DATA 
DEC ox 3 POINT AT NEC STATUS REGISTER 
IN AL, DX 3 READ STATUS PORT 
TEST AL, BUSY_BIT 3 ARE WE DONE? 
ine J22_2 3 CONTINUE 
JMP SHORT OP_END 3 WE ARE DONE 
per t7) OPERATION 
READ_LOOP 
1m 3 READ STATUS REGISTER 
TEST ALI BUSY_BrT 3 HAS NEC STARTED THE EXECUTION 
3 PHASE? 
JZ READ_LOOP 3 HAS NOT STATRED YET 
J22_5: IN AL,D 3 READ STATUS PORT 
TEST AL, BUSY_BIT ; HAS MEG COMPLETED EXECUTION 
; A 
JZ OP_END + JUMP IF EXECUTION PHASE IS OVER 
TEST ALT ROM 3 IS DATA READY 
JZ J22_5 3 READ THE DATA. 
INC Dx 3 POINT at AL DATA 
IN AL, DX 3 READ DAT 
STOSB 3 TRANSFER. DATA 
DEC Dx 3 POINT AT NEC_STA 
JMP J22_5 3 CONTINUE WITH READ OPERATION 
bo----WRITE AND FORMAT OPERATION 
WRITE_LOOP: 
IN AL, DX 3 READ NEC STATUS PORT 
TEST AL, BUSY_BIT 3 HAS THE NEC ENTERED EXECUTION 
3 PHASE YET? 
JZ WRITE 3 NO, CONTINUE LOOPING 
MOV cx, BUSY BrTe2seoken 
J22_71 
IN AL, DX + READ STATUS PORT 
TEST AL. CH 3 is hs FEC STILL IN THE EXECUTION 
+ PHAS 
Jz OP_END 3 JUMP IF EXECUTION PHASE IS DONE. 
TEST ALCL 3 IS THE DATA PORT READY FOR THE 
3 TRANSFER? 
JZ J22_7 + JUMP TO WRITE DATA 
INC 0X + POINT AT DATA REGISTER 
LODSB 3 TRANSFER BYTE 
ouT DX,AL + WRITE THE BYTE ON THE DISKETTE 
DEC Dx 3 POINT AT THE STATUS REGISTER 
JMP J22_7 3 CONTINUE WITH WRITE OR FORMAT 
pooe---TRANSFER PROCESS IS OVER 


SAVE ie CARRY BIT SET IN 
DISK 
GET BIT MASK FOR DRIVE SELECTION 


OP_END: PUSHF 
CALL GET_ DRIVE 


we we we we we we 


OR AL, FOC_RESET NO RESET, KEEP ORIVE SPINNING 
mov DX,NEC_CTL 
out DX. AL DISABLE WATCHDOG 
poceos- UPDATE TIME OF DAY 
CALL DOS 3 POINT DS AT BIOS DATA SEGMENT 
CALL CLOCK_WAIT i WAIT IF TIMERO IS CLOSE TO 
+ WRAPPING 


CALL READ_TIME 


mov 8x, (BP+18) GET THE INITIAL VALUE OF TIMERL 


i 
SUB AX, BX 3 UPDATE NUMBER OF INTERRUPTS 
3 MISSED 
NEG Ax 3 PUT IT INA 
PUSH AX 3 SAVE IT FOR. REUSE IN ISSUING USER 


TIMER INTERRUPTS 
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0242 01 06 COEC RR ap TIMER_LOW,AX 3 ADD NUMBER OF TIMER INTERRUPTS TO 
4 
‘4 Jue J16_4 3 JUMP IF TIMER_LOW DID NOT SPILL 
meee 13S — 3 OVER 10 TIMERTHI 
48 FF 06 OO6ER INC TIMER_HIG! 
d28c 8S SE OOSE R18 J16_4: CHP TIMER_HIGH,O18H ; TEST FOR COUNT TOTALING 24 HOURS 
0251 75°19 JNZ J16_ 3 JUMP IF NOT 24 HOURS 
0253 81 SE 006C R 00B0 CHP TIMER_LOW,OBOH 3 LOW VALUE = 24 HOUR VALUE? 
0259 «70:11 Jt J16_5 + NOT 24 HOUR VALUE? 
greo--- TIMER HAS GONE 24 HOURS 
0258 C7 06 OO6E R C0CD MoV TIMER_HIGH,O —  ; ZERO OUT TIMER_HIGH VALUE 
0261 81 2E 006C R 00B0 SuB TIMER_LOW,OBOR ; VALUE REFLECTS CORRECT TICKS PAST 
’ 
0267 Cb 06 0070 R OL mov TIMER_OFL,1 3 INDICATES 24 HOUR THRESHOLD 
026C EB 0414 R J16_S: CALL ENABLE 3 ENABLE ALL INTERRUPTS 
026F 59 POP cx + CX:=AX, COUNT FOR NUMBER OF USER 
3 TIME INTERRUPTS 
0270 «ES 26 JCXZ 67 3 IF ZERO DO NOT ISSUE ANY 
. 3 INTERRUPTS 
0272 «1E PUSH DS 3 SAVE ALL REGISTERS SAVED PRIOR TO 
3 INT 1C CALL FROM TIMERINT 
0273 50 PUSH = AX 3 THIS PROVIDES A COMPATIBLE 
ae + INTERFACE TO 1¢ 
0276 «52 ; 
0275 J16_6: 
0275 «cD 1¢ INT 1c 3 TRANSFER CONTROL TO USER 
3 INTERRUPT 
0277 «E2 FC LOOP = s_«16_6 3 DO ALL USER TIMER INTERRUPTS 
0279 SA PoP Dx 
027A 58 POP aX 
0278 oF POP DS 3 RESTORE REGISTERS 
enm~=- CLOCK IS UPDATED AND USER INTERRUPTS 1C HAVE BEEN ISSUED. 
. 3 CHECK IF KEYSTROKE OCCURED 
o2z7c¢ «OA CO OR AL, AL 3 AL WAS SET DURING CALL TO ENABLE 
O27E 74:18 JZ J16_7 3 NO KEY WAS PRESSED WHILE SYSTEM 
3 WAS MASKED 
0280 BB 0080 MoV BX, 080H 3 DURATION OF TONE 
0283 BY 0068 MOV CX,048H 3 FREQUNCY OF TONE 
0286 «£8 0000 E CALL —KB_NOISE 3 NOTIFY USER OF MISSED KEYBORAD 
3 INPUT 
iwo--~"-CLEAR SHIFT STATES DONT LEAVE POSSIBILTY OF DANGLING STATES 
3 OF MISSED BREAKS 
0289 80 26 0017 R FO AND KB_FLAG,OFOH =; CLEAR ALT,CLRL,LEFT AND RIGHT 
3 SHIFTS 
O28E 80 26 0018 R OF AND KB_FLAG_1,0FH 3 CLEAR POTENTIAL BREAK OF INS,CAPS 
+ NUM AND SCROLL SHIFT 
0293 80 26 0088 R IF AND KB_FLAG_2,1FH 3 CLEAR FUNCTION STATES 
0298 «9D J16_7: POPF + GET THE FLAGS 
0299 J177 
0299 72 40 Je J20 
0298 E8 O3A9 R CALL —- RESULTS. 3 GET THE NEC STATUS 
029E 72 3B Jc 520 3 LOOK FOR ERROR 
gren--- CHECK THE RESULTS RETURNED BY THE CONTROLLER 
o2A0 FC CLD ; SET THE CORRECT DIRECTION 
O2A1 BE 0042 R mov SI,OFFSET NEC_STATUS ; POINT TO STATUS FIELD 
02A6 AC LODS = NEC_STATUS 3 GET STO 
02A5 24 CO AND AL, OCOH 3 TEST FOR NORMAL TERMINATION 
02k? 74 58 JZ J22 3 OPN_OK 
O2A9 3C 40 CMP AL,040H + TEST FOR ABNORMAL TERMINATION 
O2AB 75 25 JNZ J18 3 NOT ABNORMAL, BAD NEC 
red oe oe 1 ile emcee Cae OAD NEG 
SMMMNOTEM MK 
; THE CURRENT SYSTEM CONFIGURATION HAS NO DMA. IK ORDER TO 
3 STOP THE NEC AN EOT MUST BE PASSED TO FORCE THE NEC TO HALT 
3 THEREFORE, THE STATUS RETURNED BY THE NEC WILL ALWAYS SHOW 
3 AN EOT ERROR. IF THIS IS THE ONLY ERROR RETURNED AND THE 
3 HUMBER OF SECTORS TRANSFERRED EQUALS THE NUMBER SECTORS 
3 REQUESTED IN THIS INTERRUPT CALL THEN THE OPERATION HAS 
3 COMPLETED SUCCESSFULLY. IF AN EOT ERROR IS RETURNED AND THE 
3 REQUESTED NUMBER OF SECTORS I$ NOT THE NUMBER OF SECTORS 
; TRANSFERRED THEN THE ERROR IS LEGITIMATE. WHEN THE EOT 
; ERROR IS INVALID THE STATUS BYTES RETURNED ARE UPDATED TO 
a REFLECT THE STATUS OF THE OPERATION IF DMA HAD BEEN PRESENT 
82aD AC , LODS —-HEC_STATUS TCLs 
| ; STA 
es 4 CMP 80H 3 IS THIS THE ONLY ERROR? 
sane Gece JE J21_1 3 NORMAL TERMINATION, NO ERROR 
0284 «DO £0 eer Rat + NOT EOT ERROR, BYPASS ERROR BITS 
0286 «DO EO ‘ 
0288 BS 10 SAL. ALyt + TEST FOR CRC ERROR 
O2BA 72:18 Mov AH, BAD_CRC 
DBE Te oe 3AL al 1 ; Test ro 
0 4 , 3 
O23E Be 08 Mov AK; BAD_DHA OR DMA OVERRUN 
o2c2 Do £0 3 J19 + RWLFAIL 
02C4 DO £0 SAL oie 
02C6 4 06 ' + TEST F 
we nov AK; RECORD_NOT_FK} OR RECORD NOT FOUND 
O2CA DO £0 ve 419 3; RW_FAIL 
02zcc DO £0 ait Abed = 
aioe .- : mov AH BAD_ADDR oe, TEST MISSING ADDRESS MARK 
J See ent 
0202 Tia; NEC MUST HAVE FarLep  * RW-FAIL 
02 : ‘ 
0202 36 20 : nov Hate wie > RW-NEC-FAIL 
0204 08 26 Cosi R uss 3 RW-FAIL 
0208 EB OSEAR oe RUSCELTE. STATUS, AH 
_TRA : 
O2DB cs 320: N iq 


OW MANY WERE REALLY TRANSFERRED 
ey i RW_ERR 
Proo=e~ OPERATION WAS Successrur! RETURN TO CALLER 
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OSOE 


aA 
Es 
3A 
74 


5E 0E 
OSEAR 

Ds 

oc 

OE 0041 R 04 
06 00463 R 80 
co 

84 0062 R 

84 0062 R 

03 

OSEAR 

ES 


OOFS 
cy 


40 
F9 
CE 0041 R 80 


co 
da 


36 0 
ep COVE R 


20 
FB on 


J21_1: 
Mov BL, (BP+1463 3 Ser MunieE OF SECTORS PASSED 
3 
CALL NUM_TRANS + HOW MANY GOT MOVED, AL CONTAINS 
3 NUM OF SECTORS 
cmp BL,AL 3 NUMBER REQUESTED=NUMBER ACTUALLY 
3 TRANSFERRED? 
J21_ TRANSFER SUCCESSFUL 
serene - OPERATION Atfenprep TO ACCESS DATA PAST REAL EOT. THIS IS 
3 A REAL ERROR 
OR DISKETTE_STATUS ,RECORD_NOT_FND 
ay NEC_STATUS+#1,80H ; ST1 GETS CORRECT VALUE 
RET 
J21_2:  XOR AX, AX + CLEAR AX FOR NEC. STATUS UPDATE 
XOR SI,SI 3 INDEX TO NEC_STATUS ARR 
MoV NEC STATUSESIJ,AL i ZERO OUT BYTE, STO 
INC s OINT INDEX AT SECOND BYTE 
Mov NEC_STATUS[SIJ,AL : ZERO OUT BUYE, STI 
JMP SHORT J21_3 3 OPN_OK 
J22: CALL NUM_TRANS 
J21_3: XOR AH, AH + NO ERRORS 
RW_OPN ENDP 
; OR ee a we ee ee er eee eee eee eesesess 
3 NEC. OUTPUT 
3 THIS ROUTINE SENDS A BYTE TO THE NEC CONTROLLER 
3 AFTER TESTING FOR CORRECT DIRECTION AND CONTROLLER READY 
; THIS ROUTINE WILL TIME OUT IF THE BYTE IS NOT ACCEPTED 
3 WITHIN A REASONABLE AMOUNT OF TIME, SETTING THE DISKETTE 
; STATUS ON COMPLETION 
3 INPUT 
3 CAH BYTE TO BE ouTPUT 
3 OUTPUT 
3 cy = 0 suc 
3 cy =1 FartoRe ~- DISKETTE STATUS UPDATED 
3 IF A FAILURE HAS OCCURRED, THE RETURN IS MADE ONE 
3 LEVEL HIGHER THAN THE CALLER OF NEC_OUTPUT 
3 THIS REMOVES THE REQUIREMENT OF TESTING AFTER EVERY 
3 CALL OF NEC_OUTPUT 
3 CAL) DESTROYED 
NEC_OUTPUT PROC NEAR 
PUSH DX 3 SAVE REGISTERS 
PUSH cx 
MoV DX,NEC_STAT 3 STATUS PORT 
XOR CX, CX 3 COUNT FOR TIME OUT 
J23: IN AL, DX 3 GET STATUS 
TEST AL, DIO 3 TEST DIRECTION BIT 
JZ J25 3 DIRECTION OK 
Loop J23 
24: TIME_ERROR 
e. DISKETTE_STATUS, FIME_ our 
POP Bx 3 SET ERROR CODE AND RESTORE REGS 
POP Ax 3 DISCARD THE RETURN ADDRESS 
are 3 INDICATE ERROR TO CALLER 
J25: XOR Cx, CX 3 RESET THE COUNT 
J26: IN AL, DX 3 GET THE STATUS 
TEST AL, RQM 3 IS IT READY? 
INZ J27 3 YES, GO OUTPUT 
LOOP J26 3 COUNT DOWN AND TRY AGAIN 
Jmp J24 3 ah yconorts ON 
S27: 3 OUTP 
MoV ALLAH 3 GET BYTE TO OUTPUT 
INC 3 DATA PORT IS 1 GREATER THAN 
3 STATUS PORT 
out DX, AL 3 OUTPUT THE BYTE 
PoP cx 3 RECOVER REGISTERS 
POP Dx 
RET 3 CY = 0 FROM TEST INSTRUCTION 
NEC_OUTPUT ENDP 


Hy 
; 
i 
3 EN 
; 
‘ 
i 


NTRY -- 


GET_PARM 
3 THYS ROUTINE FETCHES THE INDEXED POINTER FROM 


THE DISK_BASE iy aa AT BY THE DATA 
VARTABLE DISK_POIN 

A BYTE FROM THAT TABLE IS THEN MOVED INTO AH, 
THE INDEX OF THAT BYTE BEING THE PARM IN BX 


= O BE FETCHED & 
” see Com BET OF BL IS ON, THE BYTE IS IMMEDIATELY 


OUTPUT TO THE NEC CONTROLLER 
AH = THAT BYTE FROM BLOCK 


EXIT -- 
BX = DESTROYED 


epee NEAR SAVE SEGHENT 
bs + SAVE REGISTER 
AX, AX > ZERO TO AX 
Aree + ZERO BH 
DS. AX. 
DS:A ‘ 

ER ; POINT TO BLOCK 
SI,DISK POINT ; DIVIDE BX BY 2, AND SET FLAG FOR 
BX,1 3 EXI 

| Sat ryt 

AH, (S1#BX) 3; IS THIS THE PARM WITH DMA 
BX, 1 + INDICATOR 
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AA 


SE ec 


04 
EB 


cB 
cl 


E3 OO00F 
F3 


DB 
O39 R 


68 
0307 Rk 
we R 


0062 R 
20 
6D 


c 
CE 0061 R 80 


co 


8 
OE 0041 R 40 
B FO 


J27_1 
one MT 5 3 TURN ON NO DMA BIT 
JMP SHORT J27_ 
J27_1: CMP BX,10 3 MOTOR STARTUP DELAY? 
a NE J27_2 
one AH, @ + GREATER THAN OR EQUAL TO 1/2 SEC? 
JGE J27_2 3 YES, OKAY 
MOV AH,® 3 NO, FORCE 172 SECOND DELAY 
J27_2: POPF 3 GET OUTPUT BIT 
“a POP SI 3 RESTORE REGISTER 
oP 3 RESTORE SEGMENT 


P bs 
ASSUME DS:DATA 
Jc 


NEC_OUTPUT 3 IF FLAG SET, OUTPUT TO CONTROLLER 
RET + RETURN TO CALLER 
GET_PARM ENDP 


Bert rr rrr rn nnn ee ee eee ee 
BOUND SETUP 


THIS ROUTINE SETS UP BUFFER ADDRESSING FOR READ/WRITE/VERIFY 
coe 


ES HAS ORIGINAL BUFFER SEGMENT VALUE 
ayer POINTS AT BASE OF SAVED PARMETERS ON STACK 
0 


; 

; 

; 

; 

3 

3 

H ES HAS SEGMENT WHICH WILL ALLOW 64K ACCESS. THE 
3 COMBINATION ES:DI AND DS:SI POINT TO THE BUFFER. THIS 
3 

3 

D 


CALCULATED ADDRESS WILL ALWAYS ACCESS 64K OF MEMORY. 
BX DESTOYED 
ISKIO2.INC 


Plt t t e we eww wen wne wow e ww wee one. meen ce 


BOUND_SETUP PROC NEAR 
PUSH cx SAVE REGISTERS 


Mov BX, (BP+12) 3 GET OFFSET OF BUFFER FROM STACK 

PUSH = BX + SAVE OFFSET TEMPORARILY 

mov CL.4 3 SHIFT COUNT 

SHR BX,CL 3 SHIFT OFFSET FOR NEW SEGMENT 
+ VALU 

MoV Cx, ES 3 PUT ES IN REGISTER SUITABLE FOR 
+ ADDING TO 

ADD CX, BX 3 GET NEW VALUE FOR ES 

MOV ES, CX 3 UPDATE THE ES REGISTER 

POP BX 3 RECOVER ORIGINAL OFFSET 

AND BX, 0000FH 3 NEW OFFSET 

MOV $1, BX 3 DS:SI POINT AT BUFFER 

MOV DI, BX + ES:DI POINT AT BUFFER 

POP cx 

RET 

BOUND_SETUP ENDP 
CHK_STAT_2 


THIS ROUTINE HANDLES THE INTERRUPT RECEIVED AFTER 
A RECALIBRATE, SEEK, OR RESET TO THE ADAPTER. 
THE INTERRUPT IS WAITED FOR, THE INTERRUPT STATUS SENSED, 
AND THE RESULT RETURNED TO THE CALLER. 
T 


INP 
OUTPUT 
cY = 0 success 
CY = 1 FAILURE -- ERROR IS IN DISKETTE_STATUS 
(AX) DESTROYED 
CHK_STAT_2 PROC = NEAR 
PUSH BX 5 SAVE REGISTERS 
PUSH SI 
XOR BX, BX 3 MUMBER OF SENSE INTERRUPTS 10 
; ISSUE 
Mov SI,OFFSET J33_3 ; SET UP DUMMY RETURN FROM 
; NEC_OUTPUT 
PUSH $1 3 PUT"ON STACK 
J33_2: MOV AH, 08H 3 SENSE INTERUPT STATUS 
CALL -NEC_OUTPUT 3 ISSUE SENSE INTERUPT STATUS 
CALL RESULTS 3 
Jc J35 i NEC TIME OUT, FLAGS SET IN 
Mov AtsNec_status | GereStirus 
; ; 
TEST AL, SEER END > IS SEEK OR RECAL OPERATION DONE? 
JNZ J35_1 } JUMP IF EXECUTION OF SEEK OR 
; RECAL DONE 
J33_3: DEC BX + DEC LOOP COUNTER 


INZ J33_2 + DO ANOTHER LOOP 
OR 
534: Ste DISKETTE_STATUS, TIME OUT 


s RETURN ERROR INDICATION FOR 


3 CALLER 
J35: PoP $I 3 RESTORE REGISTERS 


POP SI 

POP BX 

ae 
grocne END HAS OCCURED, CHECK FOR NORMAL TERMINATION 
J35_1; AND AL OCOH i MASK NORMAL TERMINATION BITS 
3 JUMP IF HORMAL TERM 

OR DISKETTE_STATUS, BAD_SEEK aia 
CHK_STAT 2 ENDP : 
FR Aiea eee 
: THIS ROUTINE WILL READ ANYTH ROLLER 
i HAS 10 say FOLLOWING AN INTERRUPT) HE NEC CONT 
— MED THAT THE NEC DATA PORT = NEC STATUS PORT ¢ 1+ 
; xo 
i ourPur ne 

CY = 0 successe 
; Cr = 1 SUCCESSFUL TRANSFER 


~ TIME OUT In WAITING FOR STATUS 
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3 NEC_STATUS AREA HAS STATUS BYTE LOADED INTO IT 
3 CAH) DESTROYED 
fepcbiecclesusceseeerneS Pane ae RE TES 
RESULTS proc NEAR 
MOV DI. OFFSET NEC_STATUS 3 POINTER TO DATA AREA 
PUSH 3 SAVE COUNTER 
PUSH Bx 
PUSH BX 
MoV BL.? 3 MAX STATUS BYTES 
goc---- WAIT FOR REQUEST FOR MASTER 
J38: 3 INPUT_LOOP 
XOR CX, 6x 3 COUNTER 
MOV DX,NEC_STAT 3 STATUS PORT 
J39: 3 WAIT FOR MASTER 
IN AL, DX 3 GET STATUS 
TEST AL, 080H 3 MASTER READY 
JHZ J40A 3 TEST_DIR 
LOOP J39 WAIT_MASTER 
oR DISKETTE_STATUS, TIME_OUT 
J40: + RESULTS_ERROR 
sTc 3 SET ERROR RETURN 
oce--- RESULT OPERATION IS DONE 
544: POP Bx 
POP Dx 
POP cx 
pocce-- TEST THE DIRECTION BIT 
JGOAs AL, DX 3 GET STATUS REG AGAIN 
TEST AL,040H 3 TEST DIRECTION BIT 
INZ J42 3 OK 19 READ STATUS 
S41: 3 MEC_FAIL 
OR DISKETTE_STATUS, BAD_NEC 
JMP J40 3 RESULTS. ERROR 
go----- READ IN THE STATUS 
342: 3 INPUT_STAT 
INC Dx 3 POINT AT DATA PORT 
IK AL, DX 3 GET THE DATA 
MOV CDIJ,AL 3 STORE THE BYTE 
INC DI 3 INCREMENT THE POINTER 
MOV CX, 10 3 LOOP TO KILL TIME FOR NEC 
J43: LOOP J43 
DEC ox 3 POINT | aT STATUS PORT 
IN AL, DX 3 GET $ 
TEST AL, O10H ; TEST. ro NEC STILL BUSY 
JZ J44 3 RESULTS DONE 
DEC BL 3 DECREMENT THE STATUS COUNTER 
INZ J38 3 GO BACK FOR MORE 
JMP J41 3 CHIP HAS FAILED 
3 NUM TRANS 
; THIS ROUTINE CALCULATES THE NUMBER OF SECTORS THAT 
3 — WERE ACTUALLY TRANSFERRED TO/FROM THE DISKETTE 
3 (CH) = CYLINDER OF OPERATION 
3 (CL) = START SECTOR OF OPERATION 
3 OUTPUT 
3 CAL) = NUMBER ACTUALLY TRANSFERRED 
3 NO OTHER REGISTERS MODIFIED 
aan hc Ne he ah a 
NUM_TRANS PROC NEAR 
MOV AL,NEC_STATUS#3 ; GET CYLINDER ENDED UP ON 
cMP AL, CBP#11) 3 SAME AS WE STARTED 
MOV AL,NEC_STATUS#S ; GET ENDING SECTOR 
J2 45 3 IF ON SAME CYL, THEN NO ADJUST 
MoV BL,8 
CALL GET_PARM 3 GET EOT VALUE 
MOV AL, AH + INTO AL 
J45: INC al 3 USE EQT#1 FOR CALCULATION 
SUB AL, CBPJ¢10 3 SUBTRACT START FROM END 
MoV (BP+14],aL 
RET 
NUM_TRANS ENDP 
RESULTS ENDP_ 
Abt a at am stasembanacnGuiedesceWancwnmuocuues 
DISABLE 
; THIS ROUTINE WILL DISABLE ALL INTERRUPTS EXCEPT FOR 
; INTERRUPT 6 SO WATCH DOG TIME OUT CAN OCCUR IN ERROR 
3 CONDITIONS. 
5 INPUT 
3 
3 OUTPUT 
, ONE 
3 ALL REGISTERS REMAIN INTACT 
I ccdgande nae room rmmeenns meena cshesekescucs 
DISABLE Feoe NEAR 
ewstes ALL INTERRUPTS AT THE 8259 LEVEL seeeern DISKETTE 
? DISABLE AT INTAG READ CURRENT 
MOV therie dea ; SAVE HASK ON Thee SPACE ALLOCATED 
3 ON THE STACK 
MOV AL, OBFH 3 ry ee ALL INTERRUPTS EXCEPT 
. 
our INTAOL,AL } OUTPUT MASK TO THE 825 
CALL BOUND_SETUP 3 SETUP REGISTERS TO ACESS SUFFER 
OM 
R 
DISABLE a) Ae Oe ORE eR OER 


1 ENABLE proc ENABLES ALL INTERRUPTS. IT ALSO SETS THE 8253 TO 
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0414 
0414 


0415 
0417 
041g 
O41A 


O41B 
0410 
O4lF 
0420 
0421 


6425 


0426 
0428 
O42A 


0428 
042D 
062F 


0431 


0434 
0436 
04637 
0438 
6439 
O43A 


59 
cs 


76 
43 


FF 
41 
41 
46 10 
62 
01 
ao 
ao 
46 10 
21 


4E 00 
El SF 
01 
Eo 


OF 


THE MODE REQUIRED FOR KEYBOARD DATA DESERIALIZATION. 
BEFORE THE LATCH FOR KEYBOARD DATA IS RESET, BIT 0 OF THE 


8255 IS READ TO DETERMINE WHETHER ANY KEYSTROKES OCCURED 
WHILE THE SYSTEM WAS MASKED OFF. 
3 INPUT 


3 

3 

, 

3 

; OUTPUT 
3 AL=1 MEANS A KEY WAS STRUCK DURING DISKETTE I70. (OR NOISE 
; MEANS THAT NO KEY WAS PRESSED 

3 AL=0 ME ° 

3 AX IS DESTROYED. ALL OTHER REGISTERS REMAIN INTACT. 


ENABLE PROC NEAR 
PUSH X 3 SAVE DX 
gww~o-= RETURN TIMER] TO STATE NEEDED FOR KEYBOARD 1/0 
MOV AL,O1110110B 3 
Stee eet 
Ss 
PoP AX + WAIT FOR 8253 TO INITIALIZE 
3 ITSELF 
MOV AL, OFFH 3 INITIAL VALUE FOR 8253 
QUT TIMER+1,AL > LSB 
PUSH AX 
OUT TIMER 1,AL ; nss 
+1, 3; MS 
gwownwn= CHECK IF ANY KEYSTROKES OCCURED DURING DISKETTE TRANSFER 
MoV ES,(CBP+16) + GET ORIGINAL ES VALUE FROM THE 
3 STACK 
IN AL,62H 3 READ PORT C OF 8255 
AND AL,O1H 3 BIT=1 MEANS KESTROKE HAS OCCURED 
PUSH AX 3 SAVE IT ON THE STACK 
gowmn-~ ENABLE NMI INTERRUPTS 
IN AL,NMI_PORT + RESET LATCH 
Mov AL,80H 3 MASK TO ENABLE NMI 
OUT NMI_PORT,AL + ENABLE NMI 
3S-<ss ENABLE ALL INTERRUPTS WHICH WERE ENABLED BEFORE TRANSFER 
MOV AX, (BP+16) 3 GET MASK FROM THE STACK 
ouT INTAO1,AL 
POP Ax 3 PASS BACK KEY STROKE FLAG 
me 


RET 
ENABLE ENDP 


3CLOCK_WAIT ~ 
3 


THIS PROCEDURE IS CALLED WHEN THE TIME OF DAY 
IS BEING UPDATED. IT WAITS IF TIMERO IS ALMOST 
Pincer WRAP UNTIL IT IS SAFE TO READ AN ACCURATE 


we we ee 


sINPUT 


i NONE. 
sOUTPUT 
3 


PROC NEAR 
R AL,AL 3 READ MODE TIMERO FOR 8255 
ouT TIM_CTL,AL ¢ OUTPUT TO THE 8253 
PUSH Ax 
PoP AX 


3 WAIT FOR 8253 TO INITIALIZE 
3 ITSELF 
IN AL, TIMERO 3 READ LEAST SIGNIFICANT BYTE 
XCHG AL, AH 3 SAVE IT 
1H AL, TIMERO + READ MOST SIGNIFICANT BYTE 
XCHG AL, AH 3 REARRANGE FOR PROPER ORDER | 
CMP AX, THRESHOLD + IS TIMERO CLOSE TO WRAPPING? woLts 
ee CLOCK_WAIT 3 JUMP IF CLOCK as SUTN THRES 
T 


ASELOeivg Re reeeesecrencemnamnamtn rege 
; THIS ROUTINE WIL FOR THE DRIV 
1S SELECTED By Th CALCULATE A BIT MASK FO 


, 

HH 

; IN THE MASK, I.€. DRIVE ZERO 

; CORRESPONDS To B THE BIT IS 
i CALCULATCD By eer ZERO AND A OLH TS RETURNED 


ACCESSING THE PARAMETERS PASSED TO INT 13 
3IMPUT WHICH WERE Savep ON THE STACK. 


= BYTE PTREBP) MUST POINT To DRIVE FOR SELECTION. 
: Egat AL CONTAINS 


SE CONTAINS THE BI ALL OTHER REGISTERS ARE INTACT _ 
ENDO RS i 
SH eX 
3 SAVE REGISTER. 
ano gUUBYTE,PTRCBeD ToHORE y° nine PARAMETER 
~DBL_ s IGNORE J SUPPOR 

mah + INITIALIZE AL WITH VALUE FOR 

SHL 3 SHIFTING 

; ALCL i SHIFT BIT POSITION ay Oey 

4 1 NUMBER WH RA : 

D AL. DRV_suPPor + ORLY FOUR DRIVES ARE SUPPORTED. 

POP cy + RANGE CHECK 

RET 
GET_orive a 5 RESTORE REGISTERS 
e Shey OS ities 
; THIS Rout 
i TNE wit 

TO THE 4 L MOVE THE vE 
3 AMED TRA EAD OH THE NAMED ORI 

SINCE THe CK. IF THE p CESSED 
3 DRI RIVE HAS HOT BEEN AC BE 
b aNPur RECALIBRATED, © RESET COMMAND WAS ISSUED, THE DRIVE WILL 


(DL) = DRIVE 19 SEEK on 
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OO74 R 
0 
c 
El OOFF 
Fl 
co 


O4FO R 

os QOSE R 
06 OOSE R 
3c 00 

30 

07 

0307 R® 

E2 

O307 R 


O378 R 

19 

06 0041 R 00 
05 

OSFO R 

07 

O307 R 


€2 


0307 ® 
O378 R 
48 


12 
O4F9 R 


46 00 40 
02 

re 

0307 R 

O378 Rk 


04 FF 


Fy 


; (CH) = TRACK TO SEEK TO 
3 (BP) = BIT 6 :1 80 TRACK MEDIA 
3 BIT 6 :0 40 TRACK 
+ OUTPUT 
3 CY = 0 SUCCESS 
3 CY = 1 FAILURE ~- DISKETTE_STATUS SET ACCORDINGLY 
; (AX) DESTROYED 
Peshoncecnascvoteed eet ecegausen es ceeeaeeese idveienten 
SEEK PROC NEAR 
PUSH SI 3 SAVE REGISTER 
PUSH ax 3 SAVE REGISTER 
MoV st, OFFSET TRACKO ; BASE OF CURRENT HEAD POSITIONS 
MOV tl 3 ESTABLISH MASK FOR RECAL 
MOV tt! DL 3 USE DRIVE AS A SiTFT COUNT 
AND CX, OFFH 3 MASK OFF HIGH BYT 
ADD $I, x 3 POINT SI AT CORRECT DRIVE 
ROL AL, 3 GET MASK FOR DRIVE 
gomen-- SI CONTAINS OFFSET FoR CORRECT DRIVE, AL CONTAINS BIT MASK 
3 IN POSITION 0,1 OR 
PoP cx 3 RESTORE PARAMETER REGISTER 
MOV BX,QFFSET PJ32 3 SET UP ERROR RECOVERY ADDRESS 
PUSH BX 3 NEEDED FOR ROUTINE NEC_OUTPUT 
TEST SEEK_STATUS,AL 3 TEST DRIVE FOR RECAL 
JNZ PJ28 3 NO_RECAL 
OR SEEK_STATUS,AL ; TURN ON THE NO RECAL BIT IN FLAG 
CMP BYTE PTR(SIJ,0 5 LAST REFERENCED TRACK=0? 
Jz PJ28 + YES IGNORE RECAL 
MOV AH, 07H 3 RECALIBRATE COMMAHD 
CALL NEC_OUTPUT 
MOV AH, bt 3 RECAL REQUIRED ON DRIVE IN DL 
CALL NEC_O 3 OUTPUT THE DRIVE HUMBER 
goo---- HEAD IS MOVING. TO CORRECT TRACK 
3 HOOK FOR 40 TRACK TO 80 TRACK SUPPORT 
CALL CHK_STAT_2 3 CHECK STATUS 
SNC ROYT 3 LEAVE ONE MORE CHANCE FOR RETRY 
MOV DISKETTE_STATUS,0 ;CLEAR STATUS 
MOV AH,5 sSET PARM AS 5 MILL 
CALL DELAY_K_MS sWAIT SUB 
MOV AH, 07H sRECABRATE COMMAND 
CALL NEC_OUTPUT 30U T 
MOV AH, DL sRECAB DRIVE IW DL 
CALL NEC_OUTPUT 30UT 
CALL CHK_STAT_2 sCHECK STATUS 
_— Jc PJ32_2 sIF ERROR, JUMP TO SET CARRRY 
3 
MOV AH, 18 sRETRY OK WAIT UNTILL SETTLE 
CALL DELAY_N_MS 31X 
3 DRIVE IS SYNC WITH CONTROLLER, SEEK TO TRACK 
3 SEEK READY ; 
MOV BYTE PTR(SI),0 
b~---- DRIVE IS IN SYNCH WITH CONTROLLER, SEEK TO TRACK 
PJ28: Mov AL.BYTE PTRISI} 3 GET THE P 
SUB AL.CR 3 GET SEEK Mair VALUE 
JZ PJ31_1 3 ALREADY ON CORRECT TRACK 
MoV AH, OFH 3 SEEK COMMAND TO HEC 
CALL NEC_OUTPUT 
HOV AK, DL + DRIVE NUMBER 
CALL NEC_OUTPUT 
PUSH c SAVE FOR DOS 
TEST BYTE PTR (BP), esi 3 IF DOUBLE TRACK PARAMETER 
JRE GO_SEEK LEAVE PARAMETER AS IS 
PCJR: = SHL 2 ; MULTIPLY BY TWO WHEN 40 TRACK MEDIA 
GO_SEEK: MOV AH,CH 3 TRACK NUMBER 
CALL NEC_OUTPUT 
POP cx 3 RESTORE FOR DOS 
CALL CHK_STAT_2 3 GET ENDING INTERRUPT AND SENSE 
> STATU 
goove> WAIT FOR HEAD SETTLE 
PUS + SAVE STATUS FLAGS 
PUSH cx 3 SAVE REGISTER 
MoV BL.18 3 HEAD SETTLE PARAMETER 
CALL GET_PARM 
PJ29: 3 NEAD_SETTLE 
MoV CX,550 + 1 MS Coop 
OR AW, AH 3 TEST FOR TIME EXPIRED 
J2 PJ31 
PJS0: LOOP PJ30 3 DELAY FOR 1 MS 
DEC AK 3 DECREMENT THE COUNT 
JMP PJ29 3 DO IT SOME MORE 
PJ31: POP cx 3 RESTORE REGISTER 
POPF 
Jc PJ32_2 
MoV BYTE PTR{SI),CH 
PJS1_1: POP Bx 3 GET RID OF DUMMY RETURN 
PJ32: 3 SEEK_ERROR 
PoP BX 3 RESTORE REGISTER 
POP $I 3 UPDATE CORRECT 
RET RETURN TO CALLER 
PJ32_2: MOV BYTE PTRESI), Rae tte STATUS ABOUT SEEK 
PoP ax 3 GET RID OF DUMMY RETURN 
JMP SHORT PJ32 
SEEK ENDP 


; INPUT 
DELAY_N_MS PROC N 
USH 


DEOO: MoV 
OR 


JZ 
DE20: LOOP 


AH: N MILL SEC WAIT 
EAR 


cx 3 SOFTWARE TIMER 
CX,550 3 JX 
AH, AK 3 JX 
DEO 3 JX 
DE20 s JX 
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FE 
EB 


C3 


cc 
FS 


GOOU E 
Ec 

46 OA 

48 

46 08 


OCLEZ R 


40 
0228 R 
3B 


46 08 0227 x 
SE OC 0001 


OE 0041 R oy 
3 

CE 0041 R ag 
06 003E R 09 
00F2 

066E R 


20 
20 


DEC AH s JX 
JMP DEOO 3 JX 
DE40: POP cx 3 JX 


RET 
DELAY_N_MS ENDP 


} DISK_BASE 
+ THIS IS THE SET OF PARAMETERS REQUIRED FOR 

+ DISKETTE OPERATION. THEY ARE POINTED AT BY THE 
3 

3 


DATA VARIABLE DISK_POINTER. TO MODIFY THE PARAMETERS, 
BUILD ANOTHER PARAMETER BLOCK AND POINT AT IT 


DISK_BASE. «LABEL. BYTE. 
Ds 112011118 } SRI=E, HD UNLOAD=OF - 1ST SPECIFY 
3 BYTE 
DB 3 } HD LOAD=1, MODE=NO DMA - 2ND 
3 SPECIFY BYT 
DB MOTOR_WAIT 3 WAIT AFTER OPN TIL MOTOR OFF 
DB 2 3 512 BYTES/ 
DB 9 3 EOT ( LAST SECTOR ON TRACK) 
DB O2AH 3 GAP LENGTH 
DB OFFH 3 DTL 
DB (Oren SILL BYTE FoR Foneay” 
DB OF6H 3 FILL BY 
DB 15 3 HEAD SETTLE TIME (MILLISECONDS) 
DB 3 MOTOR START TIME (1/8 SECONDS) 
; DISKINT. Re ge 
3 DISK_ 
; THIS ROUTINE HANDLES THE DISKETTE INTERRUPT. AN INTERRUPT 
3 WILL OCCUR ONLY WHEN THE ONE-SHOT TIMER IS FIRED. THIS N 
; OCCURS IN AN ERROR SITUATION, THIS ROUTINE SETS ERRORS I 
3 THE DISKETTE STATUS BYTE AND DISABLES THE ONE-SHOT ual 
i THEN THE RETURN ADDRESS ON THE STACK IS CHANGED TO RETUR 
Fi TO THE OP_END LABEL. 
+ INPUT 
+ urpurtONe: 
; u 
; NONE. DS POINTS AT BIOS DATA AREA. CARRY FLAG IS SET SO 
3 THAT ERROR WILL BE CAUGHT IN THE ENVIRONMEMT RETURNED TO. 
DISK_INT PROC FAR 
PUSH bs, 
PUSH AX 
PUSH OBE } SAVE THe bP eeorsveR 
U P 38 
CALL DDS 3 SETUP DS TO POINT AT BIOS DATA 
sovvo-~ CHECK IF INTERRUPT OCCURED IN INTIS OR WHETHER IT IS A 
; SPURIOUS INTERRUPT 
MOV BP,SP + POINT BP AT STACK 
PUSH cs 3 WAS IT IN THE BIOS AREA 
POP AX 
CHP = AX, WORD PTREBP+103 ; GET INTERRUPTED SEGMENT 
JHE DES 3 NOT IN BIOS, ERROR CONDITION 
MOV AX, WORD PTR(BP+8) ; GET IP ON THE STACK ISK 
CMP = AX, OFFSET VERIFY_LOOP ; RANGE CHECK IP FOR D 
| TRANSFER 
Jt DI3 + BELOW TRANSFER CODE 
CHP 


AX, OFFSET OP_END+1 ; UPPER RANGE OF TRANSFER CODE 


JG DIS + ABOVE RANGE OF WATCHDOG TERRAt 
bmwm="--VALID DISKETTE INTERRUPT CHANGE RETURN ADDRESS ON STACK 
3 PULL OUT OF Loop 


MOV WORD PTR(BP+8), OFFSET OP_END 
OR WORD PTR(BP+12},1 ; TURN-ON CARRY FLAG IN FLAGS ON 

ea, ATOR 

7 MMXNOT EN 

i A WRITE PROTECTED DISKETTE WILL ALWAYS GET STUCK IH WRITE LOOP 

+ WAITING FOR BEGINNING OF EXECUTION PHASE. WHEN THE WATCHDOG =_ 

; STATUS IN PORT HEC_STAT = DXH (X MEANS DON'T CA 

+ STATUS FROM THE RESULT PHASE TS AVAILABLE. THE STATUS 1S READ 

s AND WRITE PROTECT 15 CHECKED FoR 


i AND WRITE PROTECT FOR. woneenn---o- 
mov DX,KEC_STAT 
Ik AL, DX § GET NEC STATUS BYTE 
ae AL, OFOH 3 MASK HIGH NIBBLE 
Gre «AL ODOH b IS EXECUTION PHASE DONE 
if DI1 } STUCK IM LOOP 
L RESULTS § GET STATUS OF OPERATION 
Mov SI,OFFSET HEC_status ; ADDRESS OF BYTES RETURNED BY 
3s NEC 
MOV AL, ESt41) + GET ST 
1 
Test AL 02H > WRITE PROTECT SIGNAL ACTIVE? 
i B 1 } TIME OUT ERROR 
a SHORE. DEgSTATUS WRITE PROTECT 
pris VME our ERROR 
SKETTE STATUS, TIME 
sh , our 
en he THEEES STATUS, Os SET RECAL ON DRIVES 


D2: oy E NEC AND 


DISABLE WATCHDOG 
PoP DX» MEC_CTL ; 


ADDRESS TO NEC CONTROL PORT 
; POINT BP AT BASE OF STACKED 
3 PARAMETERS 

+ RESET ADAPTER AND DISABLE WD 
) RESTORE FOR RETURNED CALL 


1G 
pop ENTAOO, at IVE EOI 10 8259 


PUSH GET_ORIVE 
DIS: nov DX, AL 


POPS 
RET 5 RETURN FROM INTERRUPT 
DISK_INT ENDP 
oe Oe a ee a 
3RS232_10 
; THIS ROUTINE PROVIDES BYTE STREAM 170 TO THE COMMUNICATIONS 
; PORT ACCORDING TO THE PARAMETERS: 
; (AH)=0 INITIALIZE THE COMMUNICATIONS PORT 
; (AL) HAS PARMS FOR INITIALIZATION 
jeceJo------ 6------- 5------- §------- 3------- 2--------- 1-------0--~- 
jonneenee BAUD RATE 2=-13~--2PARITY=~=217°STOPBIT=11°MORD LENGTHo= 
000 - 110 X0 - NONE 0-1 10-7 BITS 
001 - 150 01 - ODD 1-2 11-8 BITS 
010 - 300 11 - EVEN 
O11 - 600 
100 - 1200 
101 - 2400 
110 - 4800 
111 - 6800 


ON RETURN, THE RS232 INTERRUPTS ARE DISABLED AND 
CONDITIONS ARE SET AS IN CALL TO COMMO 
STATUS CAH=3) 
CAH)=1 SEND THE CHARACTER IN CAL) OVER THE COMMO LINE 
aal} REGISTER IS PRESERVED 
EXIT, BIT 7 OF AH IS SET IF THE ROUTINE WAS 
UNABLE TO TRANSMIT THE BYTE OF DATA OVER 
THE LINE. IF BIT 7 OF AH IS NOT SET, THE 
REMAINDER OF AH IS SET AS IN A STATUS 
tne cine: REFELECTING THE CURRENT STATUS OF 


THE 

CAH)=2 RECEIVE A CHARACTER IN (AL) FROM COMMC LINE BEFORE 
RETURNING TO CALLER 

ON EXIT, AH HAS THE CURRENT LINE STATUS, AS SET BY 

THE STATUS ROUTINE, EXCEPT THAT THE ONLY 
BITS LEFT ON, ARE THE ERROR BITS 
(7,4,3,2,1)._IM THIS CASE, THE TIME OUT BIT 
INDICATES DATA SET READY WAS NOT RECEIVED. 
THUS, AH IS NON ZERO ONLY WHEN AN ERROR 
OCCURRED.(NOTE: IF THE TIME-OUT BIT IS SET, 
OTHER BITS IN AH MAY NOT BE RELIABLE.) 

CAH)=3 RETURN THE COMMO PORT STATUS IN (AX) 

on Can tats wie LINE CONTROL STATS 


ee ee ee ee ee ee es 


IT 7 = TIME 0 
BIT 6 = TRANS. SHIFT REGISTER EMPTY 
BIT 5 = TRAN HOLDING REGISTER EMPTY 
BIT 4 = BREAK DETECT 
BIT 3 = FRAMING ERROR 
BIT 2 = PARITY ERROR 
BIT 1 = OVERRUN ERROR 
BIT 0 = DATA READY 
AL_CONTAINS THE MODEM S$ 

T 7 = RECIEVED LINE SIGNAL DETECT 
BIT 6 = RING INDICATOR 
BIT 5 = DATA SET READY 
BIT 4 = CLEAR TO SEND 
BIT 3 = DELTA RECEIVE LINE SIGNAL DETECT 
BIT 2 = TRAILING EDGE RING DETECTOR 
BIT 1 = DELTA DATA SET READY 
BIT 0 = DELTA CLEAR TO SEND 


T D 
(DX) = PARAMETER INDICATING WHICH RS232 CARD (0,1 ALLOWED) 
DATA AREA RS232 BASE CONTAINS THE BASE ADDRESS OF THE 8250 ON THE 
CARD. LOCATION 400H CONTAINS UP TO 4 RS232 ADDRESSES POSSIBLE 
DATA AREA RS232_TIM_OUT (BYTE) CONTAINS OUTER LOOP COUKT 
VALUE FOR TIMEOUT (DEFAULT=1) 


ee ee ee 


sOUTPUT 
MODIFIED ACCORDING TO PARMS OF CALL 
At OTHERS UNCHANGED 
Br rw ee ee ew eee eee wne ewooeosoeoeece 
ASSUME CS: CODE, OS:DATA 
al LABEL WORD 
OW 1017 3 110 BAUD 3 TABLE OF INIT VALUE 
OW 746 3 150 
OW 373 3 300 
OW 186 3 600 
OW 93 3 1200 
OW 47 + 2400 
DW 23 3 4800 
OW 23 H “i 
RS232_10 PROC FAR 
e---== VECTOR TO APPROPRIATE ROUTINE 
STI 3 INTERRUPTS BACK ON 
PUSH os 3 SAVE SEGMENT 
PUSH Dx 
PUSH SI 
PUSH br 
PUSH cx 
PUSH Bx 
MoV $1,DX 3 RS232 VALUE TO S$ 
MoV DI,DX + AND TO DI (FOR Timeouts) 
SHL SI.1 3 WORD OFFSET 
CALL oos 3 POINT TO BIOS DATA SEGMENT 
MOV DX,RS232_BASECSI) 5 GET BASE ADDRESS 
OR DX, DX + TEST FOR 0 BASE ADDRESS 
JZ As 3 RETURN 
OR AH, AH + TEST FOR CAH)=Q 
JZ a4 3 COMMUN INIT 
DEC AH i TEST FOR CAH)=1 
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0698 


AS: 


A4: 
D2 c2 

81 E2 OO0E 

BF 0575 R 

O3 FA 


F 
8B 94 6000 8 
62 
2E: 8A 45 01 
133 


GA 
2E: 8A 05 
cE 


powee-e 


AS: 


42 

42 

B? 36 

E8 O64E R 
74 08 

39 

8A Cl 

80 CC 80 
EB AC 


4A 
B? 20 


E8 O64E R 
75 FO 

83 EA 05 
59 

3a C1 


EE 
EB 9B 


83 C2 04 
Bo e1 


AT: 
AB: 
AY: 


Al6: 
6071 R 80 


Al?: 
8A £0 
8B 94 C009 
EC 
E9 OSBo R 


8B 94 0000 R 
83 C2 05 
Ec 


E9 oSBo R 


Jz As ; 

DEC AH ; 

JZ Al2 ; 

DEC AH ; 

JNZ a3 

JMP Als 3 
3 

POP BX 

PoP cx 

POP DI 

PoP sI 

POP Dx 

POP DS 

IRET ; 

joan INITIALIZE THE CO 

MoV AH, AL 3 

ADD DX, 3 ; 

aay AL,80H 


SEND AL 

TEST FOR (AH)=2 
RECEIVE INTO AL 
TEST FOR CAH)=3 


COMMUNICATION STATUS 
RETURN FROM RS232 


RETURN TO CALLER, NO ACTION 
PORT 


MMUNICATIONS 


SAVE INIT PARMS IN AH 
POINT TO 8250 CONTROL REGISTER 


OUT DX,AL 3 SET DLAB=1 
DETERMINE BAUD RATE DIVISOR 
MOV DL.AH ; 


GET PARMS TO DL 


ISOLATE THEM 

Pa tio AR ascisren 

UT I 

+ POINT TO HIGH ORDER OF DIVISOR 


GET HIGH ORDER OF DIVISOR 
SET MS OF DIV TO 0 


GET LOW ORDER OF DIVISOR 
SET LOW OF DIVISOR 


GET PARMS BACK 
STRIP OFF THE BAUD BITS 
LINE CONTROL TO 8 BITS 


INTERRUPT ENABLES ALL OFF 
‘OM_STATUS 
R COMMO LINE 


SAVE CHAR TO SEND 


MODEM CONTROL REGISTER 
DTR AND RTS 


DATA TERMINAL READY, REQUEST TO 
SEND 
MODEM STATUS REGISTER 


DATA SET READY & CLEAR TO SEND 
ARE BOTH TRUE? 


YES, READY TO TRANSMIT CHAR 


RELOAD DATA BYTE 
INDICATE TIME OUT 


CLEAR_TO_SEND 
LINE STATUS REGISTER 
IS TRANSMITTER READY 


TEST FOR TRANSMITTER READY 
RETURN WITH TIME OUT SET 


+ RECOVER IN CX TEMPORARILY 
+ MOVE CHAR TO AL FOR OUT, STATUS 
3 IN AH 


OUTPUT CHARACTER 
URN 


MODEM CONTROL REGISTER 
DATA TERMINAL READY 


MODEM STATUS REGISTER 


DATA SET READY 

TEST FOR DSR 

RETURN WITH ERROR 
LINE STATUS REGISTER 


RECEIVE BUFFER FULL 

TEST FOR REC. BUFF. FULL 

TEST FOR BREAK KEY 

LOOP IF NO a 

RR 

TEST FOR ERROR CONDITIONS ON RECV 
AR 


GET CHARACTER FROM LINE 
RETURN 


i TaN faery dea 
AH FOR RETU 
POINT TO MODEM STATUS REGISTER 


, 
CL,4 
ROL DL,CL 
AND DX, 0EH H 
MOV DI,OFFSET AL; 
ADD DI, Dx i 
MOV DX, RS232_BASELSI] 
INC DX 
MoV AL,CS:(DIJ#1 —; 
OUT DX, AL : 
DEC DX 
MOV AL, CS: {DI} ; 
out DX, AL ; 
ADD DX,3 
mov ALLAH 3 
AND AL, OLFH i 
OUT DX, AL ; 
DEC DX 
DEC DX 
MOV AL.O 
OUT DX, AL ; 
JMP SHORT A18 3C 
SEND CHARACTER IN CAL) OVE 
PUSH = AX ; 
ADD DX, 4 3 
MOV AL,S ; 
OUT DX, AL i 
3 
INC Dx ; 
INC DX 
MOV BH, 30H i 
CALL = WAIT_FOR_STATUS ; 
JE as 3 
POP cx 
MOV AL, CL ; 
OR AH, 80H ; 
JMP A3 3 RETURN 
, 
DEC DX i 
MOV BH, 20H ; 
CALL = WAIT_FOR_STaTUS ; 
JNZ a7 ; 
SUB DX, 5 3 DATA PORT 
POP cx ; 
MOV AL, CL : 
our DX, AL ; 
JMP 3 3 RET 
RECEIVE CHARACTER FROM COMMO LINE 
ADD DX,4 : 
MOV AL,1 ; 
OUT DX, AL 
INC OX ; 
INC DX 
a BH. 20H ; 
ALT_F 
out WAIT_FOR_STATUS ; 
DEC DX 3 
1X AL, Dx 
TEST = aL} i 
INZ Al? 3 
ee AiOS_BREAK, 80H $ 
JHP gg 3 SET TIME OUT 
AND AL,OOOLIa10—8 «=; 
aie AH, AL u- 
ov 
in AC RS232_BASELSI} i DATA PORT 
+ ; 
OMMO PORT STaTUS R : 
our 
ian DX RS232_DASELST I 
IK ra 3 CONTROL PoRT 
MOV AR AL ; 
i ox’ , 
; 
Jap ALOK ; 
Sore se sewccen, 3 
WAIT For statue cor 7777 


T For STATUS ROUTINE 


A-106 


GET MODEM CONTROL STATUS 
RETURN 


0697 


c4 


9D OO7C R 
cy 


Eo 
Cc? 
c7 


0000 E 
26 0071 R TF 
0677 R 


0002 


mone 
onmue 


61 


sENTRY: BH=STATUS BIT(S) 19 LOOK FOR, 
; OX=ADDR. OF STATUS REG 

sEXIT: ZERO FLAG ON = STATUS FOUND 

; ZERO FLAG OFF = TIMEOUT. 

; AH=LAST STATUS READ 


WAIT_| FOR ae PROC 


NEAR 
BL,RS232_TIM_OUT(DI] ;LOAD OUTER LOOP COUNT 
WFSO: SUB CX,CX 


WFSi: IN AL, DX 3GET STATUS 
MOV AH, AL 3 MOVE TO AH 
AND AL, BH sISOLATE BITS TO TEST 
AL, BH sEXACTLY = TO MASK 
RS232.1KC 
JE WFS_END PRETURN | WITH ZERO FLAG ON 
Loop WFST sTRY A 
DEC BL 
JNZ WFSO 
OR BH, BH 3S€T ZERO FLAG OFF 
WFS_END: 
ET 
WAIT_FOR_STATUS ENDP 
RS232_10 ENDP 
F Stated NT ree eee eee en eee eee ew en eee eeeeee ewe wecns 
3 CASSETTE I70 
3 (AH) = 0 TURN CASSETTE MOTOR ON 
F CAH) = 1 TURN CASSETTE MOTOR OFF 
3 (AH) = 2) READ 2 OR MORE 256 BYTE BLOCKS FROM CASSETTE 
3 CES,BX) = POINTER TO DATA BUFFER 
; (CX) = COUNT OF BYTES TO READ 
3 ON EXIT 
3 CES,BX) = POINTER TO LAST BYTE READ + 1 
i (OX) = COUNT OF BYTES ACTUALLY READ 
3 (CY) = 0 IF NO ERROR OCCURRED 
3 = 1 IF ERROR OCCURRED 
3 CAH) = ERROR RETURN IF (CY)= 1 
3 = 01 IF CRC ERROR WAS DETECTED 
3 = 02 IF DATA TRANSITIONS ARE LOST 
3 = 04 IF NO DATA WAS FOUND 
3 CAH) = 3 WRITE 1 OR MORE 256 BYTE BLOCKS TO CASSETTE 
; CES,BX) = POINTER TO DATA BUFFER 
3 (CX) = COUNT OF BYTES TO WRITE 
3 ON EXIT 
Cex, Xs 8X) POINTER TO LAST BYTE WRITTEN ¢ 1 
3 
: (an = ANY OTHER THAN ABOVE VALUES CAUSES (CY)= 1 
3 AND CAH)= 80 TO BE RETURNED (INVALID COMMAND). 


ASSUME DS: DATA, mae NOTHING, SS: NOTHING, CS: CODE 
CASSETTE_I10 PROC 


STI 3 INTERRUPTS BACK 0 


rea oS ESTABLISH ADDRESSING TO DATA 
AND BIOS_BREAK, 7FH ; MAKE SURE BREAK FLAG IS OFF 
CALL WL 3 CASSETTE_I0_CONT 
PoP os 
RET 2 3 INTERRUPT RETURN 
CASSETTE_I0 ENDP 
wl Proc NEAR 
jeseSeow oc en wae ceca ce) ctbeicuueuus Seereraiass etecesabsass sais 
$ PURPOSE: 
; 0 CALL APPROEREATE | ROUTINE DEPENDING ON REG AH 
oi: SS weee ene Rica satewenne inci ainte aaa weecens 
; 0 MOTOR ON 
31 MOTOR OFF 
3 2 READ CASSETTE BLOCK 
+ 3 WRITE CASSETTE BLOCK 
festicbewewsdeccsccnnucconse evssseeteudscceewececeecwcees 
OR AH, AH 3 TURN ON MOTOR? 
a 4 NOTOR_ON 3 YES, DO 
DEC AH 3 TURN OFF. MOTOR? 
Iz MOTOR_OFF 3 YES, DO IT 
DEC AH 3 READ CASSETTE BLOCK? 
J2 READ_BLOCK + YES, DO I 
DEC AH 3 WRITE Gueserre BLOCK? 
JNZ W2 3 NOT_DEFI 
IMP WRITE_BLOCK 3 YES, DO It 
W2: 3 COMMAND NOT DEFINE 
MoV AH. 080H 3 ERROR, eraeernen OPERATION 
STC 3 ERROR F 
RET 
wi ENDP 
MOTOR_ON PROC NEAR 
pauenceeese Sdiwen te wecnouecele aetiasastee 
1 PURPOSE: 
3 TO TURN ON CASSETTE MOTOR 
iuseeesaroticcocse oon senen sosencoeduace 
NW Al, PORT 8 3 “READ CASSETTE OUTPUT 
AND AL.NOT O8n 3 CLEAR BIT TO TURN ON MOTOR 
WS: ouT PORT_B,AL 3 WRITE IT OUT 
SUB AH, AW 3 CLEAR AH 
RET 
MOTOR_ON ENDP 
mOTOR. ~ OFF PROC NEAR 
+ PURPOSE: : 
3 VO TURN CASSETTE MOTOR OFF t 
osstevereceseesencesseccce Sebo ee, oe 
In Al, PORT_8- 3 READ CASSETTE OUTPUT 
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0699 OC 08 
069B EB FS 


O6A0 BE 0007 
O6AS E& O85D R 


O6AG ES 62 
O6A8 24 10 


GGAA A2 006B R 
BA SF7A 


06B0 FG 06 0071 R 80 
5 03 


0688 75 63 
O6BA E9 O73C R 
06RD E8 O77C R 
O6CO E3 EE 
06C2 BA 0378 
O6CS B89 0200 


O6C9 FG 06 0071 R 80 
6c 

06Dl =E8 O77C R 
cs 


0607 74 cD 
06D9 3B ODS 
O6DB ES 04 
Q6DD 73 ¢7 


OGDF E2 Es 


OGEL 72 && 


OES £8 C770 R 
O6E6 E83 O74E R 


OGEB 75 49 
O6ED SE 
OGEF 58 


C6Fe 51 
OGFL C7 06 bos R 
O6F7 BA 0100 mete 
O6FA FG 06 0071 R 

75 23 - 
9701 €8 OM4E R 

72 1E 
0706 «E305 


0708 cg 88 07 
O70C «49 


070D GA 
O70E 7F EA 


AL, 08H 3; SET BIT TO TURN OFF 
SRP ws. i WRITE IT, CLEAR ERROR, RETURN 
MOTOR_OFF ENDP 
READ_BLOCK PROC NEAR 


3 PURPOSE: 
3 TO READ 1 OR MORE 256 BYTE BLOCKS FROM CASSETTE 

3 

3 ON ENTRY: 

H ES IS SEGMENT FOR MEMORY BUFFER (FOR COMPACT CODE) 
3 BX POINTS TO START OF MEMORY BUFFER 

3 CX CONTAINS NUMBER OF BYTES TO READ 

3 ON EXIT: 

H BX POINTS 1 BYTE PAST LAST BYTE PUT IN MEM 

3 CX CONTAINS DECREMENTED BYTE COUNT 

3 DX CONTAINS NUMBER OF BYTES ACTUALLY READ 

; 

3 


CARRY FLAG IS CLEAR IF NO ERROR DETECTED 
CARRY FLAG IS SET IF CRC ERROR DETECTED 


PUSH BX 3 SAVE BX 
en : hve & 
3 SAVE § 
MoV SI, 7 3 SET UP RETRY COUNT FOR LEADER 
CALL BEGIN_OP 3 BEGIN BY STARTING MOTOR 
Was: + SEARCH FOR LEADER 
IN AL, PORT_C 3 GET INITIAL VALUE 
AND AL, 010H 3 MASK OFF EXTRANEOUS BITS 
Mov LAST_VAL,AL 3 SAVE IN LOC LAST_VAL 
Mov DX, 16250 3 @ OF TRANSITIONS TO LOOK FOR 
WS: + WAIT_FOR_EDGE 
TEST BIOS_BREAK, 80H ; CHECK FOR BREAK KEY 
INZ W6A 3 JUMP IF NO BREAK KEY 
+ JUMP IF BREAK KEY HIT 
DEC DX 
JNZ W7 3 JUMP IF BEGINNING OF LEADER 
W6A: JMP wi? 3 JUMP IF NO LEADER FOUND 
W?: CALL READ_LHALF_BIY =; IGNORE FIRST EDGE 
nay” Bh.o37 ; tHeee Fon wipes apaseeTe 
»0378H + CHECK FOR HAL 
MoV CX,200H s MUST HAVE AT LEAST THIS MANY ONE 
+ SIZE PULSES BEFORE CHCKNG FOR 
3 SYNC BIT (0) 
CLI + DISABLE INTERRUPTS 
W8: 3 SEARCH-LDR 
TEST BIOS_BREAK, 80H ; CHECK FOR BREAK KEY 
JNZ wi? 3 JUMP IF BREAK KEY HIT 
PUSH cx 3 SAVE REG Cx 
CALL READ_HALF_BIT 5 GET PULSE WIDTH 
OR cx, Cx 3 CHECK FOR TRANSITION 
PoP + RESTORE ONE BIT COUNTER 
JZ W4 3 JUMP IF NO TRANSITION 
CMP DX, BX 3 CHECK PULSE WIDTH 
JICXZ Wo + IF CX=0 THEN WE CAN LOOK 
3 FOR SYNC BIT (0) 
JNC we 3 JUMP IF ZERO BIT (NOT GOOD 
3 LEADER) 
Loop Ws + DEC CX AND READ ANOTHER HALF ONE 
3 BIT 
W9r 3 FIND-SYNC 
Jc Ws 3 JUMP IF ONE BIT (STILL LEADER) 
Brene- A SYNCH BIT HAS BEEN FOUND. READ SYN CHARACTER: 
CALL READ_HALF_BIT 5 SKIP OTHER HALF OF SYNC BIT (0) 
CALL READ_BYTE + READ SYNC BYTE 
CMP AL, T6H + SYNCHRONIZATION CHARACTER 
JNE W16 3 JUMP IF BAD LEADER FOUND. 
s=~""= GOOD CRC SO READ DATA BLOCKiS) 
POP SI + RESTORE REGS 
POP cx 
PoP 8x 


EO OO OS ws wa vw wien sig Sees meme wn www mmm wee meee wen eee ce noon 


1 OR MORE 25 
WN ENTRO 6 BYTE BLOCKS FROM CASSETTE 


ES IS SEGMENT FoR MEMORY BUFFER (FOR COMPACT CODE) 
BX POIKTS 10 START OF MEMORY BUFFER 
oN exis. CONTAINS NUMBER OF BYTES TO READ 


; 

i 

3 8X POINTS 1 BYTE PAST LAST BYTE PUT IN MEM 
; CX CONTAINS DECREMENTED BYTE COUNT 

- Dx CONTAINS HUMBER OF BYTES ACTUALLY READ 


SKIP REST OF BLOCK 


STORE DATA BYTE AT BYTE PTR 
INC BUFFER PTR 


Tne ES#CXI,aL 


DEC 
Wiz: cx DEC BYTE COUNTER 


sae btOOP UNTIL Dat BLOCK HAS BEEN READ FROM CASSETTE 
4G Wi. ; Rae phbock CHT 


3 SAVE BYTE COUNT 
} aseravie otece'hs tp 
3 YTE BLOCK 
Bay Bec RES. OF FFFH + INIT CRC REG 
Was X,256 ; apt te TO DATA BLOCK SIZE 
+ RD_BLK 
ey RIOS_BREAK, 80H + CHECK FOR BREAK KEY 
CALL READ ay? + JUMP IF BREAK KEY HIT 
Je Wiser re i READ BYTE FROM CASSETTE 
i TRAREL pEMDICATES HO DATA 
Jex IONS 
zw 3 IF WE'VE ALREADY REACHED 
3 END OF MEMORY BUFFER 
Mov : 
i 
A 
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vvvvvSGSY 


51 
B1 


si 


Do 
9E 


E38 
FE 


te 
Fa 
39 
cs 
59 
i 


READ_BYTE 
READ_BYTE 
AH, AH 


CRC_REG,1DOFH 
WLS 


W15 
W10 
AH,O1H 
AH 


Dx 
DX,CXx 


AX 
AH, 90H 
wis 
READ_BYTE 
SHORT W18 


SI 
W17 
W4 


3 


Se i i on or nn 


NOW READ TWO CRC BYTES 


CLEAR AH 

IS THE CRC CORRECT? 

IF NOT EQUAL CRC IS BAD 

IF BYTE COUNT IS ZERO 

THEN WE HAVE READ ENOUGH 

SO WE WILL EXIT 

STILL MORE, SO READ ANOTHER BLOCK 

MISSING-DATA 

HO DATA TRANSITIONS SO 

SET AH=02 TO INDICATE 

DATA TIMEOUT 

BAD-CRC 

EXIT EARLY ON ERROR 

SET AH=01 TO INDICATE CRC ERROR 

RD-BLK-EX 

CALCULATE COUNT OF 

DATA BYTES ACTUALLY READ 

RETURN COUNT IN REG DX 

SAVE AX Mae CODE) 

CHECK FOR ERRORS 

JUMP IF ERROR DETECTED 

READ TRAILER 

SKIP TO TURN OFF MOTOR 

BAD-LEADER 

CHECK RETRIES 

JUMP IF TOO MANY RETRIES 

hs IF NOT TOO MANY RETRIES 
O VALID DATA FOUND 


jeces= aa oi CASSETTE ERROR, I1.&. TIMEOUT 


cx 
BX 

DX, DX 

AH, 06H 
AX 
MOTOR_OFF 
AX 


AH,O1H 


3 


RESTORE REGS 
RESTORE REGS 


ZERO NUMBER OF BYTES READ 
TIME OUT ERROR (NO LEADER) 


MOT-OFF 

REENABLE INTERRUPTS 

TURN OFF MOTOR 

RESTORE RETURN CODE 

SET CARRY IF ERROR CAH>0) 


FINISHED 


TO READ A BYTE FROM CASSETTE 
REG AL CONTAINS READ DATA BYTE 


O74E R CALL 

O76E R CALL 

E4 SUB 

3E 0069 R 1D0F CMP 

06 JNE 

06 JCxz 

cD MP 
WLS: 

01 Mov 
W14: 

c4 Inc 
W15: 

POP 
DL SUB 

PUSH 
C4 90 TEST 
13 JNZ 
O74E R CALL 
CE IMP 

W16: 

DEC 
os Jz 
0606 R JMP 

W17: 

POP 

POP 
D2 SUB 
04 MOV 

PUSH 

Wi8: - 
I 
0697 R CALL 

POP 
Fe 01 CMP 

CMC 

RET 
READ_BLOCK 
} PURPOSE: 
3 ON EXIT 
READ_| BYTE 

PUSH 
08 MOV 

WL9: 

_PUSH 
o77C R ee eat 
20 JCXZ 

PUSH 
O77 R CALL 

POP 
19 Jexz 
D8 
FB 06Fo ~~ 

CMC 

LAHF 

POP 
DS RCL 

SAHF 
0849 R CALL 
cs DEC 
EQ JNZ 
cs HOV 

cic 

W20: 

poP 

pop 

RET 

Wir 

i 

$ 
F9 JMP 

READ_BYTE 


READ_HALF_BIT 
W21 


Bx 
READ_HALF_BIT 
AX 

W21 


BX, AX 
BX, O6FOH 


cx 


CHL 


CRC_GEN 
cL 


wis 
AL,CH 


cx 
Bx 
cx 


w20 
€NDP 


A-109 


~~ 


we we we we we 


We we we we we we we we we we we we we we ws we Be Oe we we OF we we Be OH OF 


we we we we we 


SAVE REGS BX,CX 


SET BIT COUNTER FOR 8 BITS 
BYTE-ASM 
SAVE CX 


READ ONE PULSE 

IF CX=0 THEN TIMEOUT 

BECAUSE OF NO DATA if RUEETIONS 

SAVE 1ST HALF BIT 

PULSE WIDTH CIN BX ; 

READ COMPLEMENTARY PULSE 

COMPUTE DATA BIT 

IF CX=0 THEN TIMEOUT DUE TO 

NO DATA TRANSITIONS 

PERIOD 

CHECK FOR ZERO BIT 

CARRY IS SET IF ONE BIT 

SAVE CARRY IN AK 

RESTORE CX 

NOTE: 

MS BIT OF BYTE IS READ FIRST. 

REG CH IS SHIFTED LEFT WITH 

CARRY BEING INSERTED INTO LS 

BIT OF CH. 

AFTER ALL & BITS HAVE BEEN 

READ, TRE MS BIT OF THE DATA 

BYTE WILL BE IN THE MS BIT OF 

REG CH 

ROTATE REG CH LEFT WITH CARRY TO 
LS BIT OF REG CH 

RESTORE CARRY FOR CRC ROUTINE 


GENERATE CRC FOR BIT 

LOOP TILL ALL 8 BITS OF DATA 
ASSEMBLED IN REG CH 

Y 

RETURN DATA BYTE IN REG AL 


RD-BYT-EX 
RESTORE REGS CX,BX 


FINISHED 
NO-DATA 
RESTORE CX 
INDICATE ERROR 
RO_BYT_EX 


O7E6 


07€9 
O7EB 
O7EC 
O7EE 


B9 
8A 


C7 
BA 


26: 


13) 
€3 


43 
49 


GA 
7F 


064 
HH 006e KR 


06 0069 R FFFF 
0100 


8A 07 
0815 R 
02 


0 
O815 R 


weeeen wee wenn en meee een new ew www wn ene wn ee wenn 


3 PURPOSE: 
3 TO COMPUTE TIME TILL NEXT DATA 
; TRANSITION CEDGE) 
3 ON ENTRY: 
Hy EDGE_CNT CONTAINS LAST EDGE COUNT 
3 ON EXIT: 
H AX CONTAINS OLD LAST EDGE COUNT 
H BX CONTAINS PULSE WIDTH CHALF BIT) 
Jerre enn nn nnn nnn nnn en nn nnn ee en ee nee 
READ_LHALF_BIT PROC NEAR 
mov CX, 100 3 SET TIME TO WAIT FOR BIT 
mov AH,LAST_VAL + GET PRESENT INPUT VALUE 
W22: 3 RD-H-BIT 
IN AL, PORT_C + INPUT DATA BIT 
AND AL,O10H + MASK OFF EXTRANEOUS BITS 
CMP AL, AH 3 SAME AS BEFORE? 
LOOPE wW22 3 LOOP TILL IY CHANGES 
mov LAST_VAL,AL + UPDATE LAST_VAL WITH NEW VALUE 
mov AL,4OH + READ TIMER'S COUNTER COMMAND 
OUT TIM_CTL,AL 3 LATCH COUNTER 
mov BX, EDGE_CNT 3 BX GETS LAST EDGE COUNT 
IN AL, TIMER+1 3 GET LS BYTE 
mov AH, AL 3 SAVE IN AH 
InN AL, TIMER+1 + GET MS BYTE 
XCHG ALLAH 3 XCHG AL,AH 
SUB BX, AX 3 SET BX EQUAL TO HALF BIT PERIOD 
SEE EDGE_CNT,AX 3 UPDATE EDGE COUNT; 
READ_LHALF_BIT ENDP 


3 PURPOSE 

; WRITE 1 OR MORE 256 BYTE BLOCKS TO CASSETTE. 

; THE DATA IS PADDED TO FILL OUT THE LAST 256 BYTE BLOCK. 
3 ON ENTRY: 

H BX POINTS TO MEMORY BUFFER ADDRESS 

; CX CONTAINS NUMBER OF BYTES TO WRITE 

’ 


OR EXIT: 
3 BX POINTS 1 BYTE PAST LAST BYTE WRITTEN TO CASSETTE 
5 5 9) RES GRD Ra aE ap ananD 
WRITE_BLOCK PROC —HEAR 
PUSH BX 
PUSH cx 
IN AL, PORT_B + DISABLE SPEAKER 
AND AL,NOT 02H 
OR AC, OL 3 ENABLE TIMER 
OUT —-PORT_B.A 
MOV = AL, OB6H ; SET UP TIMER - MODE 3 SQUARE WAVE 
ouT TIM_CTL,AL 
CALL BEGIN_OP + START MOTOR AND DELAY 
MoV AX,1184 3 SET eleg BIT SIZE 
CALL W31 + SET_T 
MOV CX,0800H 3 SET CX FOR LEADER BYTE COUNT 
W23: ; WRITE LEADER 
stc > WRITE ONE BITS 
CALL WRITE_BIT 
(oop | wW23 } LOOP "TIL LEADER IS WRITTEN 
CLI + DISABLE INTS. 
cLCc 3 WRITE SYNC BIT (0) 
CALL © WRITE_BIT 
POP cx 3 RESTORE REGS CX, BX 
POP BX 
MOV = AL,_16H ; WRITE SYNC CHARACTER 
BAL WANTE BYTE eee 
Seschaeeore FD rn En 
+ PURPOSE 
; WRITE 1 OR MORE 256 BYTE BLOCKS TO CASSETTE 
3 ON ENTRY: 
i BX POINTS TO MEMORY BUFFER ADDRESS 
3 CONTAINS HUMBER OF BYTES TO WRITE 
+ ON EXIT: ve 
; BX POINTS 1 BYTE PAST LAST BYTE WRITTEN TO CASSET 
i 1b ih enesig i eneaor 
WR_BLOCK: a 
MOV = CRC_REG,OFFFFH ; INIT CRC 
MOV BX, 256 ; FOR 256 BYTES 
mass 3 WR-BLK 
cau ALSESsERK) + READ BYTE oe Ne 
_BYTE ; WRITE IT TO CA 
JOxXZ 25 ; UNLESS CX=0, ADVANCE PTRS & DEC 
3 COUNT 
Inc Bx 3 INC BUFFER POINTER 
wos, PEC x ; DEC BYTE COUNTER 
DEC x } DEC BLOCK CNT 
; DEC BLO 
4G 26 ; LOOP TILL 256 BYTE BLOCK 
eeceeteneecis soutees 3 IS WRITTEN TO TAPE we 
+ WRITE CRC sahara SERRA T REARS EE Sao 
i WRITE 1'S COMPLEMENT OF CRC RE 
; G TO CASSETTE 
+ REG ax TS mops RsHECKED FOR CORRECTNESS WHEN THE BLOCK 15 READ 
Ps a eee 
Se www wm wmmmwwn we m ewe ewer eee errr THE 
MOV AX, CRC_REG ; WRITE THE ONE'S COMPLEMENT OF 
WOT a ; TWO BYTE CRC TO TAPE 
PUSH AX + FOR 1*S COMPLEMENT 
Catt AMAL ; WRITE NS BYTE FIRST 
CALL ; 
WRITE_syTE 3 WRITE IT 
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0849 


Al 


0815 R 
c 
D7 


0020 
0820 R 
FA 

Bo 


0001 
0842 
0697 
co 


Es 
08 


DS 


082C R 
0849 R 
c9 
F2 


04A0 
os 
0250 


0069 R 


04 


PoP AX + GET IT BACK 
CALL poate BYTE + NOW WRITE LS BYTE 
OR CX,C. + IS BYTE COUNT EXHAUSTED? 
JNZ WR Stock 3 JUMP IF NOT DONE YET 
PUSH cx” 3 SAVE REG CX 
STI ¢ RE-ENABLE INTERUPTS 
Mov CX, 32 3 WRITE OUT TRAILER BITS 
W26: 3 TRAIL-LOOP 
STC 
CALL WRITE_BIT 
Loop W26 + WRITE UNTIL TRAILER WRITTEN 
POP cx 3 RESTORE REG CX 
MoV AL, OBOH > TURN TIMER2 OFF 
ouT TIM_CTL, AL 
MOV AX, 1 
CALL W31 3 SET_TIMER 
CALL ae as OFF 3 TURN MOTOR O 
SUB AX, AX 3 NO ERRORS REPORTED ON WRITE 
RE 3 FINISHED 
eer BLOCK ENDP 


+ WRITE A BYTE TO CASSETTE. 

: BYTE TO WRITE IS IN REG AL. 

WRITE BYTE PROC NEAR 
PUSH cx SAVE REGS CX,AX 


PUSH AX 
MOV CH,AL 3 AL=BYTE TO WRITE. 
; CMS BIT WRITTEN FIRST) 
MOV CL.8 + FOR 8 DATA BITS IW BYTE. 
+ NOTE: TWO EDGES PER BIT 
W27: 3 DISASSEMBLE THE DATA BIT 
ck CH,1 3 ROTATE MS BIT INTO CARRY 
PUSHF + SAVE FLAGS. 
3 NOTE: DATA BIT IS IN CARRY 
CALL WRITE_BIT + WRITE DATA BIT 
POPF + RESTORE CARRY FOR CRC CALC 
CALL CRC_GEN + COMPUTE CRC ON DATA BIT 
DEC cL + LOOP TILL ALL 8 BITS DONE 
INZ W27 3 JUMP IF NOT DONE YET 
PoP ax + RESTORE REGS AX,CX 
POP cx 
RET 3 WE ARE FINISHED 
WETS AVIS ENDP 
WRITE_ BIT Proc NEAR 
PURPOSE: 


TO WRITE A DATA BIT TO CASSETTE 

CARRY FLAG CONTAINS DATA BIT 

I.E. IF Ser DATA BIT IS A ONE 
IF CLEAR DATA BIT IS A ZERO 


3 

3 NOTE: tue EDGES ARE WRITTEN PER BIT 
; ONE BIT HAS 500 USEC BETWEEN EDGES 

3 FOR A 1000 USEC PERIOD (1 MILLISEC) 
; 

3 


ZERO BIT HAS 250 USEC BETWEEN EDGES 
FOR A 500 USEC PERIOD (.5 MILLISEC) 
CARRY FLAG IS DATA BIT 


FASSUME IT's A "1" 


MoV AX, 1184 3 SET AX TO BONTBAL ONE SIZE 
Je W28 3 JUMP IF ONE B 
MOV AX, 592 3 NO. SET TO “yOntNAt ZERO SIZE 
W28: + WRITE-BIT 
PUSH ax guiaTe BIT "te PERIOD EQ TO VALUE 
W29: IN AL, PORT_C sINPUT TIMER_@ OUTPUT 
AND AL, 020H” 
JZ w29 sLOOP TILL HIGH 
WSO: IN AL,PORT_C aKOR MALT TILL TIMER'S OUTPUT IS 
3 
AND AL,020H 
INZ wso 
sRELOAD ariey WITH PERIOD 
3FOR NEXT DATA BIT 
PoP ax sRESTORE PERIOD COUNT 
W31: 3 SET TIMER 
our 042H, AL 3 SET LOW BYTE OF TIMER 2 
MOV AL, AN 
our 042H, AL 3 SET HIGH BYTE OF TIMER 2 
WRITE. BIT ENOP 
cre GEN PROC NEA 


s UPDATE CRC REGISTER WITH NEXT DATA BIT 
CRC IS USED TO DETECT ene BekORs 
ASSUMES DATA BIT IS IN 

REG AX IS MODIFIED 

__ FLAGS ARE MODIFIED 


“HOV AX, CRC_REG 


Sashes 


sTHE FOLLOWING INSTUCTIONS 
sWILL SET THE OVERFLOW FLAG 
sIF CARRY AND MS BIT OF CRC 


sARE UNEQUAL 


CR AX,1 

Ret AX,1 

cic sCLEAR CARRY 

JNO W32 sSKIP IF NO OVERFLOW 
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F9 
D1 


as 
cs 


0810 


o6se R 
42 


0700 


f7 


XOR 
sc 
W32: RCL 
mov 
RET 
CRC_GEN 
BEGIN_OP 
CAL 
MOV 
W33: MOV 
wW34: “LOOP 
DEC 
JNZ 
RET 
BEGIN_OP 
ORG 
CODE ENDS 
END 


AX, 0810 


aX,1 
CRC_REG, AX 


PROC NEAR 
MOTOR_ON 
BL,42H 
CX,700H 

W34 

BL 

W33 


ENDP 
BEGIN+O8D0H 
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sIF DATA BIY XORED WITH 
3 CRC REG BIT 15 IS ONE 
STHEN XOR CRC REG WITH 
+ O810H 


. 

sSET CARRY 

sROTATE CARRY (DATA BIT) 
sINTO CRC REG 

sUPDATE CRC_REG 

s FINISHED 


3_START TAPE AND DELAY 

sTURN ON MOTOR 

sDELAY FOR TAPE DRIVE 

sTO GET UP TO SPEED (172 SEC) 
SINNER LOOP= APPROX. 10 MILLISEC 


PEC ELirii itt 
" n 
™ MODULE 4 « 
" " 
PELE ELiirity 
PTE rri iit ty 
0000 
0000 FA 
0001 56 

2 57 
ocos $0 
0004 53 
0005 51 
0006 52 
0007 1E 
6008 06 
0009 BE oo08 
O00C 32 DB 
COOE 32 £4 
0010 BY 0005 
OOlS E4 62 
0015 A& 40 
0017 74 02 
0019 FE C4 
OO1B E2 F6 
001D 80 FC 93 
0020 73 03 


ES cops x 

E8 cops 
ca » 

3A C8 

74 44 


80 £ 
so ES 02 


8A Cc? 


0000 & 
0081 
0086 54 OS 0338 RK 04 


008A 74 o5 


008D ch 4, 
EB iF 


BB ogg 


oe ©0 eocceoceoo eeoeeo coececeo @ eoeoceeo ceoococecae oa 
eo eo eocoooo0eo eoececo eoeccecee 8 coocveo ecoeoceooeoe o 
N NN NYNYOOR COSHH CUUVUUY 2 22DLPDA PUUUYUUUUU 
QO FPN VUENCTNS VON OMOTFOVSH M AFAOU KTNOBOOVNUY Oo 

m 

o 

°o 

o 

.—J 

«w 

2 


KBDNMI - KEYBOARD HMI INTERRUPT ROUTINE 
THIS ROUTINE OBTAINS CONTROL UPON AN NAT F siieaasiadld WHICH 
OCCURS UPON A KEYSTROKE FROM THE KEYBOAR 


GET THE KEYBOARD SCAN CODE ENTERED. IT THEN ISSUES INT 41 
PASSING THE SCAN CODE IN AL TO THE KEY PROCESSOR. UPON RETURN 


IT RE-ENABLES NMI AND RETURNS TO SYSTEM CIRET). 


3 
3 

3 

3 

5 

3 

; THIS ROUTINE WILL DE-SERIALIZE THE BIT STREAM IN ORDER TO 
s 

s 

3 

5 


“ASSUME ¢$:cODE, DS:DATA 


oe Proc FAR 
a INTERRUPTS 





SH 

PUSH oI 

PUSH AX 3 SAVE REGS 

PUSH BX 

PUSH cx 

PUSH Dx 

PUSH os 

PUSH Es 

Seewnnm-~---INIT COUNTERS 
MoV ae } ae UP 8 OF DATA BITS 


XOR 


T. PARITY COUNTER 


BL INI 
sonia SNL rt TIMES TO VALIDATE START BIT 


AH, 


MoV CX,5 3 SET COUNTER 
Ti: IK AL,PORT_C 3 GET SAMPLE 

TEST AL, 40H 3 TEST IF 1 

JZ T2 3 JMP IF O 

> Inc AK 3 KEEP COUNT OF 1°S 

T2: Loop 11 3 KEEP SAMPLING 

CMP AH,S > VALID START BIT Y 

JNB 125 3 JUMP IF OK 

JMP 18 ; TAAL IO CSYNC ERROR) NO AUDIO 

+ OUTPUT 

bwwenwnnnm-—--VALID START BIT, LOOK FOR TRAILING EDGE 
125: MOV CX,50 + SET UP WATCHDOG TIMEOUT 
I3: Pa] AL,PORT_C + GET SAMPLE 

TEST AL,40H 3 TEST IF 0 

JZ 15 3 JMP IF TRAILING EDGE FOUND 

Loop 13 3 Seer LOOKING FOR eee EDGE 

JMP 18 3 SYNC ERROR (STUCK ON 1°S 
gwmennnn——---READ pres TO SET ST ant OF BIT TIME 
15: MOV AL, 3 READ CLOCK 

our THC ETL AL ; 

NOP mad 

NOP 3m 

IN AL, TIMER#1 ; 

MoV HLA 3M 

IN he aaa su 

XCHG iia 

MOV or, 3 SAVE CLOCK TIME IN DI 
Bommennn—---VERIFY vat TRANSITION 

Mov Cx.4 3 SET COUNTER 
Tér In AL,PORT_C 3 GET SAMPLE 

ey seat 3 TEST IF 0 


3 
voor 


JMP IF INVALID TRANSITION (SYKC) 
KEEP LOOKING FOR VALID TRANSITION 


Hr : 
Ireenn------SET UP DISTANCE TO MIDDLE OF 1ST DATA BIT 
alt] Dx, 


Brmmwnn START hee FOR TIME 10 
7: CALL 
MoV bk 526 


310 USEC AWAY (.838 US 7 CT) 
READ DATA BITS AND ASSEMBLE BYTE 


SET NEW DISTANCE TO NEXT HALF BIT 


PUSH = AX 3 SAVE 1ST HALF BIT 

CALL = oI38 

MOV CLLAL 3} PUT 2ND HALF BIT IN CL 

PoP AX 3 RESTORE 1ST HALF BIT 

CMP CLLAL + ARE THEY OPPOSITES ? 

JE 19 3 NO, PHASE ERROR 
Jroeeee-----VALID DATA BIT, PLACE IN SCAN BYTE 

SHR BHAA 3 SHIFT PREVIOUS BITS 

OR BHLAL 3 OR IN NEW DATA BIT 

DEC $i i DECREMENT DATA BIT COUNTER 

JNZ 17 CONTINUE FOR MORE DAYA BITS 
Jenosennn==HNTT. FOR TINE TO SAMPLE PARITY BIT 

CALL 

PUSH = AX 3 SAVE 1ST HALF BIT 

CALL 30 

MOV CLLAL 3 PUT 2ND HALF BIT IN CL 

PoP Ax 3} RESTORE 1ST HALF BIT 

CMP CLAL i ARE THEY OPPOSITES ? 


NO 
jocnewes e=nifgta | ey BIT, CHECK PARIT 
BL 


AND ! 


a ERASE ERROR 


es IF ODD PARITY 
JMP IF PARITY ERROR 


19 
jews ied CHARACTER, SEND TO CHARACTER PROCESSING 
L,BH 


MOV AL, 3 PLACE SCAN CODE IN AL 
CALL ops 

TEST Walkable in 

test ALyaen 

2. os: 3 ENABLE INTERRUPTS 

INT 48H 

JMP SHORT 18 


TAM oy BK 4H 
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+ DURATION OF ERROR BEEP 


Appendix A. 


Y OF TONE 
+ FREQUENCY OF TON 
48H BUFFER FUL 
nee Fa, NOISE > ENABLE INTERRUPTS 
stl HORT 18 
0048 mp $ 
oe Be 0000 E 17_2: - Te a aT 
Hy © : L 3 ENAB 
009A B15 MOV ’ oH ; STORE AL 
op OE 4 AL,OA 3 RE taknnve 
HH ao oe osse R 8 hov | ALSBL ; CHARACTER PROCESSING 
none a4 Ot int FLG 
OoA2 Eq AO INT 48H 2,NOT NMI_, ss 
B_FLAG_: ~EWABEL WI 
poke ee AND RESTORE REGS" AND RE Se Net nas 
OOAS 48 a FB pocewee-- - ES 
Ad CD SP os38 8: Po ce 
HTH 80 26 I ror De 
MI 
ee a 5 ENABLE N 
wont MA og AL OAQH 
gonz 3A 1H ‘ 
ose SB por I g ERETURN TO SYSTEM cep 
et TRE WASE ERROR: OUTPUT IT? 
none 3 SSSTPARITY, SYNCH OR P } ARE WE OR THE ACR UMTGHT BE A 
coy 3E ine ALL DDS 3 ARE 10 FEEDBACK 
nibh a sa cP 3° : mrguITen) RANSMISSION ERRORS 
3 0000 E JE 01K «3 CHECK IF Ms REPORTED 
te GAY SEEN He ; i2Do NOT BEEF. Pern Trae 
oo8 4 E€D = 3 1=D R BEEP RO ERRORS 
eocl 7 e 110 3 CALL ERRO OF KEYBOARD 
e018 & JNZ OR_BEEP KEEP TRACK ERRUPT 
ait Gist EIERRE? | EEus anak 
once 75 OF, 110: Me SHORT 18 
QOCA He 06 0012 KR KBDNMI noe NEAR + READ CLOCK 
eocD B DD I30 PRO AL, 40H if 
Ses : I31i: eri TIM_CTL,AL x 
00D : ri ; 
bos 80 40 NOP ig ,* 
oops Eb 43 IN AL, TIME ; " 
eoD7 90 MOV AH, MER+1 5 _— 
aw oe By Ba pence aa 
ODE te ‘1 nov pi tS 3 ate TIME 19 Samet Tite 
odd £0 SUB * DX + oO, KEEP LO NTS OFF ine 
OODF 86 CF CMP Cx.D ; Debate @ OF ts AS LAST T 
OOEL 8B 8 JC 131 3 U VE CURRENT TI OR NEXT TIME 
OOES 23 tA sus CX, DX : SAV OT PPERENCE F 
Wier 32 EA op. Bhee BIT (5 SAMPLES) ; 
bees 23 th abb Keane SineLtNe DATA ag COUNTER ee 
seen foe ona teat 
Deed 03 FF , a. 
: oe OR MORE 1” 
SEF Bd 000 bite o 
spor on Ce ee ane se OOH IS RETURNED IN 
3 IS SAM IN AL, : . 
; eee ean 1s Een NTAENED Ne isnt 
PARITY COUNTER TS RAINTARNED 1H e800 
i Te CLEAR oe 
eal XOR AHOAH i SET SANPL 
AL, ; 
1M 4 IF 0 ’ 
we ae wet Test ALS SO ; KEEP COUNT OF 1°S 
‘a hf a PLING 
a a ite, 1 aa 
A . 
ie oe me ura, beet UE Ty 
QOFC E2 FE ‘ 3B 134 en ; Oe ecne PARITY c 
ter 9205. HOV ALO + RETURN TO CALLER 
e103 ov RN TO C 
03 BO 80 s RETU Att 7 
tts Heo an ae sed Te Satter 
010 _ ee ccdccnecuim 
tte aa a ee ee pes AN 
mewoecewnwne AN CO 
ar tig Rete Werte Role tek 
jo ERE Pune or ase See ete be 
SCAH 83K Hate Ge 
$ TS ON THE DE PASSE RETA AN 
EQUIVILEN SCAN CO LAGS 10 ED SCAN 
t AL. EACH SETS Fi NSLAT WA 
PASSED IN RUPT 9 OR THE TRA cop " 
3 TO INTER CALLED F THIS ARIL 
: MORE CALLS RRUPY 9 fe THe Ph cODE 
: . WHEN INTE THE I tae 
; ME ine Hes sD mee Mae Ne 
’ 
; TO KEEP IN FRONT EN aa 
: IH THE o0K AA 
THIS ROUTINE IS VAUARD The L we 
; 62 KEY KE THE NEE 
; TRANSFORMS A ae a 
1 1S ASSunk NE RNG THAT cL HeRraTens WETSTERS ARE 
: IT IS ASSUMED THAT Tire Ano Tat ee REGISTERS HEE ; 
ee ae e 
; 22 act NEN Nain gia teas 
i> NO SS wR ew em in owen cc 
st re : 
= 8839 ma EQU FR_KEY¢1 DE FOR SCAN COD ait 
tx K+1 5 BASE CO ae Kes 
= O05 EXT_SCAN EWU PH S ERTEMBIHe BEYOND 85 one 
: O6AH = 5 END OF EXTEND 
A EXT SCAN_END —EQy 
> OOF AWD" MASK EQU OF FH 
= ULF CLEAR_FLags 


1S 
ve BI 
USED TO SELECTIVELY REMONE ic) 
EQu AND MASK’ - CFN_FLAG*FN_BREAK*+FR_ 

SCAN” CODES, ao 
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nonnnnnhaonne 


noooso 
be ee 
me ahO0O 
oroow 
° 
~o 
~ 
a 


eooo 
oe ee 
Poses 


©e0o0 eco coeooeose 
we Be ee ee 
ove VR WeYVEY 
eno OF VYUNR OO 


31 
50 
23 


10 45 


4F 


3 99 


4B 
14 


49 
9A 


74 
79 


Q_KEY 
N_KEY 
ENTER_KEY 
H_KEY 

“KEY 
UP_ARROW 
DOWN_ARROW 
LEFT_ARROW 
RIGHT ARROW 










HOLD FUNCTION IS SPECIAL CASE. 


END_KEY 
PAGE_UP 
PAGE_DOWN 
KEYPAD_MINUS 
KEYPAD_PLUS 
JITTKOU_KEY 
WARIKOMI_KEY 
SHURIYOU_KEY EQU 

ASSUME CS: cope, Ds: DATA 
po TABLE OF (te SCAN CODES 


KBO 
DB He KEY, WN 
DB UP_ARROW, TB OM ARROW, LEFT_ARROW, RIGHT_ARROW 
DB ENTER_KEY,H_KEY,T_KEY 


KBOLEN EQu $ - KBO 
3----TABLE OF NEW SCAN CODES 
KB1 LABEL BYTE 


DB PAUSE, NUM_LOCK 
DB HOME, END_KEY,PAGE_UP,PAGE_DOWN 
dB JITTKOU_ KEY ,WARIKOMI_KEY, SHURIYOU_KEY 


sNOTE: “THERE IS A ONE TO ONE CORRESPONDENCE BETWEEN 


3 € SIZE OF KBO AND KB. 

}TABLE OF NUMERIC KEYPAD SCAN CODES 

; THESE SCAN CODES WERE NUMERIC KEYPAD CODES ON 
; THE 102 KEY KEYBOARD. 


3 

NUM_CODES LABEL BYTE 
OB 72H,73H,74H,75H,76H 
DB 77H,78K,79H,7AH,70H 3 10 NUMBERS ON KEYPAD 


~ 
R 
4 
> 
o 


TABLE OF SCAN CODES FOR MAPPING EXTENDED SET 

OF SCAN CODES (SCAN CODES > 85). THIS TABLE 

ALLOWS OTHER DEVICES TO USE THE KEYBOARD INTERFACE. 
IF THE DEVICE GENERATES A SCAN CODE > 85 THIS TABLE 
CAN BE USED TO MAP THE DEVICE TO THE KEYBOARD. THE 
DEVICE ALSO HAS THE OPTION OF HAVING A UNIQUE SCAN 
CODE PUT IN THE KEYBOARD BUFFER (INSTEAD OF MAPPING 
TO THE KEYBOARD). THE EXTENDED SCAN CODE PUT IN THE 
BUFFER WILL BE CONTINUOUS BEGINNING AT 150. A ZERO 
WILL BE USED IN PLACE OF AN ASCII CODE. (E.G. A 
DEVICE GENERATING SCAN CODE 86 AND NOT MAPPING 86 
TO THE KEYBOARD WILL HAVE A (150,03 PUT IN THE 
KEYBOARD BUFFER) 

TABLE FORMAT: 

THE FIRST BYTE IS A LENGTH INDICATING THE NUMBER 
OF SCAN CODES MAPPED TO THE KEYBOARD. THE REMAINING 
ENTRIES ARE WORDS. THE FIRST BYTE (LOW BYTE) IS ‘ 
SCAN CODE ANO THE SECOND BYTE (HIGH BYTE) IS ZERO 


IN THE TABLE CORRESPOND TO THIS SET WITH THE FIRST DATA 

‘ oo MATCHING 86, THE SECOND MATCHING 87 ETC. 

OTES: 
(1) IF A DEVICE GENERATES A BREAK CODE, NOTHING IS 
PUT IN THE BUFFER. 

(2) 4 LENGTH OF 0 INDICATES THAT ZERO SCAN CODES HAVE BEEN 


AND HAVE SOME ITS SCAN CODES IN THE EXTENDED SET. 


EXTAB paprk BYTE 


fee we we we we we we we we we we we te we Oe Oe we we Oe we OF Or OF WF wr OH we Oe OH we OF 


2 ENGTH OF TABLE 
ou 72,73.77,81,80, 1995071057 628 
A 17,18,32.45,44,43,50,16,15.1 


KEY62_INT PROC FAR 
St FORWARD DIRECTION 


5 
cate DDS 3} SET UP ADDRESSING 
HOV. AHL AL 3 SAVE SCAN CODE 
CALL OTPM 3 ADJUST OUTPUT FOR USER 
} MODIFICATION 
UNC KBXO 3 JUMP IF OK TO CONTINUE 
IRET eae. RETURN FROM INTERRUPT. 
= CAN C 
Ge a SCA, OFFH i Is THIS AN OVERRUN CHAR? 
KB0_} PASS IT TO INTERRUPT 9 
ifn AL, AND_| MASK-BREAK_BIT 1 TURN OFF BREAK br 
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A DEVICE GENERATING N SCAN CODES IS ASSUMED TO GENERATE THE 
FOLLOWING STREAM 86,87,88,...,864(N-1). THE SCAN CODE BYTES 


og THE KEYBOARD AND ALL EXTENDED SCAN CODES WItt 
BE US 
(3) A DEVICE CAN MAP SOME OF ITS SCAN CODES TO THE KEYBOARD 


Appendix A. 


C4 SE G124R 
26: 8A OD 
1F 


F6 H 0017 R 04 
F6 06 0017 R 08 
3 


Ed O2FO R 
E9 O27A R 


3c 37 
75 11 
Fe 06 0017 R OS 


74 F2 

Fo 06 8017 R 04 
75 &B 

E9 O3OF R 


80 26 00838 R IF 
80 OE 0088 R AD 
CF 


Fo 06 0083 Rx 20 
75 06 

80 26 0083 R Xf 
CF 

80 CE co8e R ae 
CF 


3¢ 55 
74 FB 


Fo 06 008s R 99 
75 21 


F6 06 0017 R 29 
74 16 


AL, EXT_SCAN 3 Is THIS A SCAN CODE > 85 
a Kexe + REPLACE BREAK BI 
CMP AL. EXT_SCAH_END 3 IS THIS A SCAN cove < 106 
JGE KBX4 3 REPLACE BREAK BIT 
FommmSCAN CODE Ts. IN EXTENDED SET 
XOR" SI,SI 
ASSUME DS TABSO 
A t 
LES DI.DWORD PTR EXST 3 GET THE POINTER TO THE EXTENDED 
+S 
MOV CL,BYTE PTR ES:({DI}) ; GET LENGTH BYTE 
ASSUME DS:DATA 
ASSUM 3 
b----DOES SCAN CODE GET MAPPED To KEYBOARD OR TO NEW EXTENDED SCAN 
CODES? 
, SUB AL, EXT_SCAN + CONVERT To BASE OF NEW SET 
cn AL cL } 1S CODE 34 IN TABLE? 
CMP ’ 3 
JG KBX1 + JUMP IF SCAN CODE IS NOT IN TABLE 
3-~--GET SCAN CODE FROM TABLE 
INC DI 3 POINT DI PAST LENGTH BYTE 
MOV BX, AX 
XOR BH, BH } PREPARE FOR ADDING TO 16 BIT 
-" ns + REGISTER 
, 
ADD DI, BX FFSET TO CORRECT TABLE ENTRY 
MOV AL, BYTE At. ES:tbr} 3 TRANSLATED SCAN CODE IN AL 
cMP AL, EXT + IS THIS A SCAN CODE > 85 
JL KBX4¢ + REPLACE BREAK BIT 
CMP ALSEXT ~SCAM_END ; IS THIS A SCAN CODE < 106 
JG K 3 REPLACE BREAK BIT 
s~---SCAN CODE GETS MAPPED To EXTENDED SCAN CODES 
KBX1: TEST AH, BREAK_BIT IS THIS A BREAK CODE? 
JZ KBX2 : MAKE CODE, PUT IN BUFFER 
TRET } BREAK CODE, RETURN FROM INTERRUPT 
KBX2: ADD AH, 64 + EXTENDED SET CODES BEGIN AT 150 
XOR AL, AL 3 ZERO OUT ASCII VALUE (NUL) 
IRT 78H 3 KANAKAN ROUTINE 
IRET 
KBX4: = AND ila 3 MASK BREAK BIT oN ORIGINAL SCAN 
OR i UPDATE NEW SCAN CODE 
MOV rte SAVE AL IN AK AGA IN 
3-7--83 a KEYBOARD FUNCTIONS SHIFT PRTC AND CTRL+NUMLOCK 
KBO_1: CH Le HUM _ 15 THIS A MURLOCK 
SHE cs CHECK 
TEST xB. FLAG, CTL _SHIFT 3 1S CTRL KEY BEING HELD DOWN? 
Jz KBO_2 NUMLOCK WITHOUT CTRL, CONTINUE 
TEST Mh gr bar att Serr 3 IS ALT KEY HELD CONCURRENTLY? 
JKZ PASS IT ON 
JMP RIG ul ; PUT KEYBOARD IN HOLD STATE 
KBO_2: JMP NTLIRT 3 CONTINUE WITH INTERRUPT 48H 
ee seneck pror Perse 
KBO_3: AL, 55 i 1s TRS 4 ERE KEY? 
nts KB2 NOT 
TEST KB_FLAG, LEFT_: sear SHIFT ; EITHER SHIFT 
3 ACTI 
JZ KBO_2 3 PROCESS SCAN IN INT9 . 
TEST KB arise CTL_LSHIFT ; IS THE CTRL KEY PRESSED? 6 
JZ a 3 NOT A VALID PRISC (PC cecil ge 
JMP + HANDLE THE PRINT SCREEN FUNCTIO 
3-~--FUNCTION key" HANDLER 
KB2: MOV AH, AL SAVE CHARACTER 
AND AL, AND_MASK - BREAK BIT 5 MASK BREAK BIT 
cmp AL, FN_KEY 3 CHECK FOR FUNCTION KEY 
JNZ KB4 3 JUMP IF NOT FUNCTION KEY 
TEST AH, BREAK_BIT 3 IS THIS A FUNCTION BREAK 
JNZ KB 3 JUMP IF FUNCTION BREAK 
AND KB_FLAG_2,CLEAR_FLAGS i CLEAR ALL PREVIOUS 
3 FUNCTIONS 
OR KB_LFLAG_2, FH_FLAG + FH PENDING 
IRET + RETURN FROM INTERRUPT 
Rage UNGTION BREAK 
KB_FLAG_2,FN PENDING 
JNZ KB3_1 JUMP IF FUNCTION IS PENDING 
ie KB "eLaG 2CLEAR_FLAGS ; CLEAR ALL FLAGS 
KB3_i: oR 
KBS-2; okey KB_FLAG_2,FH_BREAK ; SET BREAK FLAG 


SHE IF 
KBs: mata FLAG ALRE, 


ne 
KB4_0: TEST 


NZ KBS 
tom--enERR IF HUM_STATE 


3 RerURN FROM INTERRUPT 
BE sam rica ae Ma be 
MP_IF PHANTO 
KB. Pras 2, FH_| LFLAGSFH Lock + ARE WE IN FUNCTION 
TE? 


3 ST 


IS ACTIVE 
a KECFLAG, MUM _ STATE ‘ 
is ’ JUMP IF ROT IN HUM_STAT 
o AL i 0 + ARE WE IN NUMERIC KEYPAD REGION? 
DEC rie b JUMP LF WOT IN KEYPAD 
Wz KBG 4 } CHECK LOWER BOUND OF lg KEY) 
I--- TRANSLATE SCAN” Cope To wunedr? Oey qf WOT IH RANGE 
i E 
HOV BX, OFFSe7 bie Lcobes IS OFFSET INTO TABL 
AND AWABRERCOUES + NEW SCAN CODE IS IN AL 
HoBREAK_BIT =; {SOL ATE BREAK BIT ON ORIGINAL 
ok AL, AH i UPbars rH DE 
Kosa, ot SHORT Cont_ryr § UPDATE KeyPaD scan co 


Jrsee 


JMP $k HORT Cc 
¢ ONT INT 
kas, CHECK For y 


CONTINUE WITH INTERRUPT 


‘ GET BACK BREAK BIT IF SET 
ALID FURCTYON KEY 
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022D 
022F 


0231 
0234 
0236 


0238 
023D 


02462 


0244 
0249 
0243 
0250 
0255 


0256 
0256 
0257 
0258 
0258 
O25E 
0260 


0262 
0267 


0269 
026C 


O26E 
0273 


0278 
O27A 
O27A 
027c 
O27E 
O27E 


O27F 
0281 
0285 
0288 
028A 
028d 


O28F 


02946 
0297 


0299 
0298 
0290 
O29F 
O2a1 
O2a3 
O2a5 
O2aa 
O2ac 


O2B0 
O2B2 
02387 
0287 
028¢ 
02BD 
02¢c) 
O2cs 


e2ca 
O2Ca 
O2CF 


O2D1 
0206 
0208 
02Dc 


O2dE 
O2E) 
O2ES 
O2E5 
O2E7 
O2E9 
O2ER 
O2Ec 
O2Ec 
O2EE 


O2Fo 


O2Fs 
O2F? 
O2Fce 
O30, 
9303 
OSog 


3c 01 
75 25 


F6 C4& 80 
75 2c 
Fé 06 0088 


74 25 
Fe 06 0088 


75 1€ 


F6 06 0017 
74 17 

80 36 0088 
80 26 0088 
CF 


0E 

07 

BF 010B R 
BS 0009 
F2r AE 

74 1D 


F6 06 0088 
74 OF 


F6 C4% 80 
75 0A 


80 26 co8s 
C6 06 0087 


8A C4 


E6 60 
CD 09 


CF 


3c 31 
75 07 
Fé 06 0017 
74 D8 
89 O10C R 
28 F9 


2E: BA 85 6114 R 


Fé C4 80 
74°31 


3c 45 
75 08 
oc 80 
E6 60 
CD 09 
24 =7F 
F6 06 0088 
74°11 
3A 06 0087 


75 cc 
80 26 ooas 


C6 06 0087 
3A 06 0087 


75 BB 
80 26 cosas 


Fe 06 ocoasg 


80 SE 0087 


38 06 0087 R 


Fo 06 oo18 


1? 

3 0018 
EQ a 0338 

0 

gS 018 


40 


40 


1F 
00 


40 


iF 
it) 


OF 


40 


08 
FB 


R 08 


chp oly 3 CHECK FOR ESC KEY (=1) 
JNE KB7 3 MOT ESCAPE KEY 
so ESCAPE EREY.s LOCK KEYBOARD IN FUNCTION LOCK 
TEST AH, BREAK_BIT : IS THIS A BREAK CODE? 
JZ KBS NO PROCESSING FOR ESCAPE BREAK 
TEST KB_FLAG_2, FH_ FLAG 3 TOGGLES ONLY WHEN FN HELD 
; CONCURRENTLY 
Jz KBS NOT HELD CONCURRENTLY 
TEST KB_FLAG_2,FH_| BREAK + HAS THE FUNCTION KEY BEEN 
3 RELEASED? 


JNZ KBs 5 nee IF RELEASED. PROCESS AS 
3 
TEST KB_FLAG, LEFT_SHIFT#+RIGHT_SHIFT 3 EITHER SHIFT? 
JZ KBS + NOT HELD DOWN 
XOR KB_FLAG_2,FN_LOCK ; TOGGLE STATE 
AND KB_FLAG_2,CLEAR_FLAGS ; TURN OFF OTHER STATES 
IRET + RETURN FROM INTERUPT 
lira TABLE FOR OTHER VALID SCAN CODES 
’ 
PUSH cs 
PoP ES 3 ESTABLISH ADDRESS OF TABLE 
MOV DI, OFFSET KBOQ ; BASE OF TABLE 
MOV CX, KBOLEN + LENGTH OF TABLE 
REPNE SCASB 3 SEARCH TABLE FOR A MATCH 
JE KB10 3 JUMP IF MATCH 


gon ILLEGAL CHARACTER 
KB8: TEST KB_FLAG_2,FN_BREAK ; HAS BREAK OCCURED? 


JZ KB9 3 FUNCTION KEY HAS NOT BEEN 
3 RELEASED 
TEST AH, BREAK_BIT 3 IS THIS A BREAK OF AWN ILLEGAL 
JINZ KB ; ree RESET FLAGS OM ILLEGAL 
3 BREA 
KB85: AND KB_FLAG_2,CLEAR_ FLAGS + NORMAL STATE 
MoV CUR_ FUNC, 0 3 RETRIEVE ORIGINAL SCAN CODE 


3----FUNCTION BREAK IS NOT SET 


KB9: MOV AL, AH 3 RETRIEVE ORIGINAL SCAN CODE 
CONT_INT: 

OUT KBPORT,AL 

INT 9H 3 ISSUE KEYBOARD INTERRUPT 
RET_ SINT: | 

RET 
----BEFORE TRANSLATION CHECK FOR ALT¢FN¢N_KEY AS NUM LOCK 
KB10: CMP AL, M_KEY 3 IS THIS A POTENTIAL NUMLOCK? 

JNE KB10_2 3 NOT A NUMKEY, TRANSLATE IT 

TEST  KB_FLAG.ALT_SHIFT ; ALT HELD DOWN ALSO? 

Jz KBs + TREAT AS ILLEGAL COMBINATION 
KB10_1: MOV CX, OFFSET KBO + 1 ; GET OFFSET TO TABLE 

SUB DI, Cx 3 UPDATE INDEX TO NEW SCAN CODE 

3 TABL 
MoV AL, CS:KBICDI) ; MOV NEW SCAN CODE INTO REGISTER 


3-~--TRANSLATED CODE IN AL OR AN OFFSET TO THE TABLE “SCAN™ 
KB12: TEST AH, BREAK_BIT 3 IS THIS A BREAK CHAR? 

JZ KBIS 3 JUMP IF MAKE CODE 
s-~-~CHECK FOR TOGGLE KEY 


cMP AL, NUM_LOCK 3 IS THIS A NUM LOCK? 
INZ KB12_2— 3 JUMP IF NOT A TOGGLE KEY 
OR AL, 80H 3 TURN ON BREAK BIT 
ouT KBPORT,AL 
INT 9H 3 TOGGLE STATE 
AND AL, AND_MASK-BREAK_ BIT ; TURN OFF BREAK BIT 
KB12_21 TEST KB_FLAG_2, FN, -BREAR 3 HAS FUNCTION BREAK OCCURED? 
Jz KB12_3 JUMP IF BREAK HAS NOT OCCURED 
CMP AL, CUR_FUNC 3 IS THIS A BREAK OF OLD VALID 
3 FUNCTION 
INE RET_INT } ALLOW FURTHER CURRENT FUNCTIONS 
AND KB_FLAG_2,CLEAR_FLAGS 
eT ay CUR_FUNC,90 CLEAR CURRENT FUNCTION 
] 
IRET i : 3 RETURN FROM INTERRUPT 
KBXZ_S: CMP AL, Cg aa s1s uae BREAK OF FIRST FUNCTION? 
T 3 IGNOR 
AND Ke FL FraG_2, AND a ta 3 TURN OFF PENDING 
; N 
JMP KB12 3 CLEAR CURRENT FUNCTION AND RETURN 


ocee Y Was BEEN PRESSED 

kbise Test xB. FLAG_2,FN_BREAK ; CHECK IF FUNCTION KEY HAS BEEN 
} PRESSED 
3 JUMP IF NOT SET 


KB 
jo-==FUNCTION Brean “ths ALREADY OCCURED 


3 1S THIS A NEW FUNCTION? 
ie ot id " ) INITIALIZE NEW FUNCTION 
CMP CUR_FUNC,AL 3 I$ THIS NON-CURRENT FUNCTION 
xed SJUMP IF NO FUNCTION IS PENDING 
ie i). .TO RETRIEVE ORIGINAL SCAN CODE 
ATION SEQUENC 
ea sae “eae Th al 5 INITIALIZE CURRENT FN 
keels DR UMKOULKEY i IS THIS A ENTER,W OR T KEY ? 
CHE Este + NO. JMP KBL6 
af Pee } EXTENDED SET CODE 
MOV AAU 3 CLEAR AL 
hy an 3} KANAKAN ROUTINE 
me THE HOLD FUNCTION 
KB1G: I$ THIS 
cne AT } NO. IMP CONT_INT 
Jn 
j=-=PUT KEYBOARD IN HOLD. Sra STATE ; CANNOT GO IN HOLD STATE IF 
Kbié i: TEST | KB_FLAG_ } ITS ACTIVE 
rs ; DONE WITH INTERRUPT 
wuz KBISTZ.  woup STATE + TURN ON HOLD FLAG 
oR : 


AND IKE FLAG 2, OF» } RESET KEYBOARD LATCH 
IN AL, Rar ro HOLD_STATE > STILL IM HOLD STATE? 


T  KB_FLA 
woLo: TEST APG 
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Appendix A. 


OSOA 6 AC OUT WMI_PORT,AL 3 ENABLE NMI 
osec 55 FS INZ HOLD 3 Pacesce’ LOOPING UNTIL KEY IS 
s 
Q3OE CF KB16_2: IRET + RETURN FROM INTERRUPT 48H 
dons ee erat Bae FUNCTION 
QSOF F6 06 0018 R 08 PRTSC: KB_FLAG_1,HOLD. Shit + IS HOLD STATE IN PROGRESS? 
0314 74 06 ii KB16_3 To CONTINUE WITH PRTSC 
0326 80 26 0018 R FT AND KB_FLAG_ 1,0FFH- HOLDS STATE 5; TURN OFF FLAG 
OS1B OCF IRET 
o3sic KB16_3: 
O31C 80 26 0338 R FB AND JKB_FLAG_2,0FBH 
0321 83 Ce 06 ADD SP, 3x2 + GET RID OF CALL TO INTERRUPT 48H 
0326 07 PoP ES + POP REGISTERS THAT AREN'T 
3 MODIFIED IN INTS 
0325 1F PoP os 
0326 SA PoP OX 
0327 «59 PoP cx 
0328 5B PoP BX 
0329 ES Ao IN AL, RMI_PORT 3 RESET KEYBOARD LATCH 
032B CD 05 INT 5H 3 ISSUE INTERRUPT 
O32D 58 POP AX 
OS2E SF POP DI 
O3S2F SE veer SI 3 POP THE REST 
0330 CF 
03313 KEY62_ INT ENDP 
3 TYPAMATIC 
3 THIS ROUTINE WILL CHECK KEYBOARD STATUS BITS IN KB_FLAG_2 
3 AND DETERMINE WHAT ate THE KEYBOARD IS IN. APPROPRIATE 
3 ACTION WILL BE TAKEN 
INPUT 
a AL= SCAN CODE OF KEY WHICH TRIGGERED HON-MASKABLE INTERRUPT 
> 


3 CARRY BIT = 1 IF NO ACTION IS TO BE TAKEN. 

: CARRY BIT = 0 cet SCAN CODE IN AL SHOULD BE PROCESSED 
HER. 

3 MODIFICATIONS TO THE VARIABLES CUR_CHAR AND VAR_DELAY ARE 

; MADE. ALSO THE PUTCKAR BIT IN KB —FLAG_ 2 IS TOGGLED WHEN 

3 THE KEYBOARD 1S IN HALF RATE MODE 


J mrww enna nen ene nee eect cerns io ete wets meee 
0331 TPM PROC = HEAR 
0331 53 PUSH 
0332 38 06 0085 Rk che CUR_CHAR, AL + IS THIS A NEW CHARACTER? 
0336 74 32 TP2 3 JUMP IF SAME CHARACTER 
Saas ine--NE CHARACTER CHECK FOR BREAK SEQUENCES 
A8 80 TEST AL, BREAK_BIT IS THE NEW KEY A BREAK KEY? 
isc faa a TO oa 3 JUMP IF NOT “A BREAK 
3 CLEAR BREAK 
O33E 38 06 0085 R CHP CUR_CHAR, AL 3 1S NEW CHARACTER THE BREAK OF 
0342 8A CA 3 LAST MAKE? 
eae OB mov ALLAH 3 RETRIEVE ORIGINAL CHARACTER 
a Le JNZ 1P 3 JUMP IF NOT THE SAME CHARACTER 
Osee Tee eee es MoV CUR_CHAR, 60 3 CLEAR CURRENT CHARACTER 
aiee oe TR: cic 3 CLEAR CARRY BIT 
58 POP BX 
0360 C3 RET 3 RETURN 
BSSE 2 0085 R Troe NOW Ze CUR CHARA ACS ee SAVE NEW CHARACTER 
: 3 SAVE NEW C c 
oases se ce gene & ot AND —-- VAR_DELAY,OFOH 3 CLEAR VARIABLE DELAY 
0358 F606 008s KOE Hest” RACPCAGTESENTR DRLEA Auer ae Tate ReTAG Ta 
3 INITIAL DELAY? 
O32 88 GE 0086 R OF on ve 3 DEFAULT DELAY 
0367 «EB ED on VAR DELAY, »DELAY_RATE ; INCREASE DELAY BY 2x 
issn CHECK’ IF 
Osce bs cp ete RB Trae Test) Ka Lhe _2VTHPELDEF 7 TS TYPARATEC. TURNED OFF? 
0370 BA 1E bOKG RP nz TPS 3 JUMP IF TYPAMATIC RATE IS OFF 
0376 80s br MOV BL,VAR_DELAY =; GET VAR_DEALY 
0377 0a DB AND BL, OFH 3 MASK OFF HIGH ORDER(SCREEN RANGE) 
0379 (76 oD 7 aL BL + IS INITIAL DELAY OVER? 
= FE CB DEC BL : DECREASE DELAY BAIT B BY ANOTHER 
80 26 008 3 CHARACTER 
0382 08 ie sn ay van betty 
EB 1S L 
JnP SHORT TP4 
0388 F6 06 0OB8 R O4 se ee ar TIRE. 10 OUTPUT CHAR 
038D 74 BC TPS: Test KB_FLAG_2,HALF RATE 3 ARE WE IN HALF RATE MODE 
ose, 20 36 8088 Rk on UMP IF WE ARE IN KORMAL MODE 
0394 FG 06 008g R 9 XOR xb —FLAG_2,PUT 
0399 75 Be 1 TEST ts CHAR + TOGGLE BIT 
0393 Juz ~FLAG_2,PUTCHAR 3 IS IT TIME TO PUT OUT A CHAR 
0398 FO TP4: s HOT TIME TO OUTPUT CHARACTER 
039c 58 st¢ 3 SKIP THIS CHARACTER 
039D C3 POP Bx 3 SET CARRY FLAG 
O39E TPH RET 
Phe ENDP 
+ KEYBOARD TAO) neat scerecciesusutbesatueeendeest? 


1Heur THESE ROUTINES PROVIDE KEYBOARD SUPPORT 


(AH)=0 READ THE 
NEXT JISBBIT CHARACTER STRUCK FROM THE 
ceynoa ARD. RETURN THE RESULT IK (AL), SCAN CODE IN 


SET TH 
AVALLABLE TO BE RE,RDICATE IF AM JISEBIT CHARACTER 18 


51 == HO Cope 

=~ AVAILABL 
CZF 5, CODE 15 AVATLABLE 
READ 15 Th Axe NEXT CHARACTER IN THE BUFFER TO BE 


D THE ENTRY REMAINS IN THE BUFFER 


; 
i 
3 
rf 
; CAH) =] 
s 
s 
5 
t 
rf 
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3 
5 
3 
3 
3 
3 
s 
3 
3 
3 
3 
3 
3 
3 
3 
5 
3 
3 
t 
3 
3 
5 
3 
3 
; 
3 
3 
8 
$ 
3 
, 
5 
3 
3 
3 
‘ 
3 
3 
3 
3 
$ 
3 
3 
s 
3 
3 
s 
3 
3 
3 
tf 
3 
3 
5 
4 
4 
ty 
t 
3 
iy 
5 
iy 
s 
3 
5 
’ 
3 
r 
5 
5 
t 
5 
3 
3 
t 
3 
3 
s 
5 
t] 
3 
5 
5 
‘ 
5 


K 


CAKDE2 


CAHD=S 


CAHD=4 


CAH=3) 


CAH285) 


(AH=7) 


ouTPUT 


3 
ASSUME CS:CODE,DS:DATA 
PROC 


RETURN THE CURRENT SHIFT S$ 
aL REOISTER TATUS IH AL AND AH REGISTERS 
1 0 


! 3 

I--¢-D01=5RIGHT SHIFT KEY IS DEPRESSED 
1O=LEFT SHIFT KEY IS DEPRESSED 
11=LOCK SHIFT KEY IS DEPRESSED 

~>CONTROL SHIFT KEY IS DEPRESSED 

“>ALTERMATE SHIFT KEY IS DEPRESSED 

“>SCROLL LOCK STATE HAS BEEN TOGGLED 

~>RESERVED 


w->INSERT STATE IS ACTIVE 


wee eS 
ere rere) 
ewe oe ee ND 


t 
! 
! 
! 
! 
! 
$ 


ee ow cee eee oe 





os ot ew cm cere eae 





AH REGISTER 





76543 21 «86 

Fw ek PY tts 

ft ! f PY L Y f  fd1SZENKAKU MODE. OSHANKAKU MODE 
Lot tf f ff  feete--9200SALPHA/NUMERIC SHIFT 

wf } t OL=KATAKANA SHIFT 

::: 3 1 1O=HIRAGANA SHIFT 

1 PF YF fF  feweeeew--->RESERVED TO 1 

Penton ten gon nn nnn n= - = RESERVED 


SET TYPAMATIC RATES. THE TYPAMATIC RATE CAN BE 

CHANGED USING THE FOLLOWING FUNCTIOXS: 

CALD=0 RETURN TO DEFAULT. RESTORES ORIGINAL 
STATE. 1.€. TYPAMATIC OM, NORMAL INITIAL 
DELAY, AND NORMAL TYPAMATIC RATE. 

CALI EL INCREASE INITIAL DELAY. THIS IS THE 
DELAY BETWEEN THE FIRST CHARACTER AND 
THE BURST OF TYPAMATIC CHARS. 

CAL =E2 HALF_RATE. SLOWS TYPAMATIC CHARACTERS 
BY ONE HALF. 

CALI=ES COMBINES AL=1 AND AL=2. INCREASES 
INITIAL DELAY AND SLOWS TYPAMATIC 
CHARACTERS BY ONE HALF. 

CALD=4 TURN OFF TYPAMATIC CHARACTERS. ONLY THE 
FIRST CHARACTER IS HONORED. ALL OTHERS 
ARE IGNORED. 

AL I$ RANGE CHECKED. IF AL<O OR AL>¢ THE STATE 

REMAINS THE SAME. 


MAMNOTEMOUE EACH TIME THE TYPAMATIC RATES ARE 
CHANGED ALL PREVIOUS STATES ARE REMOVED. I.E. IF 
THE KEYBOARD IS IN THE HALF RATE MODE AND YOU WANT 
TO ADD AN INCREASE IN TYPAMATIC DELAY, YOU MUST 
CALL THIS ROUTINE WITH AH=3 AND AL=3. 


ADJUST KEYBOARD BY THE VALUE IN AL AS FOLLOWS: 

CAL =0 TURN OFF KEYBOARD CLICK. 

CALD=1 TURN ON KEYBOARD CLICK. 

+ 1s gAeee CHECKED. THE STATE IS UNALTERED IF 
<> 1,0. 


CHANGE THE KBD SHIFT STATUS 


AL REGSTER 

7654321 8 

12 7 1-2 fF 8 

Lf tf t 2 bf teetece> OOZHANKAKU , OL=ZENKAKU 

rs oe ee oe | 1O=TOGGLE , L12=NOT CHANGE 

ToL bf feetececeen--> OOSALPHA/NUMERIC , OL=KATAKANA 

' 22 4 1O=HIRAGANA » 112 NOT CHANGE 
Lf Paeteeeencesnnenn--> QO=CAPS OFF . OL=CAPS ON 

-. LO=TOGGLE » L1=NOT CHANGE 

Pon tenn none en en een no---> OOSEXIT KANAKAN O1=ENTER KANAKAN 


LO=TOGGLE » LI=NOT CHANGE 
SAME AS AH=5 BUT THE INDICATER ISN'T CHANGED. 


WHNNOTEIOOG WHEN YOU USE THIS FUNCTION, 
YOU MUST HAVE THE STACK WHOSE LENGTH IS MORE THAN 130 WORD. 
THIS FUNCTION MAY USE THAT. 


INDICATOR AND KANAKAN ON/OFF 

AL REGSTER 

765 43 22 80 

rirrereirtd 

Pot tof ff 2 fessd KAMAKAN Q50N , 1S0FF 
fof of ff 2 Psetese> INDICATOR 50N » 1=0FF 
Joedentendententocssonna> RESERVED 


AS NOTED ABOVE, ONLY AX AND FLAGS CHANGED 
ALL REGISTERS RETAINED 


FAR 


eeeONeE } INTERRUPTS BACK ON 
TI sé 3 SAVE CURRENT DS 
PUSH : 5 SAVE BX TEMPORARILY 
ony bbs 3 rane DS AT BIOS DATA SEGMENT 
3 = 
OR AH, AH 3 Chg aaa 
5 AHS 
DEC AH 3 ASCII_STATUS 
JZ K2 y AHE2 
DEC AH } SHIFT_STATUS 
JZ LS} 5 AHSS 
DEC AH 3 SET TYPAMATIC RATES 
JZ TRATE 3 AHE4 
DEC AM rex } ONZOFF KEYBOARD CLICK 
Jz ; 
DEC aH 


0424 
0425 


6426 
0428 
042a 
o42¢ 
O42E 
0430 
0432 
0432 
0434 
0436 
0438 
OS3A 
043¢ 
O43E 
0440 
0442 
0447 
O44A 
046A 
O44F 
04652 
6452 
0457 
0657 
0459 
0458 
0450 
O45F 


a0 
BA 
EB 


3c 


1E OIA R 
1€ 001C RX 
FS 
07 


B 
04B9 R 


1E GOLA R 
3F 


1€ COIAR 
1E o01C R 
07 


O17 R 
26 0336 ® 
25 


04 


7F 21 


EB 1 


26 0088 R FL 
£0 

06 0088 R 

4 


ce 
07 
26 0018 R FB 
09 


o1 
05 
OE 0018 R O46 


26 0017 R BF 
BOE 96 


OE 6017 R ao 
06 90 


36 0017 R 49 


TEST AH,7FH 3 
JZ CHG_SHIFY 3 
DEC AH 3 
ey 4 RET_INTI6 3 
DEC AH ; 
JNZ RET_INT16 H 
JMP CHG_SW 3 


H=5 OR AH=85H 
SAGE THE KBD SHIFT STATUS 
=6 


ILLEGAL FUNCTION CALL 
AH=7 


ILLEGAL FUNCTION CALL 
CHANGE THE KANAKAN AND INDICATOR SWITCH 


3 
Boo-~-> READ THE KEY TO FIGURE OUT WHAT TO DO’ 


Kl: 3 ASCII READ 
STI 3 INTERRUPTS BACK ON DURING LOOP 
NOP 3 ALLOW AN INTERRUPT TO OCCUR 
cll 3 INTERRUPTS BACK OFF 
MOV BX,BUFFER_HEAD 3 GET POINTER TO HEAD OF BUFFER 
CMP BX,BUFFER_TAIL ; TEST END OF BUFFER 
JZ Ki + LOOP UNTIL SOMETHING IN BUFFER 
MOV AX, CBX) 3 GET SCAN CODE AND ASCII CODE 
CALL K4 3 MOVE POINTER TO NEXT POSITION 
MOV BUFFER_HEAD,BX 3 STORE VALUE IN VARIABLE 
JMP SHORT  RET_INT16 
3 
poron-- ASCII STATUS 
, 
K2: 
CLI 3 INTERRUPTS OFF 
MOV BX,BUFFER_HEAD ; GET HEAD POINTER 
CMP BX,BUFFER_TAIL ; IF EQUAL (Z=1) THEN NOTHING THERE 
MOV AX, CBX} 
STI 3 INTERRUPTS BACK ON 
POP Bx 3 RECOVER REGISTER 
PoP DS + RECOVER SEGMENT 
RET 2 3 THROW AWAY FLAGS 
3 
go----- SHIFT STATUS 
3 
K3: 
MOV AL, KB_FLAG 3 GET THE SHIFT STATUS FLAGS 
MOV AH, JKB_FLAG 3 GET THE JKB_FLAG 
JMP SHORT RET_INT16 
3 
govn--- SET TYPAMATIC 
TRATE: 
CMP AL.4 + CHECK FOR CORRECT RANGE 
JG RET_INTIG 3 IF ILLEGAL VALUE IN AL IGNORE - 
AND KB WF LAG 2,0F1H 3 MASK OFF ANY OLD TYPAMATIC STA 
SHL AL, > SHIFT TO PROPER POSITION 
OR KB "FLAG: 2,AL 
JMP SHORT —RET_INT16 
3 
gro----- ADJUST KEY CLICK 
3 
wee OR AL,AL 3 TURN OFF KEYBOARD CLICK? 
JNZ KCLICK1 3 JUMP FOR RANGE CHECK g 
AND KB_FLAG_1,AND_MASK-CLICK_ON ; TURN OFF CLIC’ 
JMP SHORT RET_INTI6 
KCLICK1 
* cmp AL,2 + RANGE CHECK 
SNE RET_INT16 NOT IN RANGE, RETURN 
OR KB_FLAG_1,CLICK_. on 3 TURN ON KEYBOARD CLICK 
Hf 
sreeee- INTERRUPT RETURN 
‘ 
RET_INT16: 
= Pop BX 3 RECOVER REGISTER 
PoP DS 3 RECOVER REGISTER 
IRET 3 RETURN TO CALLER 
t 
bw---- CHANGE KEYBOADR STATUS BY THE AL 
t 
CHG_SHIFT: 
PUSH Ax 
PUSH cx 
5 
MOV CX, AX 3 SAVE AX INTO CX 
AND AL,OCOH 3 
CMP AL, OCOH 3 CHNGE KANAKAN ? 
JE CH_CAP 3 IF AL=0COH THEN CH_CAP 
a 
8 
CH_cAP: 3 KANAKAN ROUTINE 


MOV AL.CL 


3 
AKO AL, 30H ’ 
CMP AL,30H 3 
te 
+ 20H T 
cx. ToG ; OGGLE ? 
L,10H 3 
ae cat ein + CAPS BIT ON ? 
B_FLAG, NOT CAPS_STATE 
SMP = 
CAP_EHT: sical 
OR KB_FLAG, CAPS_STATE 
JMP is a 
CAP_TOG: biieawal 
Hi dane XOR KB_FLAG,CAPS_STATE 
Mov AL, CL 
AKD AL, OCH 
pg AL Och 
H_2 
SHR Au. 


OEAD R 


03 
1? 


26 0338 R FC 
a O338 R 


os 


0336 


0336 
90 
0336 
90 


0336 


FFO2 


os 


FFO. 


78 


0421 R 


6c 
6E 


46 
36 


0082 R 
0080 R 


co 
FF 
12 
ib 
07 
ic 
FF 


60 
FF 
74 


POooouw 
H—nvVoan 


1D 


04 


FF 
1F 
14 
0A 
08 
1A 
FF 


61 
FF 
FF 


vv ww 
UwUoON OU 


R F9 
O336 R 


R FE 


R01 


FF 
FF 
19 
FF 
DA 
18 
FF 


62 
77 
78 


34 
30 


74 
64 


FF 
7F 


01 
0B 
03 
FF 


63 
FF 
FF 


evr NU 
eoo ov 


AND JKB_FLAG,NOT NOT_ALPHA_STAT 
OR JKB_FLAG,AL 
CH_H_2: 
MOV AL,CL 
AND AL, 03H 
cup AL, 03H 
JE CHG_SHIFT_R 
cme AL,O2H 3 TOGGLE ? 
JE H_2_T00 
CMP AL,O1H 
JE Z_ENT 
AND JKB_FLAG, NOT ZENKAKU_STATE 
JMP CHG_SHIFT_R 
Z_ENT: 
OR JKB_FLAG, ZENKAKU_STATE 
JMP CHG_SHIFT_R 
H_Z_T0G: 
xOR JKB_FLAG, ZENKAKU_STATE 
CHG_SHIFT_R: 
TEST CH, 80H 
JNZ CHG_S_R 
CALL IN 
CHG_S_R: 
PoP cx 
PoP AX 
JMP RET_INTL6 
rf 
joooo- - CHANGE KANAKN AND INDICATOR SWITCH 
3 
CHG_SW: 
CMP AL,3 
JG CHG_SW_3 
AND JKB_FLAG_2,0FCH 
OR JKB_FLAG_2,AL 
TEST ALT 
JZ CHG_SW_1 
MOV AX, OFFO2H 
JMP SHORT CHG_SW_2 
CHG_SW_1: 
MOV AX, OFFO1H 
CHG_SwW_2: 
78H 
CHG_SW_3: 
JmP RET_INT16 
KEYBOARD_IO ENDP 
go----- INCREMENT A BUFFER POINTER 
Ks Proc NEAR 
INC BX 3 MOVE TO NEXT WORD IN LIST 
INC BX 
CMP BX,BUFFER_END ; AY END OF BUFFER? 
JNE KS 3 NO, CONTINUE 
oo MOV BX,BUFFER_START 3 YES, RESET TO BUFFER BEGINNING 
: RET 
K4 ENDP 
gro---- TABLE OF sphere KEYS AND MASK VALUES 
K6 LABEL 
DB RANGE _KEY, MUHEN_KEY, HENKAN_KEY 
DB ALPHA_KEY, KATAKANA_KEY, HIRAGANA_KEY 
DB INS_KEY 3 INSERT KEY 
DB NUM_KEY, SCROLL_KEY, ALT_KEY, CTL_KEY 
DB LEFT_KEY, RIGHT_KEY 
K6L Equ $-K6” 
bro-s-- SHIFT_MASK_TABLE 
K? LABEL” BYTE 
DB KANJI_SHIFT, MUHEN_SHIFT,HENKAN_SHIFT 
OB CAPS_ SHIFT, KATAKANA_SHIFT,HIRAGANA SHIFT 
DB INS_SHIFT 3 INSERT MODE SHIFT 
DB NUM_SHIFT. SCROLL_SHIFT,ALT_SHIFT,CTL_SHIFT 
DB LEFY_SHIFT,RIGHT_SHIFT 
bo---=- SCAN CODE TABLES 
K8 DB 27-1, O,-Lerde~LeSOon2 
DB Ss Ws eS eee Oe tte eee 
oB 2305 18,20525.21,9,25 
DB 16,27,29,18.-1,2519 
DB 45607 eB LOM L223 
DB =1,71528,26524,3,22,2 
DB AG LS cle rderdemdem ded 
DB . t,-1 
proseeee- CTL TABLE SCAN 
Ko LABEL re 94,95, 96,97-98,99+ 100,101 
De 102,203,-ko~Le ALM “Lo LSZ,-2 
De LPS pode LMG o~D ALT R LLB, ad 
DB “1 
peen-e--- LC TABLE . 
kio LABEL be 01BH, 11254567890 3", 08H,09K 


es squertyuiopl)'sODH,~2,"aadfgh3kis", 0278 
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0558 


oS56c 
056D 
056D 


os7c 


0595 


OSA7 
OSA? 


OSAE 
O5B1 
6581 
0536 


OSBB 
o5BB 


08 
&9 
F6 
€9 
F6é 


68 GA 6B 6C 3B 
FF SC 7A 78 63 
FF 2A FF 20 


69 GA 6B 6C 
6E GF 70 71 


38 39 2D 34 35 
23 31 32 33 30 


48 49 FF 43 FF 
4F 5@ 51 52 53 


sooo E 
SE 0017 R 
1E 0336 R 
ES 4007 


EO 
FF 
06 


OAFO R 
O7CO R 


EF 06C7 


R 
+ BA AS O4D3 RB 
80 


03 
6727 R 


FF o9 
07 


26 017 R 
O7C9 R 


06 0017 R O64 
os 
O7B9 R 


66 0017 R og 


74 68 


3c 
84 


3A 
26 Cola RK 


DB GOH,-1,5CH, *zxcvbnm,./',-1,'H',-1," 
DB 71 
gone =< (UC agi 
ll LABE 
‘ DB 27,°12908",37,05EH,"8x()_o*,08H,0 
DB "QWERTYUIOP *,ODH»-1,"ASDFGHJKL:"" 
i) ) TER S-1,"|ZXCVBHM<>2",-1,0,-1," °,-2 
gwww~wm~ UC TABLE SCAN 
Ki2 LABEL BYTE 
OB 84,85,86,87,88,89,90 
DB 91,92,93 
s--"-=-—= ALT TABLE SCAN 
Kis LABEL BYTE 
DB 104,105,106,107,108 
DB 109,110,111,112,113 
g~-~-~—= NUM STATE TABLE 
K14 LABEL BYTE 
DB "789-456¢1230." 
b-="-=— BASE CASE TABLE 
Kis LABEL BYTE 
DB 71,72,73,-1,75,-1,77 


DB 
700000000000 000000080800E 


= »80,81,82,8 
Sins RU NAOH oicrnakaaianraanxnnanve 


KEYBOARD INTERRUPT ROUTINE 
(0000000000000 


KB_LINT PRoc FAR 
STI 3 ALLOW FURTHER INTERRUPTS 
PUSH = AX 
wt 8 
P 
PUSH Dx 
PUSH = ST 
PUSH DI 
PUSH DS 
PUSH ~—s_ES 
Clb 3 FORWARD DIRECTION 
CALL pps. 3 
MOV BH, KB_FLAG 3 
Mov BL, JKB_FLAG 3 
AND BX,4007H 3 MASK KBD STATUS FLAG 
PUSH BX 3 MEMORIZE KBD STATUS 
MOV AH) AL 3 SAVE SCAN CODE IN AH 
boo=~-= TEST FOR OVERRUN SCAN CODE FROM KEYBOARD 
CMP L,OFFH rae 6) aeey ton ote gtent 
NZ 16 3 NO, TE R 
CALL ERROR_DEEP ; CALL ERROR BEEP ROUTINE 
JmP K 3 END OF INTERRU 
kwo-=-= TEST FOR SHIFT KEYS 
t + TEST_SHIFT 
AND AL, O7FH 3 TURN OFF THE BREAK BIT 
POP ES 3 ESTABLISH ADDRESS OF SHIFT TABLE 
MoV DI,OFFSET K6 =—s-s. SHIFT KEY TABLE 
MoV CX,K6L 3 LENGTH 
REPHE SCASB 3 Loox THROUGH THE TABLE FOR A 
ATCH 
“i pat ; RECOVER SCAN CODE 
3 JUMP IF MATCH FO 
JMP T FOUND 
jemesonn Sey Key eounp 3 IF XO MATCH, THEN SHIFT NO 
Kl7a ae DILOFFSET Kéo1 5 apgust PTR TO SCAN CODE MATCH 
AWCS:K7(DI} 5 GET MASK INTO AN 
er ae + TEST FOR BREAK KEY 
JMP = 
eeedns, 3 BREAK_SHIFT_FOUND 
ins SHIFT MAKE FOUND, DETERMING SET OR TOGGLE 
‘id pres 3 IS THIS A TOGGLE KEY 
; 3 YES, HANDLE TOGGLE KEY 
Fomo""= PLAIN SHIFT KEY, SET SHIFT OK 
rpc luca ts et | Feb ter at 
Kia: OGGLED SHIFT Key, Tesy FOR 1ST MAKE OR NOT 
TE : T-TOGGLE 
Mad Rig tAG> CTL_sHIFT 3 cHecn cee SHIFT STATE 
Jnp - 
K18_is Ks 3 JUMP IF CTL sTaTE 
TEST oka Flag ALT 
' JZ K23 ’ SHIFT 5 checK FOR ALTERNATE SHIFT 
Pear 5 JUMP IF HOT ALTERNATE SHIFT 
} ALTERNATE sHrey 
CMP AL, ALP 
wn Kig MALKEY , ALTERNATE-ALPHA_KEY = CAPS 


AWKB_FLaG 1 
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+ IS Key ALREADY DEPRESSED 


o 

~ 
wn 
~ 


53 
26 0018 R 


26 0017 R 
0709 R 


06 OSS7 R 
OE O337 R 


26 0336 R 
39 90 


06 OS3S7 R 
OE O3S37 R 


OE O336R 
1E 90 


7F 90 
06 0338 R 
OE 0338 R 


” 
o 
° 
u 
uw 
oo 
RRA ON 


0338 R 


26 OS3a R 
4 OS3eR 


26 00 

¢ wR 
26 Co1s R 
26 0017 R 


07C9 R 


5200 
OASS R 


10 


10 
FE 


08 
OL 


40 
46 


F9 


Kid: 


K20: 


K20_1: 


K20_2: 


K20_3: 


Kai: 


3 ewww e 


; 
K22: 


K22_l: 


K22_2: 


K22_3: 


K22_4: 


K22_5: 


K22_6: 


K22_72 
K22_8: 


, 
K23: 


JMP 


Kal 
KB_FLAG_1,AH 
KB_FLAG, AH 
K26 


AL, KATAKANA_KEY 
K20 


JUMP IF KEY ALREADY DEPRESSED 
INDICATE THAT THE KEY IS 
DEPRESSED 

TOGGLE THE SHIFT STATE 
INTERRUPT RETURN 


3 IS THIS THE KATAKAWA_KEY 
3 MOT KATAKAMA_KEY 


aa celiac ine nai 3 IS KEY ALREADY DEPRESSED 


JUMP IF KEY ALREADY DEPRESSED 


3 
JKB_FLAG_1,HAMKAKU_SHIFT ; INDICATE THAT THE KEY IS DEPRESSED 


JXB_FLAG,NOT ZENKAKU_STATE 
Kal 3 


AL, HIRAGANA_KEY 
K20_1 
K20_2 


SEL PUAR Ss ZENRARM_ SHEET 


3 TOGGLE THE SHIFT STATE 
INTERRUPT RETURN 


IS THIS THE HIRAGAMA_KEY 
MOT HIRAGANA_KEY 


3 IS KEY ALREADY DEPRESSED 
JUMP IF KEY ALREADY DEPRESSED 


- 


21 s 
JKB_FLAG_1,ZENKAKU_SHIFT 5 INDICATE THAT THE KEY IS DEPRESSED 
JKB_FLAG, ZENKAKU_STATE 3 TOGGLE THE SHIFT STATE 


K21 
AL, KANJI_KEY 
K20_3 

AL, INS_KEY 
Kal 

K22_6 


SES FLAR. Ze KHUN SHTFS 
K2 
JKB_FLAG_2,KNUM_SHIFT 


AH,AL 
AL, 38H 
78H 


K26 


NOT ALTERNATE SHIFT 


cmp 
INZ 
TEST 
JNZ 
OR 
AND 
JMP 


MOV 


AL, ALPHA_KEY 


K22_1 
JKB_FLAG_1,ALPHA_SHIFT 
K22_7 


JKB_FLAG_1,ALPHA_SHIFT 
JKB_FLAG, ALPHA_STATE 
26 


AL, RATAKANA_KEY 
K22_2 
AL, HIRAGANA_KEY 
K22_3 


AH, JKB_FLAG_2 


”- 


“1S KNUMLKEY 
3 I$ INS_KEY 


3 IS KEY ALREADY DEPRESSED 

3 JUMP IF KEY ALREADY DEPRESSED 

3 INDICATE THAT THE KEY IS DEPRESSED 
$ 

KANAKAN ROUTINE 


INTERRUPT RETURN 


- 


3 SHIFT TOGGLE KEY HIT; PROCESS IT 
3 


IS THIS THE ALPHA_KEY 

NOT ALPHA_KEY 

IS KEY ALREADY DEPRESSED 

JUMP IF KEY ALREADY DEPRESSED 
INDICATE THAT THE KEY IS DEPRESSED 
TOGGLE THE SHIFT STATE 

INTERRUPT RETURN 


IS THIS THE KATAKANA_KEY 
YES, KATAKANA_KEY 
IS THIS THE HIRAGANA_KEY 
NOT HIRAGANA_KEY 


IS KEY ALREADY DEPRESSED 


we we we we we we 


we we we we 


K22_7 JUMP IF KEY ALREADY DEPRESSED 
JKBTFLAG_1,AH 3 INDICATE THAT THE KEY IS DEPRESSED 
JKB_FLAG,ALPHA_STATE 
JKB_FLAG, AH 3 TOGGLE THE SHIFT STATE 
K26 3 INTERRUPT RETURN 
AL, KANJT_KEY —-s-_:IS THIS THE KANJI_KEY 
K22_4 3 KANJI_KEY 
AL, MUHEN_KEY = 3-_:* IS. THYS THE MUHEN_KEY 
K22_4 3 MUHEN_KEY 
AL, HENKAN_KEY 3 IS THTS THE HENKAN_KEY 
Kaz, 4 ; 3 MENKAN_KEY 
SHORT K22_! 3 
; IS KEY ALREADY DEPRESSED 
ee TS AP IF KEY ALREADY DEPRESSED 
JKBTFLAG_2,AH 3 INDICATE THAT THE KEY IS DEPRESSED 
JRBUELAG, ZENKARUL CHAR eNKAKU CHARACTER 
ett } SET AH SCANCODE 
AL, 20H 3} SPACE CHARACTER 
78H ; KANAKAN ROUTINE 
SHORT K22_7 } INTERRUPT RETURN 
ner ' SET AM SCONCE 1ST BYTE 
ai jRANMEAN ERAUE aD OYTE 
oer i PENAKAN ROUTINE 
BHORT K22_7 } INTERRUPT RETURN 
. DY DEPRESSED 
AH, KB_FLAG_L 1S KEY MEY ALREADY DEPRESSED 
K2207 } duprcate THAT THE KEY IS 
KD_FLAGAL/AN 7 DEPRESSERe guIFT STATE 
T 
KB_FLAG, AH 1 TOGLEgR 1ST MAKE OF INSERT KEY 
ALT INS_ 
K22_8 
a ; JUMP IF NOT INSERT KEY 
K26 0 AH, @ INTO A 
aN CODE INT D L 
AX, INS_KEVH256 att $hto ouTPUT BUFFER 


MP x57 
BREAK SHIFT FOUND 
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BREAK-SHIFT~FOUND 
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O7FB 
O7FD 


FF 
1D 


De 
26 
BS 
10 


Ool7 Rk 


0O19 R 


2 &4 
26 
A CO 


OO19 R 


oS 
OAIA R 
o7co R® 


BA 
19 
26 
26 
06 
68 
26 


64 


EE 
oD 
26 


36 
16 
E2 


DA 
os 


0337 R FE 
0018 R BF 
0018 R 02 


0018 R FD 
90 


0337 R FD 
0337 R EF 
90 


0337 R FB 
0337 R F7 
90 


R 7F 
R BF 


ouu 
uu 
© © 


0338 R DF 
90 
0338 R EF 
90 


0018 R 


0018 R 08 
0018 R F? 
OO17 R 


OS3E R 
4007 


OSFF 


16 


06 0017 R 08 
03 


OSEO R 


06 0017 R 04 
69 


53 
09 


96 0072 R 1234 


0000 E 


52 
09 


cup DI,9 3 IS THIS ATOGGLE KEY 
JB K24 + YES, HANDLE TOGGLE KEY 
NOT AH + INVERT MAS 
ARD KB_FLAG, AH 3 TURN OFF SHIFT BIT 
cnr ALZALT_KEY4#80H =; Is THIS ALTERNATE SHIFT RELEASE 
NE K23_ 3_INTERRUPT_RETURN 
— ACTeRwaTE SiieT ney RELEAS SED. GET THE VALUE INTO BUFFER 
Mov PALT_ 
XOR AH, 3 SCAN CODE OF 0 
MoV ALT_INPUT, AH + ZERO OUT THE FIELD 
OR ALL AL 3 WAS THE INPUT=0? 
JE K23_1 3 INTERRUPT_RETURN 
JMP K58 3 IT WASN'T, SO PUT IN BUFFER 
K23_1: 
ump K26 
K24: BREAK-TOGGLE 
chp AL, yoars _REY*BREAK BIT SPECIAL CASE OF TOGGLE KEY 
JRE PUUne AROUND POTENTIAL UPDATE 
AND aeae —FLAG_1,NOT ALPHA_SHIFT 3 INDICATE NO LONGER DEPRESSED 
AND KB_FLAG_ T.xor CAPS_SHIFT 3; INDICATE NO LONGER DEPRESSED 
TEST  KB_FLAG_1, CLICK SEQUENCE 
Jz K26 TERRUPT IS OVER 
AND KB_FLAG_1,AND MASK CLICk SEQUENCE ; MASK OFF MAKE 
3 OF CLICK 
er JMP K26 3 INTERRUPT IS OVER 
7 
= ed $5 RAT ARAM.) KEY+BREAK_BIT 3 IS THIS THE KATAKANA_KEY 
2 3 NOT KATAKANA_KEY 
AND JKBLFLAG_1,NOT KATAKANA_SHIFT ~ ; INDICATE NO LONGER DEPRESSED 
AND JKBLFLAG_1,NOT HANKAKU_SHIFT § ; INDICATE NO LONGER DEPRESSED 
—_ JMP K26 3 INTERRUPT IS OVER 
t 
- cnr AL. HIRAGANA_ KEY+BREAK_BIT 3 IS THIS THE HIRAGANA_KEY 
2 3 NOT HIRAGANA_KEY 
AND JKBLFLAG_1,NOT HIRAGANA_SHIFT — ; INDICATE NO LONGER DEPRESSED 
AND ie FLAG_1,MOT ZENKAKU_SHIFT ; INDICATE NO LONGER DEPRES 
JMP 3 INTERRUPT IS OVER 
K24_3: 
ene ie ~REYSBREAK BIT | ie 3 IS THIS THE KANJI_KEY 
24 3 NOT KANJ 
AND JKBFLAG_2,NOT KANJI_SHIFT INDICATE NO LONGER DEPRESSED 
AND JKB_FLAG_2,NOT KNUM_SHIFT ; INDICATE NO LONGER DEPRESSED 
eee K26 3 INTERRUPT IS OVER 
: 
— "cmp AL ,MUHEN_KEY¢*BREAK_BIT cee 3 IS THIS THE MUHEN_KEY 
JHZ K24_5 ; NOT MUHEN. 
AND Jk FLAG_2,NOT MUHEN_SHIFT ; INDICATE HO LONGER DEPRESSED 
JMP 3 INTERRUPT IS OVER 
K24_51 
"emp AU; HERKAH_KEY*BREAK_BIT — ee THIS THE HENKAN_KEY 
JNZ K26_6 3 MOT HIR 
AND JKD FLAG_2,NOT HENKAN_SHIFT 3 INDICATE HO LONGER DEPRESSED 
3 INTERRUPT IS OVER 
poono-- BREAK OF NORMAL TOGGLE 
oa Not INVERT MASK 
AND ne FLAG_1,AH 3; INDICATE NO LONGER DEPRESSED 
JMP RT K26 3 INTERRUPT_RETURN 
br----- TEST FOR: HOLD STATE 
on Saati 
cmp AL, 80H 3 TEST 
JAE K26 ; NOTHING FOR BREAK CHARS FROM HERE 
3 ON 
TEST KB_FLAG_1,HOLD_STATE ; ARE WE IN HOLD STATE? 
Jz K28 3 BRANCH AROUND TEST IF NOT - 
AND KB_FLAG_1,NOT HOLD STATE 3 TURN OFF THE HOLD STA 
K261 ; INTERRUPT-RETURN 
MOV DH, KB_FLAG 
MOV DL, JKB_FLAG 
AND DX,4007H + MASK KBD STATUS FLAG 
POP BX 
xOR ax. 0x 
JZ 
MoV ix, “asrrH 
INT 
K26_1: 
POP ES 
POP DS 
POP DI 
POP SI 
POP DX 
POP cx 
oon BX 
oP Ax 3s RESTORE STATE 
TRET 3 RETURN, INTERRUPTS BACK OK WITH 
fectinct 2 + FLAG CHANGE 
ee MOT IN HOLD STATE, TEST FOR SPECIAL CHARS 
; NO-HOLD-STA 
The) KRGFLAG-ALT_SHIFT 5 ARE WE IN ALTERNATE SHIFT 
TP he cH ; athe IF ALTERNATE SHIFT 
eee + JUM iF NOT ALTERNA 
cy TEST FOR ALT¢CTRE KEY SEQUENC 
Teste RESET 
er xB FLAG, CTL_SHIFT ; ighE gu IM CONTROL SHIFT ALSO 
i E 
Sac At. »DEL_KEY ae STATE IS THERE, TEST KEY 
Fr=-"=— CTL-ALT~DEL-HAS 8 SET 
MoV RESET FLAG ae FOUND, "50 1/0 CLEANUP 


G. 1234H 3 SET FLAG FOR RESET FUNCTION 
JMP 
kava: ae NEAR FIR R RESET 


’ JUMP TO POWER ON DIAGNOSTICS 
; SHE AL, INS _| + CHECK FOR RESET WITH DIAGNOSTICS 
PTTT™ CTUALT“INSTHAS BEEH FOUND HECK FOR OTHER 
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06 0072 R 3412 
0000 E 

3A 

13 


06 0018 R 02 
AB 


36 0018 R 04 
OE 0018 R 02 
oF 

4D 

12 

OAD1 R 

FC 


94 

CE 0089 R 
ca 

ag R 


1 
OADI R 
04 


14 

06 CO89 R 
co 

OADD R 

02 


O3D4 
Co89 R 


O7CO R 


73 74°75 
78 79 7A 


72 

77 

1212. 

17 31415 
9 1E 

23 1F 20 21 

2c 


2D 2€ 


EF 0877 
a R . 


&4 
Cc? 
COlg R 
87Co R 


°6 C019 R 06 
Cora 
e 


Mov RESET_FLAG, 3412H 3 SET FLAG FOR DIAGNOSTICS 
JMP NEAR PTR RESET ; LEVEL 1 DIAGNOSTICS 
K29_2: CMP AL, CAPS_KEY 5 CHECK FOR KEYBORAD CLICK TOGGLE 
JNE K29_3 + CHECK FOR SCREEN ADJUSTMENT 
pron--~ ALTSCTRL4CAPSLOCK HAS BEEN FOUND 
TEST | KB_FLAG_1,CLICK_SEQUENCE 
JNZ K26 3 June IF SEQUENCE HAS ALREADY 
XOR KB_FLAG_1;CLICK_! On Pa BIT FOR AUDIO KEYSTROKE 
OR KB_| FLAG. 1/CLICK_ SEQUENCE 3 SET CLICK_SEQUENCE STATE 
JMP SHOR 3 INTERRUPT IS OVER 
K29_3: CMP AL, RIGHT ARROW } ADJUST SCREER TO THE RIGHT? 
JHE K29_4 3 LOOK FOR RIGHT ADJUSTMENT 
CALL  GET_POS 3 GET THE @ OF POSITIONS SCREEN IS 
3 SHIFTED 
cMP AL, O-RANGE 3 IS SCREEN SHIFTED AS FAR AS 
+ POSSIBLE? 
JL K26 3 OUT OF RANGE 
DEC HORZ_POS 3 SHIFT VALUE TO THE RIGHT 
DEC AL 3 DECREASE RANGE VALUE 
CALL — PUT_POS 3 RESTORE STORAGE LOCATION 
JMP SHORT K29_5 3 ADJUST 
K29_4: CMP AL LEFT_ARROW 3 ADJUST SREEX TO THE LEFT? 
JNE 31 3 HOT AN ALT_CTRL SEQUENCE 
CALL GET_POs 3 GET NUMBER OF POSITIONS SCREEN IS 
3 SHIFTE 
chp AL, RANGE 3 IS SCREEN SHIFTED AS FAR AS 
3 POSSIBLE? 
JG K29_6 
INC HORZ_POS 3 SHIFT SCREEN TO THE LEFT 
INC AL 3 INCREASE HUMBER OF POSITIONS 
3 SCREEN IS SHIFTED 
CALL = PUT_POS 3 PUT POSTION BACK IN STORAGE 
K29_5: MOV AL 3 ADJUS 
Mov DX, SD4H 3 ADDRESS TO CRT CONTROLLER 
nov AL HORZ_POS COLUMN POSITION 
mov ALLH 3 
INC x” x 3 POINT AT DATA REGISTER 
OUT DX, AL 3 MOV POSITION 
K29_6: JMP K26 
Spetaetered IN ALTERNATE SHIFT, RESET NOT FOUND 
K31: 3 NO-RESE 
cMP AL, 57 3 TEST ToFOR srace KEY 
Jz K31_2 3 GO TO 
cMP AL, 108 3 TEST a ees KEY 
JZ K31_1 3 GOT 
CMe AL, 109 > TEST FOR HENKAN KEY 
JZ K31_1 3 GO TO K31_1 
JMP K32 3 GO TO K32_ 
K31_1: MOV aL,’ * 3 SET SPACE CHAR 
JMP x57 “> BUFFER_FILL 
pooeee ALT-INPUT-TABLE 
oe . 5One? H,73H,74H,75H 
+72 
DB 36H.77N,78H,79H+7AK 3 20 NUMBERS ON KEYPAD 
bo----- SUPER-SHIFT-TABLE 
DB 16,17,18,19,20,21,22.23 5 A-Z TYPEWRITER CHARS 
DB 24,25,30,31,32,33534,35 
DB 36537 ,38,44,45,46 47548 
POOK FOR KEY PAD ENTRY 
poeenne OR KEY 
an FANART ae 
Rov a al si + tooK FOR ENTRY USING KEYPAD 
REPNE SCASB 3 soe Oe PAD. 
JNE K33 3 
Sus DI, OFFSET K30¢2 3 DI_NOW HAS ENTRY VALUE 
MOV AL,» ALT_INPUT 3 GET THE CURRENT BYTE 
MOV AH.LO ~ ; MULTIPLY BY 10 
ate oat 3; ADD 1H THE. LATED? ENTRY 
fe SO ialaain ; Sinan AWAY THAT KEYSTROKE 
bo----- LOOK FOR SUPERSHIFT ENTRY 1 xevpan 
K33: : yeRO ANY PREVIOUS ENTRY INTO 
MOV ALT_INPUT,0 5 eer 
oes ee ey PHAR 
MoV CX, 26 0 R MATC 
REPHE = SCASB ; LOOK OUND. FUNCTION KEY oR OTHER 
JHE K34 : ASCII CODE OF ZERO 
XOR ALJAL ; pur IT oe HE BUFFER 
JM K Te Sut 
——— Look FOR TOP ROW OF ALTERNATE TOP mre on IT 
K34: 3 KEY wit 
ee kad KEY MONE oF INTERESTING KEYS 
a eS 
CMP al, ALT~ CAN T 
Jae OKSS ; CONVERT BEUEDO SCAN CODE TO 
A0D 0 AH, 18 + RANCT CATE AS SUCH 
me tasht te Sluna sean ces 
JMP FT 
peneee- TRANSLATE ALTERNATE SHIF: ALT-FUNGTTR TABLE 
K35: + TEST ONTINUE 
CMP AL, 59 3 ALT©COPeTURN 
JAE K37 3 CLOSER Te Key 
K361 ce 1 LOMOCONTINUE oy 
sai JMP K2 tN KEYPAD REG! 
"one ALs7h 
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0931 


0934 
0934 
O9SA 
0940 


bb o5Bt R 
BB 
E9 OACT H 


Fe 06 0017 R 04 
74 66 


3e Py 


51 
if oo1A R 
AR 06 O71 R SO 


75 06 
BB 7200 
Es OASS R 


pa es£0 R 
ae 

7D 

£9 GASF R 


BO GA 
£9 oagl R 
3C 6A 


7347 
£9 OAC? R 


oa GE 70 71 72:73 
74.75 76 77 78 79 
7A 7B 7 7D 7E 


= e011 


9945 
0945 


0956 
0959 
o95¢ 


2D 2B 30 2E 31 32 
$3 34 35 36 37 38 
39 2A 2F 2C OD 


BF 0934 RK 
B9 ool) 
Fas AE 


75 0c 

81 EF 0935 & 

2E: 8A 85 0945 KR 
£9 CASS KR 


Fo 06 0817 R 83 
7B 


3C OF 

75 06 

88 OFCD 
EY OASS KR 


3¢ 3B 
72 06 


BB OSAT RK 
E9 OACT R 


0 

FE 06 O336 R 04 
12 

BB ODGB R 

£8 OBGB R 

8B C2 

BB ODES R 

E8 OBGB R 

£9 0709 R 

Fo 06 0336 RO 

$ 23 ‘ 

F6 06 0336 R OL 
12 


BB OC63 R 
ES OB6B R 


c2 
BB OCOD R 


K42_13 


K45_1: 


K45_2: 
K45_3: 


K46: 


R47: 


K47_1: 


JAE K36 s 
MoV BX,OFFSET KiS 5 
JMP K6éS 3 
MOT IN ALTERNATE SHIFT 


TEST 


IF $0, IGNOR 


E 
ALT SHIFT PSEUDO SCAN TABLE 
TRANSLATE THAT 


NOT-ALT-SHIF 


Ls +) ional sure 3 ARE WE IN CONTROL SHIFT? 


MOT-CTL-SHIFT 


CONTROL SHIFT, TEST SPECIAL CHARACTERS 
TEST FOR BREAK AND PAUSE KEYS 
c 


MP AL SCROLL KEY > TEST FOR BREAK 
JHE 3 NO-BREAK 
MoV Bye BUFFER_HEAD 3; GET CURRENT BUFFER HEAD 
MoV BIOS _ BREAK, 80H 3 TURN ON BIOS_BREAK BIT 
INT 3 BREAK INTERRUPT VECTOR 
SUB Axe AX 3 PUT OUT DUMMY CHARACTER 
MoV BX, AX 3 PUT DUMMY CHAR AT BUFFER HEAD 
CALL K4 3 UPDATE BUFFER POINTER 
MoV BUFFER_TAIL,BX 3 UPDATE TAIL 
JMP K26 3 DONE WITH INTERUPT 
3 NO-PAUSE 
TEST SPECIAL CASE KEY 55 
cmp AL, 55 
JNE K42 3 NOT-KEY-55 
mov AX, 1144256 } START/STOP PRINTING SWITCH 
JMP K BUFFER_FILL 
SET UP TO TRANSLATE CONTROL SHIFT 
3 NOT-KEY-55 

MoV BX,OFFSET K8 A Ser UP TO TRANSLATE CTL 
cMP AL, 59 3; IS IT IN TABLE? 
JGE K42_1 
JMP K56 3 YES, GO TRANSLATE CHAR 
MOV BX,OFFSET K9 3 CTL TABLE SCAN 
CMP AL,7EH 3 IS MUMERIC PAD RETURN KEY 
JNE K42_2 3 NO. 
mov AL, OAH 3 SET 'LF* CODE 
JMP K57_¢ 
cMP AL, 6AH 3 IS IT IN TABLE? 
JAE K45_2 

K63 3 TRANSLATE_SCAN 
TEN KEYPAD SCAN CODE TABLE 
LABEL BYTE 
DB 4AH,4EH,70H,71H,72H,73H 
DB 74H, 75H,76H.77H, 78H, 79H 
DB 7AH,7BH,7CH,7DH,7EH 


EQ $-K45 
TEN KEYPAD CHARACTER CODE TABLE 


LABEL 
OB 


NOT IN CONTROL SHIFT 


BYTE 
"-#0.123456759K7,° 


»ODH 


MOV DL,OFFSET KAS SCAN CODE TABLE 
MOV CX 3 
REPNE SCASB } LOOK THROUGH THE TABLE FOR A 
i 
; IF NOT MATCH THEN K45 
3uB eT sex i ADJUST PTR TO SCAN CODE MATCH 
SUB DI, OFFSET K43¢1 3 CODE MA 
MOV AL,CSIKS4CDI1] 3. GET CHARACTER CODE 
JMP K57 + BUFFER_FILL 
; TEST FOR KEYPAD REGION 
SKE neg’! ; HANDLE KEYPAD REGION 
CMP AL, 28 3} TEST FOR CR KEY 
JNE K45_3 
MOV AL, 13 3 CR CODE 
INT 78H 3 KANAKAN ROUTINE 
JMP K26 } INTERRUPT RETURN 
ToRIGHT SHIFT 
al “shea scibinai Eon SHIFT STATE 
UPPER CASE, HANDLE SPECIAL EASES fan xe 
SHE K46 3 MOT-BACK-TAB 
MOV AX, 154256 + SET PSEUDO SCAM CODE 
pn ae ; MOT SPRINT SCREEN 
CMP AL,59 3 FUNCTION KEYS 
JB K47 3 NOT-UPPER-FUNCTION cones 
Mov BX,OFFSET K12 3 UPPER CASE PSEUDO SCAN 
ae 1 RORURPER Foner 
5 
PUSH x ; 
mov DX, AX 3 STORE AX TO DX 6} 
TEST —-JKB_FLAG.HIRAGAMA_STATE j 1S HIRAGANA stat rte 
cs K47_1 + NO. JMP K47 prer SHIFT 28 
Arta Bx, OFFSET H_Z_U_1ST 3 cenit ant v . 
3 HAN Y 
nOy AX, DX + RESTORE DX TO A . upper SHIFT 2nd 5 
MOV, BX,OFFSET HZ_U_2ND 5 ZENKAKU HIRAGAN 
3 HANK 
POP DX ; 
iil Kae 5 INTERRUPT RETURN 
Lael aus ~fEAG. KATAKANA STATE 5 15 KATAKAMA sTATE ? 
; HO. JMP K47_ 
TEST JKBT ~FUAG, ZENKAKU_STATE } 1S ZENKAKU STATE ? si 
nov tae i NO. JP K472 neg SHIFT 
CALL otk OFFSET K_z_u_ist 3 ZENKAKU KATAKAHA od 
+ HANDL , 
mov AxsDX RESTORE DX 10 AX ypren SHIFT 2? 
OFFSET K_2_U_2ND 5. ZENKAKU KATAKANA 


A-128 


aww muumowuu moe 
ef eweaaomru woo 


OBGB 
07¢c9 


OBBS 
OBGB 


o7c9 


Do 


06 O336 R 04 


12 
OCD7 
OBGB 
c2 
OD11L 
OBGB 


o7c9 


06 OS36 

25 R 02 
oS 

06 0336 R 01 


OBEF 
OBGB 
c2 

oc29 
OB6B 
o7Cc9 


OB7B 
OBG6B 
o7Cc9 
OS33 


ca 
o7 


2978 
12 


ae OS36 R 02 


K47_2: 


K47_3¢ 


powee- 


K48: 


K49: 


K50: 


peeren- 


KS4: 


KS5r 


KS5_1: 


KSS_2: 


KS5_3: 


R56: 


KS7: 


KS7_1: 


KS7_32 


K57_4: 


mov 


CMP 
JB 
xoR 


cK 
Pee ; HANDLING 
K26 + INTERRUPT RETURN 


BX, OFFSET K_H_U 
CK HANDLING 


INTERRUPT RETURN 


we we eee 


Dx 
K26 


Dx 
BX,OFFSET K11 5 POINT TO UPPER CASE TABLE 
SHORT K56 3 OK, TRANSLATE THE CHAR . 


KEYPAD-REGION 

IF SCAN CODE > 83 
THEN K49 

CONVERT ORIGIN 

BASE CASE TABLE 

CONVERT TO PSEUDO SCAN 


AL,83 
K4a9 


we we we we we we 


AL,71 
BX, OFFSET K15 
K64 


AL,6AH 3 IS SPECIAL KEY 

x50 3 NO. JMP KS 
SK 3 SPECIAL KEY HANDLING 
K26 3 INTERRUPT RETURN 
AL.’ , 

JMP KS7 

PLAIN OLD LOWER CASE 

3 NOT-SHIFT 
AL, 59 3 TEST FOR FUNCTION KEYS 
KsS 3 NOT-LOWER-FUNCTION 
AL, AL 3 SCAN CODE IN AH ALREADY 
SHORT K57 3 BUFFER_FILL 
- 3 MOT-LOWER-FUNCTION 
, 


PoP 


STORE AX TO DX 


DX, AX ; 
JKB_FLAG,HIRAGANA_STATE 35 IS HIRAGANA STATE ? 
K55_1 3 MO. JMP 

BX, OFFSET H_Z_U_1ST 3 

cK 3 HANDLING 

AX, DX 3 RESTORE D! 

BX, OFFSET H_Z_L_2ND 3 

CK 3 HANDLING 

DX 3 

K26 3 INTERRUPT RETURN 
JKB_FLAG,KATAKANA_STATE 3 IS KATAKAHA STATE ? 
K55_3 3 NO. JMP K47_3 
JKBTFLAG,ZENKAKU_STATE 3 IS ZENKAKU STATE 2 
K55, 3 NO. JMP K 

BX, OFFSET K_Z_U_1ST 3 

cK 3 HANDLING 

AX, DX } RESTORE DX TO AX 
BX, OFFSET L_2ND ; 

cK Rm 3 HANDLING 

Dx 3 : 
K26 3 INTERRUPT RETURN 


HANDLING 
INTERRUPT RETURN 


3X,OFFSET KHL 
cK 


we we we we 


Dx 
K26 


px 
X,OFFSET KIO 3 LC TABLE 


mov 8 
TRANSLATE THE CHARACTER 


DEC A 3 CONVERT ORIGIN 
XEAT_eSsKia , CONVERT THE SCAN CODE TO ASCII 
PUT CHARACTER INTO BUFFER | cui) 
CHP AX, 0297EH } 1S THIS A 'TIRDE® 
JNE KS7_1 3 NOT 'TIRD —e 
TEST -JKBTFLAG,ZENKARU_STATE 3 ZENKAKU_S 
Jz K57_3 7 GO TO BEEP : 
nov AL, SiH 3 UST BYTE OF "TIRDE 
INT 8H + KANAKAN : 

} anp BYTE OF *TIRDE 
tRY 7 a + KANAKAN 

T RETURN 
JMP K26 3 INTERRUP 
A ‘REVERSE SLASH* 
SNE ere ; 13 TUREVERSE SLASH* 
TEST -JKBTFLAG, ZENKARU_STATE, 2 EpIaRu Prat uM 
nt ae Too BYTE OF "REVERSE SLASH® 
MOV ac, 3iH 1 CANAAN ; : 
Gl cong  2NO BYTE OF REVERSE SLASH 
4 NA 
a ily ; RATERRUPT RETURN 
Bx 
Push cx ‘ DURATION OF ERROR BEEP 
ae a y FREQUENT) peer 
MOV RRUNOISE } BUFFER 
CALL ia 
cx 

cop tCBX | INTERRUPT RETURN 
uo aie ys THIS AN IGNORE CHAR? 
cmp ALecd : Jes, DO_NOTHING WITH IT 
JE K39 3 LOOK FOR -1 PSEUDO SCAN 
CMP AW, -2 


+ TRANSLATE-CHAR 


Ne KATAKANA UPPER SHIFT 


K47_} 
ZERKAKU HIRAGANA LOWER SHIFT 1ST BYTE 


X TO AX 
ZENKAKU HIRAGANA LOWER SHIFT 2ND BYTE 


47_2 
ZENKAKU KATAKANA LOWER SHIFT 3ST BYTE 


ZENKAKU KATAKANA LOWER SHIFT 2ND BYTE 


HANKAKU KATAKANA LOWER SHIFT 


Appendix A. 


OAD) 
OAD} 
OAD2 
OADS 
OAD? 
OaD9 
OADB 
oadc 
OaDD 


744A 
Fo 06 0017 R 40 
74 20 
Fo 06 0017 R OS 
74 OF 


ES ODBF R 
€9 O7C9 R 


2c 3B 


31 

AO 0086 R 
24 

Bl 06 

O2 F8 


cs 


80 €1 OF 


E 
80 26 0017 x FQ 
80 26 0018 R oF 


80 26 0088 R IF 
80 26 0337 R 99 


80 26 0338 R OF 


JE K59 3 NEAR_INTERRUPT_RETURN 
jor--- - HANDLE THE CAPS LOCK Peon eceseBbiaciorset 
K58: 3 - - 
TEST KB FLAG, CAPS “State ' ARE WE IN CAPS LOCK STATE? 
2 re nee 3 SKIP IF NOT 
pooceo- IN CAPS 
TEST KB_FLAG, LEFT —SHIFTSRIGHT SHIFT ; TEST FOR SHIFT 
Jz K60 ; tr nor SHIFT, CONVERT LOWER TO 
UPPER 
beocees CONVERT ANY UPPER CASE 10 LOWER CASE 
CMP AL, FIND OUT IF ALPHABETIC 
JB K61 ; NOT_CAPS_STATE 
CMP AL,*2° 
JA K61 3 NOT_CAPS_STATE 
ADD AL, "at="Ae 3 CONVERT TO LOWER CASE 
¢ JMP SHORT K61 3 NOT_CAPS_STATE 
593 
JMP K26 3 INTERRUPT RETURN 
j------ CONVERT ANY LOWER CASE TO UPPER CASE 
R60: 3 LOWER-TO-UPPER 
cmp AL, ‘at + FIND OUT IF ALPHABETIC 
JB K61 3 NOT_CAPS_STATE 
CMP AL, *zt 
JA K61 3 NOT cars STATE 
SUB AL, *at-"ae 3 CONVERT TO UPPER CASE 
Kole 3 NOT-CAPS-STATE 
CALL ZEN AN 3 TRANSLATE A/N TO ZENKAKU 
JMP 3 INTERRUPT_RETURN 
— TRANSLATES Scan FOR PSEUDO SEAR GODES a 
2 3 TRANSLATE-S 
SUB AL,59 3 CONVERT ORIGIN TO FUNCTION KEYS 
K64: 3 TRANSLATE-SCAN-ORGD 
XLAT CS1K9 3 CTL TABLE SCAN 
MOV AH, AL 3 PUT VALUE INTO AH 
XOR AL, AL 3 ZERO ASCII CODE 
JMP K57 3 PUT IT INTO THE BUFFER 
KBLINT ENDP vies 
3GET_POS 


THIS ROUTINE WILL SHIFT THE VALUE STORED IN THE HIGH NIBBLE 
Siemey OF THE VARIABLE VAR_DELAY TO THE LOW NIBBLE. 
3 


fourrut NONE. IT IS ASSUMED THAT DS POINTS AT THE BIOS DATA AREA 
; LAU CONTAINS THE SHIFTED VALUE. le tae 
GET_POS PROC NEAR 

PUSH cx SAVE SHIFT REGISTER 

MOV AL,BYTE PTR VAR _betay GET, STORAGE LOCATION 

AND AL MASK OFF Low X 

HOV aca } SHIFT OF FOUR BIT POSITIONS 

SAR AUS CL 3 SHIFT THE VALUE SIGH EXTENDED 

PoP cx 3 RESTORE THE VALUE 

eT 
GET_Pos ENDP a 
t hoa eee See eK wee ewe ee owe wee wm weeeece=. eee wearers eeeceeeee= 
;PUT_POS 


THIS ROUTINE WILL TAKE THE VALUE IN LOW ORDER NIBBLE IN 
Sanne AL AND STORE IT IN THE HIGH ORDER OF VAR_DELAY 
sINPU 


; AL CONTAINS THE VALUE FOR STORAGE 
apabiadd 


NOME. Bios reas 
PUT_POS PROC NEAR 

USH —¢X + SAVE REGISTER 

mov CL, 4 + SHIFT COUNT 

SHL AL, CL 3 PUT IN HIGH ORDER NIBBLE 

MOV = CL, BYTE PTR VAR_DELAY ; GET DATA BYTE ¢ 

AKD CL, OFH + CLEAR OLD VALUE IN HIGH KIBBL 

OR ALCL MBINE HIGH AND LOW NIBBLES 


BYTE PTR VAR. _peLays AL + PUT IN POSITION 
POP cx H RESTORE REGISTER 


FERROR aa 
HIS ROUTINE 
SIMPUT INE WILL ERROR BEEP 


HOHE. 
SsOUTPUT 
; HONE, 
+ NOTE: 
: THIS ROUTINE DESTROY BX AN 
Feeneu THIS ROUTINE CALL KB _NOISE. os - 
ii mM ma ee eecoeee 
BX, 80H 
mov CX, 48H DURATION OF ERROR BEEP 


CALL KB_HOISE FREQUENCY OF TONE 


BUFFER FULL BEEP 
AND KB_FLAG, OF OH CLEAR htt. CLRL,LEFT AND RIGHT 
AND KB_FLAG 1,0FK are 
AXD 


eNUM AND SCROLL SHIFT 


ret KB_FLAG_2,1FH CLEAR FUNCTION STATES 


AND 
JKB_FLAG_1, 00H A 


3 

3 

‘ 

, 

rf 

; CLEAR POTENTIAL BREAK OF INS, CAPS 

s 

H AN 
3 CLEAR BANKARU, ZENKAKU, HIRAGANA, KATAK 

’ 


AND ALPHA SHIFT SHIFT 
RET JKBLFLAG_2,0FH } CLEAR KANJI, KHUMBER, MUHEN AND HENKAN 

ERROR_DEEP ENDP 

; we wee ee eel — ccccevstesowooeeer? 
SPACIAL CASE Key CaN ine 


A-128 


06 0336 
06 0017 
06 0336 


06 0336 


06 0017 
06 O336 


8150 
OF 


06 0336 
05 


818F 
03 


8158 


FC FF 


C7? ¢c 
D4 os 


CO cy 
CS 6 


Cl cq 
c9 


DBC 
DO bs 


20 FF 
FF 
ac AD 


FF F 
Fr FE 


FF F 
FF OFF 


AF 
FF 


20 Fe 


Bi 
D6 


Be 
bo? 


BC 
da 


BB 
ca 


a? 
AE 


48 
FF 


FF 
FF 


FF 
a4 


05 
os 


02 


63 
06 


BS 
bc 


CA 
DA 


BF 
ih) 


ay 
AG 


FF 
FF 


FF 
FF 


FF 
Al 


B4 
ce 


B6 
DE 


37 
Be 


cB 
D2 


AA 
FF 


FF 
FF 


FF 
FF 


FF 
AS 


MHOTEX 


Give we we we we 
t 
' 
i] 
i] 
4 
t 


THIS KEY IS "JIS" UNIQUE Key Craseri® 


NOT INCLUDE). 


K PROC —NEAR 
TEST JKB_FLAG, ZENKAKU_CHAR 5 ZENKARU CHARACTER ? 
TEST XB_FLAG,RIGHT_SHIFT¢LEFT_SHIFT 3 UPPER CASED 
JZ SK ; 
TEST © JKB_FLAG,KATAKANA_STATE 3 KATAKANA STATE ? 
JZ SK1 3 NOT KATAKANA STATE 
JMP SHORT SKS 3; GO TO RETURN 
$i: 
Mov AL, O7EH + "OVERSCORE? 
JMP SHORT SK4 3 CALL KANAKAH 
SK2: 
KAHA_STATE 3 KATAKANA STATE ? 
ee 3; HOT KATAKANA STATE 
MoV AL, OBOH 3 "PROLONGED SOUND’ 
JMP SHORT SK4 3 CALL KANAKAN 
SK3: 
el Mov AL, OSCH + "YEN SIGH? 
" "yw 78H 3 KAHAKAN ROUTINE 
K5: 
RET 
SK6: ‘ 
PUSH DX 
TEST KB LFLAG,RIGHT_SHIFT#LEFT_SHIFT 3 UPPER CASE 3 
Jz SK 
TEST | JKB_FLAG,NOT ALPHA_STATE 3 ALPHA_STATE 
JNZ $K10 3 MOT ALPHA STATE 
MOV DX, 08150H ; "OVERSCORE® 
JMP SHORT SK9 3 CALL KANAKAN 
SK71 
PHA_STATE ; ALPHA_STATE 
a ae eee i NOT ALPHA, STATE 
MoV DX, 0818FH ; 
sae JMP SHORT SK9 3 CALL KAHAKAN 
2 
ne Mov DX, 08158H ; "PROLONGED SOUND’ 
2 
3 
TRY sae ; KANAKAN ROUTINE 
ioe TRY A 3 KANAKAN ROUTINE 
t 
POP Dx 3 
RET 3 
SK ENDP 
PAGE 
i — 2 ee Se 
§ Wee eeem' eee eee eee ewe wee ee eee = mass eceesee= oS ee: <<a 
; JAPANEASE CHARACTER SET HANDLING 
3 
’ INPUT sie aan 
: Ate SERSET PROM TABLE'S FIRST BYTE + 1 
; BX = OFFSET OF TABLE'S FIST BYTE 
i ouTPuT 
Ee 
3 
cK PROC NEAR 
DEC AL ; 
XLAT —s-CSrKAL 3 
CHP Ale-1 3 
JE cKi : 
CMP AH,-1 3 
JE cKi 3 
INT 78H 3 
CKis 
cK ENDP ' 
OWER CASE 
K YTE so 3_: KATAKANA HANKAKU L ; aie dan 
aaa DB tae CoH OCCH, OBAN, SBSH, OB4H, OBSH, OO4H, ODSH, @D6H, ODCH, OCEH. OCDH, 
FH.-2 
De 05H, OCON, OCSH, OH, OBDH, OBEN, CDDH, CSN, OCH, OO7H. OREN, ADEN 8D . 
DB sea weung ance, HEA AUTH, CBEMANCEN: SOM SESEAARAS ABSA SORTA 
, 
ck <yanne saa sesi na Ae ANE NOONEAEA ACCT ENON 
whe . 
DB -1,20H,-2 
UPPER C 
: ANA HARA D eee ae ont sean 
3 KATAK ACH, OAD a-i, 
et iy eae aT TATH, ASH, OAAH, OABH? 0 


mf eed 
DB O9H»-1.-1,0A8H,-~2e~2 em}? Bact? 


DB -1,-l,7i. 
DB o-1,71,0AFHe 


DB -1,20H,-1 


eypedecderderden hs 


ay cdecbenden te 


ep pcde rh GAZHo m2 


ay, cd 72, 0ASH 


1 AGH, OALH, CASH) ~1o-2 
whe 


a-129 


oBEF 
OBeEF 


oBFD 
ocos 
ocis 
oc2é 
oc29 
oc2? 
ocs7 
oces 
ecs2 
oceo 
oces 
océs 
oc7l 
oc7F 
ecsc 
OCoA 
oceD 
oceD 
OCAB 
oces 
eccé 
OcDe 
eco? 
eco? 
OCES 
OCFS 
oDoe 
ODeE 
OD11 
oDl1 
OD1F 
ep2d 
ODSA 
0D48 
OD4B 
OD4B 
0059 


0D67 


6074 


1B 


FF 


FF 


33 83 83 83 
3 a3 83 83 85 
08 

a3 83 83 8S 
33 83 83 83 81 
a8 a3 83 83 83 


33 83 83 85 85 


? 33 83 83 83 83 


33 83 83 85 85 


81 
81 FF 


74:41:45 47 
$8 86 88 8F 7A 
FF 

65 43 58 4A 
; 6A 89 5A SA 


FF 
67 56 GE 4c 
D 6D BA BC 50 


p 63 54.5C 71 
oF 82 6C BB 8h 


% 

40 FF 

FF FF 83 83 83 
83 83 83 83 81 


Pe FF 83 FF FF 
FF OFF FF 81 FF 


FF 
t FE FF FF FF FF 


FF FF FF 81 83 


FF 83 FE FF FF 
FF FF 61 81 81 


FF 

81 FF 

FF FF 40 44 46 
83 85 87 92 92 


FF 
FF FF 42 FF FF 
FF FF FF 77 FF 


FF 
FF FF FF FF FF 
FF FF FF 78 9% 


FF 62 FF FF FF 
FF FF 41 42 45 


FF 

40 FF 

82 82 82 82 82 
82 82 82 82 82 
8 


8 
82 82 82 82 82 
ae 82 82 82 81 


82 82 82 82 82 
82 82 82 82 82 


82 82 82 82 82 
82 82 82 82 82 
81 

81 FF 


CA DS AB AG AG 
oe E4 6 ED D9 


BD C4 A2 B7 Ag 
EB C9 E7 BS GA 


BF C6 BS CD AB 
OC CC E8 EA AF 


EB C2 BS BB DO 
fe EO CB E® DF 


40 FF 

FF FF 82 82 82 
82 82 82 82 8} 
08 

FF FF 82 FF FF 


FF FF FF B 
1 FF BATE 


FF FF FF OFF FF 
FF FF FF 81 33 


FF 82 FF FF F 
FE FF &t 81 a 


5 
List 
eaiain DB 


DB 
OB 

DB 

‘ DB 
KZL_2ND, 
DB 

DB 

DB 

DB 
K2Uist 
DB 

DB 

DB 

; DB 
KZU_2ND 
DB 

DB 

DB 

; DB 
HZAL1ST 
DB 

DB 

DB 

DB 

KZA 2H 
DB 

DB 

DB 

, DB 
MANAST 
DB 

DB 


LABEL BYTE 3 _KATAKANA ZENKAKU LOWER 1ST BYTE 
1BH,83H,83H,835H,83H,83H,835H,83H,83H,85H-83H,83H,8SH,08H 


09H, 83H,8SH,83H,835H,85H,835H,83H,83H,83H,83H,81H,81H,-1 
~1,83H,85H,8SH,85H,835H,83H,83H,85H,83H,83H,83H,8SH 


-1,85H,835H,83H,83H,85H,85H,83H,83H,83H,83H,83H,-1,81H 
-1,81H,-1 


LABEL BYTE 3 KATAKANA ZENKAKU LOWER 2ND BYTE 
~-1,6BH,74H,41H,45H,47H,49H,84H,86H,88H,8FH, 7AH,77He~2 


-1,5EH,65H,43H,58H,4AH, 93H,69H,6AH,89H,5AH,4AH,4BH,—1 
-1,60H,67H,56H,6EH,4CH,4EH,7DH,6DH,8AH,8CH, 50H, 80H 


~1,8DH,63H,54H,5CH,71H,52H,7EH,82H,6CH,8BH,81H,-1, 96H 
-1,40H,-1 


LABEL BYTE 3 KATAKANA ZENKAKU UPPER 1ST BYTE 
1BH,-1,-1,83H,83H,83H,83H,83H,83H,85H,83H,81H, 81H, 08H 


09H,-1,-1,83H,-1,-1,-1,-1,-1,-1,81H,~-1.81H,-1 
WLemLemLerlemderlemle-lLs-1.-1,81H,85H,81H 
-1,-1,83H,-1,-1,-1l,~-1,-1,-1,81H,81H,81H,-1,-1 


-1,81H,-1 
LABEL BYTE 3 KATAKANA ZENKAKU UPPER 2ND BYTE 


=1,-1,-1,40H, 44H, 46H, 48H,83H,85H,87H, 92H, 92H, 58H. 2 
“L,-1,-1,42He—-Le-LerLe-Le-Lo-1,77H,-1e7S5He-1 

“1 s-Le-1e-1,—L,—1e—-1,-2,-1,—-1, 78H, 96H, 76H 

-1,-1,62H -Le-Le-i pl ,-1,-21541H, 42H, 45H,-1,-1 

-1,40H,-1 

aH BEL ght Su act sen Sone BaNe OH s82Hs82H.82H, 82H, 08K 
09H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,81H,81H,-2 
-1,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H 
-1,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H.-1/81H 

-1,81H,~1 

LUABEL | BYTE, |, 5 HIRAGANA ZENKAKU LOWER 200,005 Dy, oD9H,OD6Hs~1 
<§ OSDH TCAD OAT, 6evA, BASH APH wens cean ETA ABSA AO 
i), ark, aces, ansu, econ cexenseani ster dicen. een teat CARE. SPE 
1, Aen MAMAS EheMcneNNy Nr anon neon dean nEaMeRNeeE 
-1,40H,-1 


TE 
LABEL BYTE _;_HIRAGANA ZENKAKU UPPER 1ST BY 
1BH,=1,-1,82H,82H,82H, 82H, 82H, 82H, 82H, 82H, 81H, 81H. 08 


OOH 1 ,-1,82H,-2,-1,-2,-2,-1,-2,81Hy 281s “2 
TLerberLemhemdy-1y-1,-1,-1,-1,81H, 85H, 81H 


WLeW 1 B2H,-2,-2,-1,-1,-1,-1,81H, 81H, 81H, “ed 
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ops2 
0p85 
0085 
OD93 
ODA1L 


ODAE 


ODBC 


81 


FF 


El 


FF 
FF 


FF 
FF 
FF 


FF 
FF 
FF 
40 


7 


© 09 08 02 Ce Os Ge Ce Ce Oo Co Oo OP OO 


oe 
COPMOHUIVYYAASASUVUUD 
Sete acomaccaaeommne 


NNN ee 


K~NNNNNNN 


FF 
FF 
ES 


FF 
FF 


FF 
FF 


ci 
FF 


FF 


O336 R O1 


81 
81 
82 
81 
82 
82 
82 
82 
82 
82 
82 
82 


8D 
96 
$1 
46 
61 
69 
71 
79 
82 
BA 
92 
9A 


oF 
E5 


Al 
FF 


FF 
FF 


FF 
41 


81 
81 
82 
81 
82 
82 
82 
81 
82 
82 
82 
81 


94 
7B 
52 
47 
62 
6A 
72 
6D 
85 
8B 
93 
6F 


AS 
Fo 


FF 
77 


FF 
78 


FF 
42 


81 
81 
82 
81 
82 
82 
82 
81 
82 
82 
82 
61 


90 
43 
53 
83 
63 
6B 
73 
SF 
84 
sc 
94 
62 


Aas 
92 


FF 
FF 


FF 
96 


FF 
45 


81 
81 
82 
81 
82 
82 
82 
81 
82 
82 
62 
81 


93 
7 
3¢ 
81 
64 
6c 
74 
6E 
85 
8D 
95 
70 


DB 

3 

H_Z_U_2ND 
DB 


DB 


we we we we we we we we 


ZEN_AN PROC 
3 


H_KAKU: 


RET 
ZEMN_AN ENDP 
3 
Z_ALPHAL 

DB 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
OB 
oB 
OB 
ZLALPHA2 
i) ) 


oB 
DB 
dB 
0B 
oB 
oB 
oB 
DB 
DB 
DB 
DB 


-1,81H,-1 

LABEL BYTE 3 HIRAGAHA ZENKAKU UPPER 2ND BYTE 
-1,71,71, 9FH, OA3SH, OASH, OA7H, OE1K, OE3H, OESH,OFOH, 92H, S8H,—1 
HLL» -L OALH»-Le-LemLe-Le-LomLsI7He-Ls7SHeW2 
SLerLemherLerle-Lewlewlo de, 78H, 96H, 76H 


“1, -1,0CLH»-1L,-Lomlo~le-le-2,41H,42H,45H,~1,-1 


-1,40H,~1 





TRANSLATE A/N TO ZENKAKU A/H 
INPUT AX 
SCAN 


CODE 
ABYTE JIS CODE (20H-7EH) 


AL 
OUTPUT NONE 


—— ewe ww wwe on nn oo ne on on noes eeeeee=e 


DX 

DX, AX 3 SAVE AX IN DX 

JKB_FLAG, ZENKAKU_STATE 

H_KAKU 3 IF NOT ZENKAKU THEN H_KAKU 


AL, 20H 3 IF AL<20H THEN H_KAKU 

H_KAKU 3 

AL, 7EH 3 IF AL>7EH THEN H_KAKU 

H_KAKU 3 

AL, 20H 3 CONVERT ORIGIN 

BX, OFFSET Z_ALPHAL 

CS:Z_ALPHAL 3 CONVERT THE SCAN CODE TO 1ST BYTE OF 
= 3 CHRACTER CODE 

78H 3 KANAKAN ROUTINE 

AX, DX 3 RESTORE AX 


AL,20H + CONVERT ORIGIN 

BX, OFFSET Z_ALPHA2 

CS:Z_ALPHMA2 3 CONVERT THE SCAN CODE TO 2ND BYTE OF 
> CHRACTER CODE 
; 


78H KANAKAN ROUTINE 

Dx 

78H 

DX 

LABEL BYTE 3 ZENKAKU_ALPHA 1ST BYTE 


81H,81H,81H,81H,81H,81H,81H,81H 
81H,81H,81H,81H,81H,S1H,81H,81H 
82H,82H,82H,82H,82H,82H,82H,82H 
82H,82H,81H,81H,81H,81H,81H, 81h 
81H,82H,82H,82H,82H,82H,82H,82H 
82H,82H,82H,82H,82H,82H,82H,82K 
82H,82H,52H,82H,82H,82H,82H,82K 
82H,82H,82H,81H, 81H, 81H, 81H,81h 
81H,82H,82H,82H,82H,82H,82H,82H 
82H,82H,62H,82H,82N,82H,82N,82K 
82H,82H,82H,82N,82H,82H,82H,82H 
82H,82H,82H,81H,81H,81N,81h 


LABEL BYTE $ ZENKAKU_ALPHA 2ND BYTE 
40H, 49H, 8DH, 94H, 90H, 93H, 95H,4CH 


69H, 6AH, 96H, 7BN, 43H, 7CH, 44H, SEH 
4FH,50H,51H,52H,53H, 54H, 55H. 56H 
357H,58H,46H,47H, 83H, 81H, 84H, 48H 
97H,60H,61H,62H,63H,64H,65H,66H 
67H, 68H,69H,6AN,68H,6CN,60H,6EH 
GFH,70H,71H,72H, 73H, 74H, 75H, 76H 
77H, 78H,79H,6DH,8FH,6EH,4 FH, SIN 
4DH,81H,82H,835H,84H,85H,86H,87H 
88H,89H,8AH,8BH,8CH, 80H, SEN, SFH 
90H, 91H, 92H, 93H, 94H, 95H, 96H, 97H 
98H, 99H, 9AN,6FH,62H, 70H, 50K 
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preet ete nn en nn ee ee + eee 


F6 06 0338 R 62 
75 46 

$3 

52 

re st 0336 R 04 
a SEF? R 

EB 1B 


IND]: 
re 06 0336 R 62 


os 
a OFOO R 
EB OF 


F6 06 0017 R 40 
74 05 

BB OFO9 R 

EB 03 


IND2: 


INDS: 
IND4: 


BB OFI2 R 


BA eee 
€38 0 
F6 tb 76 R Ol 


74 
8B 0F20 R 
EB OS 


BB OFIB R 
BA GA0S 
E8 OF25 R 
SA 

58 


cs 


INDS: 
IND6: 


IND7: 
IND 

HMESS 

81 79 82 

81 45 24 


81 79 83 
81 45 24 


81 79 43 
81 45 24 


8179 89 
81 45 26 


94 BC 81 
91 53 81 


Ad 82 CB 


KMESS 
4A 83 69 


CMESS 
61 70 73 


EMESS 
70 90 94 


MESS1 
MESS2 
PAGE 


7A 24 
7A 24 


DISPLAY SHIFT STATUS ROUTINE 
meme HOTE & 


Test UKBYFLAG_2,1 
NDICA ; 

Tes IKE FLAG 2, TOROFF 
PUSH BX 3 
TEST | ORBLF ; 

_FLAG,HIRAGANA ; 
JZ INDI omni 3 
MoV BX, OFFSET HMESS ; 
IMP SHORT IND4 ; 
TEST  JKB_FLAG,KATAKANA 
te JKB_FLAG, STATE 
Mov BX,OFFSET KMESS ; 
IMP SHORT INDS ; 
TEST — KB_FLAG, CAPS_STAT ; 
JZ iw ; 
MOV BX, OFFSET CHESS ; 
JMP SHORT IND4 ; 
MoV BX,OFFSET EMESS 3 
Mov DX, 0A00H 3 
CALL WRITE ; 
TEST  JKB_FLAG,ZENKAKU_STATE ; 
JZ INDS 3 
Mov BX,OFFSET MESS2 ; 
IMP SHORT IND6 ; 
Mov BX, OFFSET MESS1 3 
mov DX. CAGSH 3 
CALL WRITE 3 
PoP Dx 3 
POP BX ; 
RET 
ENDP 
LABEL WORD 


be WORD 


DB 
LABEL BYTE 
DB 


ween we enw wn ww ne eo ew ene ee ee 


THIS ROUTINE. DISPLAY CURRENT SHIFT STATUS. 


INDICATOR SWITCH OFF 2? 


TEST HIRAGANA SHIFT 
NOT HIRAGANA SHIFT 

SET HIRAGANA INDICATOR 
DISPLAY INDICATOR 


TEST KATAKANA SHIFT 
NOT KATAKANA SHIFT 

SET KATAKANA INDICATOR 
DISPLAY INDICATOR 


TEST CAPS SHIFT 
NOT CAPS SHIFT 

SET CAPS INDICATOR 
DISPLAY INDICATOR 


SET ALPHA/NUMERIC INDICATOR 


SET LOW,COLOUM 
DISPLAY 

TEST ZENKAKU SHIFT 
NOT ZENKAKU SHIFT 

SET ZENKAKU INDICATOR 
DISPLAY INDICATOR 


SET HANKAKU INDICATOR 


SET LOW,COLOUM 
DISPLAY 


081H,079H, 082H, OA9H, 082H, OC8H, 081H,045H, °S* 


081H,079H, 085H, 04AH, 083H,069H,081H,045H, "8° 


ir WORD 
081H,079H,0435H,061H,070H,075H, 081H,045H, "8" 


hore BYTE 
081H,079H,089H,070H,090H,094H, O81H,045H, "9" 


LABEL BYTE 
094H,0BCH,081H,07AH,'$* 


091H,053H,081H,07AH,'$" 


J errr nnn nn wn nnn nn nn nn nnn ee enn eee enone nnn eeeee 


MESSAGE WRITE ROUTINE 


IE wo we we we we we we we Oe Be we we SH we SE 


RITE 


WRi: 
2E: 80 

74 «0€ ae BS 

2E: 8A 07 

53 

BS OF 

BS BE 

CD 10 

5B 


43 


INPUT Bx OFFSET OF MESSAGE HEAD 
DH ROW 
DL COLUM 

OUTPUT NONE. 


MMM NOTE aM 
MESSAGE FORMAT 


PROC 
PUSH 


, 


N41 BYTE 


wowwewnnnnne=> 


(01), 002), 0C03) ,- nnn nnn ate » CCN), "O° 


D 
CX,2000H 
AH, 81H 
10H 

DX, BP 
AH, 82H 
10H 


BYTE PTR CS:(BXJ,°9° 


WR2 
AL,CS: (BX) 
BX 


BL,OFH 
AH, BEH 
10H 
BX 
BX 
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fee we we we we we we we we we we 


wet ee 


~ 


READ ALTERNATE CURSOR POSITION 
AND CURSOR TYPE 

| 

" 

ERASE ALTERNATE CURSOR 


xu 

SET ALTERNATE CURSOR POSITION 
1S END OF MESSAGRE 

Yes, 

LOAD CHARACTER 

SET COLOR (IN GRAPHIC MODE) 
BIOS CALL 10H 

INCREMENT POINTER 


81 


NOnonvo~no 
NeENe Oe Ne 


Orwuunw oc 
v~ATNOesmM wee 


36 0359 
04 


1E 001C R 


e4 





JMP SHORT WR1 3 
WR2: 
PoP Dx 3 
MOV AH, 82H $s RECOVER ALTERNATE CURSOR POSITION 
INT 10H 37M 
PoP cx 3 
MoV AH, 81H 3 RECOVER ALTERNATE CURSOR TYPE 
INT 10H 7M 
POP BP 
POP AX 
ET 
WRITE ENDP 
PAGE 
feeeesii ce an saokee es eecee se SS Reeneewwnnsccccucesncscseu imams 
3 INT sag (SAVE D DATA INTO BUFFER) 
3 MPU 
3 ouTPU 
jaseesasssan. wostanecsoee eee [Retweeewesroesseme i Sos foto 
; 
BUFFER_QUEING PROC FAR 
ASSUME CS:CODE,DS:DATA 
KQl: 
PUSH DS 3 
PUSH Bx 5 
PUSH cx 3 
PUSH SI 3 
CALL DDS 3 POINT DS AT BIOS DATA SEGMENT 
MOV BX,BUFFER_TAIL ; GET THE EXD POINTER TO THE BUFFER 
MOV SI,BX 3 SAVE THE VALUE 
CALL K4 $ ADVANCE THE TAIL 
CMP BX,BUFFER_HEAD ; HAS THE BUFFER WRAPPED AROUND? 
JNE KQ2 3 BUFFER_FILL_BEEP 
MOV BX, FIRST PIR 5 
MOV SI,(BX) 3 --- SI=CONTENT OF PREVIOUS DATA 
TEST SI,0FFOOH 
JE ONE_BYT 
AND S1,00FFH 
CMP SI,81H 3m 
JB ONE_BYT 3m 
CMP S1,9FH sm 
JBE TWO_BYT 7 
CMP S1,0E0H 7m 
JB ONE_BYT ; 
CMP SI, 0EFH 3M 
side apa JA ONE_BYT ; --- RECOGNIZE PREVIOUS DATA IS FIRST BYTE OF KANJI 
WO_BYT: 
MOV BUFFER_TAIL, BX 3 BACK THE POINTER 
ONE_BYT: 
PUS BX + SAVE BUFFER_TAIL 
CALL ERROR_BEEP 3 CALL ERROR BEEP ROUTINE 
PoP BX 3 RETRIEVE BUFFER TAIL 
ius JMP SHORT KQ4¢ 3 RETURN FROM INTERRUPT 
2 
TEST KB_FLAG_1,CLICK_ON ; IS AUDIO FEEDBACK ENABLED? 
JZ Kes 3 NO, JUST PUT IN BUFFER 
PUSH BX 3 SAVE BUFFER_TAIL VALUE 
Mov BX,1H 3 DURATION OF CLICK 
MOV CX,10H 3 FREQUENCY OF CLICK 
CALL KB_NOISE ; QUrraT AUDIO FEEDBACK OF KEY 
3 STR 
bia POP BX 3 RETRIEVE BUFFER_TAIL VALUE 
2 
MOV FIRST_PTR,SI 3 MEMORIZE POINTER 
MoV (S1),4x 3 STORE THE VALUE 
ek MoV BUFFER_TAIL,BX 3 MOVE THE POINTER UP 
4 
POP SI 3 
POP cx 3 
POP BX 3 
POP DS 3 
ET 3 RETURN FROM INTERRUPT 


IR 
BUFFER_QUEING ENDP 
PAGE 


eebaeed 1 tedden ED 


ORG BEGIN¢+1100H 
CODE ENDS 
END 
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PELLET | 
De 00 Oe DO Oe Oe Be ne 


" " 
m MODULE 5 x 
" x 


PEEP ET 
PELE LEE 8 
6000 
0000 40:19 28 
0003 408 19 28 
0006 40 19 50 
0009 40 19 50 
000c 84 19 28 
QOOF 84 19 28 
0012 80 19 50 
0015 00 00 00 
0018 8C 19 14 
001B 8C 19 28 
OO1E 84 19 50 
0021 060 00 00 
0026 060 00 00 
0027 00 00 00 
002A 00 GO 00 
@02D 00 00 00 
0030 40 OB 28 
0033 40 OB 28 
0036 40 OB 50 
0039 40 OB 50 
0OSC 84 19 28 
COSF 84 19 28 
0042 80 19 50 
0045 00 00 00 
0048 8C 19 14 
006B 8C 19 28 
QOOSE 84 19 50 
0051 ac 19 50 
0054 00 
0055 00 
0056 «FS 
0057 F& 
0058 00 
0059 00 
OO5A 80 
6058 80 
eosc 70 
005D 70 
QOSE FS 
QOSF F8& 
0060 600 
0061 00 
0062 80 
0063 00 
006% 60 
0065 00 
0066 80 
0067 10 
0068 98 
0069 00 
OO6A 60 
0068 10 
006C 78 
@06D 00 
OO6E 98 
OO6F 10 
9070 60 
Oo71 18 
0072 98 
0073 60 
0074 78 
0075 80 
0076 98 
0077 EO 
0078 «78 
0079 CO 
OO7A 78 
007B EO 
oo7c «678 
007D FO 
QO7E FS& 
OO7F F8 
0080 600 
0081 060 
0082 80 
0083 80 
0086 20 
0085 20 
0086 CO 


een THIS LOGIC WILL BE INVOKED BY INTERRUPT OSH TO PRINT THE 4 
; 5020 THE STATUS OF THE PRINT SCREEN. ; 
: = 0 1 PRINT SCREEN ISK*T CALLED. ; 
; = 11 PRINT SCREEN IS IN PROGRESS ; 
= __ 2721 ERROR ENCOUKTED DURING PRINTING 


Joceoeeee coca weweesewcnsceccce eonerecee 
3 VIDEO MODE TABLE 


BYTE 1 7.6 O01 CHARACTER / 10 GRAPHIC 3 
5 COLOR TABLE OFFSET 


5 

5 

VERTICAL SCREEN SIZE(SIZE/8 WHEN GRAPHIC) s 
3 

C7 


] 
BYTE2 7-0 
8 


BYTE 3 7- : HORIZONTAL SCREEN SIZE 
TABLE PROC NEAR 
MODETBL DB 040H,019H,028H 3 C (40,25) sMATIVE 

DB 040H,019H,028H 3 C (40,25) 

DB 040H,019H,050H 3 C (80,25) 

DB 040H,019H,050H 3 C (80,25) 

DB 084H,019H,028H 3 G (320,200) 

DB 084H,019H,028H 3 G (320,200) 

DB 080H,019H,050H 3G (640, 

DB 000H,000H,000H 3 NOT VALID 

DB O8CH,019H,014H 3 G (160,200) 

DB O8CH,019H,028H + G (320,200) 

DB 084H,019H,050H + G (640,290) 

DB 000H,000H,000H 3 MOT VALID 

DB 000H,000H,000H 3 MOT VALID 

DB 000H,000H,000H 3 NOT VALID 

DB 000H,000H,000H s NOT VALID 

DOB 000H,000H,000H 3 MOT VALID 

DB 040H,00BH,028H 3 C (40,11) 

OB 040H,00BH,028H 3 C (40,11) 

DB 040H, 00BH,050H ~ 3 © (80,21) 

DB 040H,00BH,050H 3 C (80,11) 

DB 084H,019H,028H 3 G (320,200) 

OB 086H,019H,028H 3 G (320,200) 

DB 080H,019H,05S0H 3 G (640,200) 

DB 000H,000H,000H 3 NOT VALID 

Ds 08CH,019H,014H 3 G (160,200) 

DB O8CH,O1L9H,028H 3 G (320,200) 

DB 0846H,019H,050H 3 G (640,200) 

DB OACH,019H,050H 3 G (640,200) 
DOTTBL DB 000H s 2 COLOR 

DB Q@O0K 

DB OF8H 

bB OFSH 

DB OOOH 3 4 COLOR 

DB QOOH 

DB 080H 

DB O80H 

OB Q70H 

DB 070H 

DB OF3H 

DB OFS8H 

DB OOOH 3 16 COLOR 

OB OOOH 

DB O380H 

DB O00H 

DB 060H 

DB Q00H 

DB O80H 

DB O10H 

DB 098H 

DB Q00H 

DB 060H 

OB 010K 

DB 078H 

OB OOOH 

DB 098H 

DB 010K 

OB 060H 

OB O18H 

os 098H 

DB 060H 

DB 078K 

OB O80H 

DB 098H 

oB QEOH 

DB 078H 

DB OCOn 

DB O78H 

DB QEOH 

DB O738H 

DB QFOH 

DB OFSH 

DB OF3H 

dB OOOH + SUPER 16 COLOR 

bB QOOH 

OB O80 

DB O80H 

oB O20H 

DB Q20H 

DB OCcon 
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TABLE 


poocces------- 


8E CO 

: SE @O1E R 01 

26: 80 SE 9000 R O1 
74 5C 


26: C6 ifs 0000 R OL 
E8 925 

89 26 O06 R 

E8 O3SSF R 

8A 26 OOOS R 

AO 0004 R 

50 

B4 OF 


CD 10 
88 SE 0068 R 
32 €4 


2E: 8A at oooe R 
A2 006 

80 se Deeb R00 
74.13 


7F 38 
E9 OLAR R 


Sra EXIT: 


8E CE 
Hy FE 06 0000 R 


E8 0308 R 


rH 26 0069 R ABEND: 


8E C6 

26: 80 2E 

ES 02 0282 h 0060 R O2 

se RETURN: 


. 


52 INTL? 
33 p2 


Fo C4 08 
DB 


BB 73814 


ENDP 


MAIN ROUTINE 


PROC FAR 
D' 


AX, DSEGN 

DS.A 

AX, XXDATA 

ES, AX 
STATUSI7,2 
RETURN 
STATUS_BYTE,2 
RETURN 
STATUS_BYTE,2 
INIT 
SPSAVES, SP 
CRLF 

AH, CPI 

AL, LPI 

ax 

AH,15 

10H 
PAGENO, BH 

AH, AH 

DI,AX 

DI,AX 

DI, AX 

AL, MODETBLUDI) 
VIDEO_MODE, AL 
VIDEO_MODE, 0 
ABEND 

CHAR 

GRAPH 
S1,XXDATA 
ES,SI 
STATUS_BYTE 
BX 

CPILPI 

SP, SPSAVES 
S1+XXDATA 


SI 
STATUS_BYTE,2 
st 


INT 17 CALL ROUTINE 





NEAR 
Dx 

DX, DX 
17H 
AH, 08H 
ABEND 


NEAR 
BX.7814H 
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3 


sSAVE REGS. 


sSET DS 
sSET ES 
sIS INT17 IN PROGRESS ? 
3IS INTS IW PROGRESS ? 


sINITIAL PROCESS 
sSAVE CPI,LPI 
sGET DISPLAY STATUS AND PAGE 


sMODE CHECK 


3SET VIDEO MODE 


sCHARACTER 
3GRAPHIC 
3SET NORMAL STATUS 


sRESTORE CPI,LPI 
sRESTORE S 
sSET ERROR ” status 


sPOST ROUTINE 


meee enn ee} 


weeeen-e eee e reer nes ----3 


sINT 17 
sERROR ? 


een ee ee ay 


36 CPI , 6 LPI SET 


SYS YY YS VAAAAARAAONUUUNNU SP SHLD OU 
MOPFAOKSNOMOFSFARSNOMOFASNOMFAKENOAOU 


eooooocoececo 
be ae bee Dee ee Be ee bee ew 
rrr rovwvwvwowoe 
OuUuEnMeoUE Th 


ver >>p 


EO ee ed ed el ed ck aah and ack od od acl dl aed andl aol andl andl aed andl aol acl aed aad od 
NOMGOPFHSSOONSVUNSOMPF CHUUAMPVUN NO OFWH MBO 


eooecececocecoococooeooecocoocoooeocooooocceoecoeoc0oeocoeoo 
SCOMABAANAMAAANMMMMMMMOGCOCGCINNNANNNGseSs 


eoooooo 
NANNAANNN 





EB 0308 R CALL CPILPI 
2E: BA AD 0001 R MoV CH, MODETBL4+1(DI) SET DISPLAY SIZE TO CX 
2E: 8A 8D 0002 R MoV CL,MODETBL*2(DI) 
32 F6 XOR DH, DH 30 -> V.POS 
32 v2 CHAROO: XOR DL, DL 30 -> H.POS 
33 F6 XOR SI,SI 30 -> BUF.POS 
B4 02 CHARLO: MOV AH,2 sMOVE CURSOR 
BA 3E 0068 R MoV BH, PAGENO 
CD 10 INT 10H 
BG 08 MOV AH,8 BREAD CHARACTER & ATTRIBUTE 
8A 3E 0068 R Mov BH, PAGENO 
CD 10 INT 10H 
3¢ 1¢ CMP AL,1CH sFORMAT CHARACTER ? 
77 22 JA FORMAT 
3¢ 19 CMP AL, 19H 
77 1¢ JA CNTROL 
3c 18 CMP AL, 18H 
77 1A JA FORMAT 
3¢ 17 CMP AL,17H 
77 16 JA CHTROL 
3c 14 CMP AL. 16H 
77 12 JA FORMAT 
3c 10 CMP AL, 10H 
77 0c JA CHTROL 
3c OF CMP AL, OFH 
77 OA JA FORMAT 
3C 06 CMP AL, 06H 
77 04 JA CNTROL 
3c 00 CMP AL, 00H 
77 02 JA FORMAT 
BO 20 CNTROL: MOV AL,t ¢ 
83 84 03D4 R FORMAT: MOV CODE_INTS(SIJ,AL 3SET CHARACTER 
C6 84 0476 R 00 MOV ATTRIINT5S(S1},0 3SET ATTRIBUTE 
46 INC SI 3UP BUFFER POSITION 
FE c2 INC DL 3UP HORIZONTAL POSITION 
3A D1 CMP DL.cL sLIMIT ? 
75 BA JNE CHAR1O 
51 PUSH = CX SPRINT CHARACTER 
BS OB MoV AH,11 
8D 1E O3DER LEA BX, CODE_INTS 
3D 3E 0474 R LEA DI, ATTRIINTS 
8B CE MoV cx, SI 
E8 0126 R CALL INT17 
59 POP cx 
FE C6 INC DH SUP VERTICAL POSITION 
3A F5 CMP DH,CH 
75 9F JNE CHAROO 
ES OOFD R JMP EXIT 
EAR 
BB 7810 MOV BX, 7810H 36 CPI , 7.5 LPI SET 
E8 0308 R CALL CPILPY 
B& 0COS MoV AX, 0COSH 3SET UNIDIRECTION 
B7 00 MOV BH, 0 
E8 0126 R CALL INTL? 
B8 001B MoV AX, 001BH sSET 3 BYTE TRANSMISSION 
E8 0126 R CALL INTI? 
B83 0028 Mov AX, 0028H 
E8 0126 R CALL INT 
E8 025A R CALL SIZESET 
339 XOR cx, Cx 30 -> H.POS 
E&8 0317 R GROG: = CALL ESCX1 sESC # X + 1 4 RL 4% N2 
8B 16 0062 R MoV DX, VSIZE 3VSIZE -> V.POS 
4A DEC Dx 
8B 36 0OGER GR10: = MOV SI,SLICE 3SET COUNT 
33 FF XOR : 
51 PUSH CX 
E& O2BE R GR20: CALL DOTSET 3DOT PATTERN SET 
41 INC cx 3MOVE POSITION RIGHT 
2B 36 0064 R SUB ST,HRATIO 
75 F6 INZ GR20 
8B OE 0066 R MOV CX, VRATIO 3PRINT DOT PATTERN 
51 GR40: PUSH = cx 
33 FF XOR DI,DI 
8B 0E oo00 R mov CX, PRINTER_ID 3SLICE 7 8 -> Cx 
51 GRS0: PUSH cx 3SET DOT PATTERN TO AH 
39 coos mov CX.8 
BA 85 0080 R GREG: MOV AL, DOTC{DI) 
D1 SHL AX, 
88 85 0080 R MOV DOTCDII,AL 
47 INC DI 
E2 FS LOOP = GR6O 
59 PoP ex 
BA C4 MOV ALLAN SPRINTING 
32 E4 XOR AH, AH 
ES 0126 R CALL INTL? 
E2 E5 Loop GR50 
59 POP cx 
E2 DA Loop GR40 
59 POP cx 
4A DEC ox sUP VERTICAL POSITION 
383 FA 00 CMP DX, 0 
7D BE INL GR1O sLIMIT 2 
E8 OS3SFR CALL CRLF 3LINE FEED 
Al OO6E R MOV AX, SLICE sSLICE 7 HRATIO -> ax 
33 D2 XOR DX, DX 
F7 36 0064 R DIV HRATIO 
03 C8 ADD CX, AX SUP HORIZONTAL POSITION 
3B OE 0060 R CMP CX, HSIZE 
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Ameo IDIRECTION 
Ae nov AX, OCOSH sSET B 
e223 bs oces Moy oBH.A 
e228 2) 1 CALL ImMTi7 
teen fa Ot26 R cau, Ini ee 
220 U3 eerD tae No PR eo = 
iat ; INITIAL process ea 
int aoc NEAR HSAVE RETURN ADDRESS 
ae ror AL LF_cT sSAVE LINE FEED COUNT 
0232 07 PoP atts ! nw 
ose SoS nove 3SAVE CURSOR PO 
0237 be 03 HOV BH. PAGENO 
ge ps PUSH St ;RESTORE RETURN ADD: 
Oa3F $2 PusH Dx 
oo ; POST PROCESS be ee ane aks ann ae ae 
Fost PROC NEAR ESS 
os AVE RETURN ADDR 
nee mest For bx SRESTORE CURSOR RoSTTION 
aos 3A tHe VIDEO_MODE, 0 
joe8 80 SE onsp RR Oe cr VIDED | 
teak Be 8 Mie . 
ED 
a ere te LF_CT.BL 
0254 85 1E 0026 R rte 
025 
3 ee, 
ai Post ENP Fiala sbonteeshea gash oo 
sa ; por size SET celeiiecna Se oot ee eto, bocntal 
SIZESET PROC Anes sSET VERTICAL DOT SIZE 
XOR : 
t25k 32 ee 1 R Mov AL -MODETBL#1CDI3 
g2sc 2E: $A 85 00 ney we 
me Re OR an sSET HORIZONTAL DOT SIZE 
nate 32 Ee nov AU MODETBL#2¢D1) 
a3 XicL 
neer ps eos 8° O00? nov Size ax er ae 
t VRA 52. 060s SET_EMLARGE RATT : - 
te ees on ee re 
ace a ac 0062 R Oocs8 Js size06 aoe pth | re | 
a D i] 200 KS les 
0282 C7 06 0066 R 0005 SIZEO: Rov AX, PRINTER_T ioe ee 
0288 81 SE BOLO R 0168 ch WSIZE. ia Se Uns ee 
0291 7F OC is SIZE Pre Tory: 
Sens nn ee CHP HSIZE,180 i] ibis [$2 [xi 
295 $1 SE 0NGo R OS ic. sIze1é atte | SS a 
ca * ‘SET TABLE OFFS 
Caer AS neds 8 SIZEL0: HOV itinabetSusocors Seagate 
San ete AND COLORTD: O03FH SLICE SIZE (16 OR 24) 
O2A7 AS 00GB R : Rov EBtonra 08 rH oe 
O2AA 31 26 006B R 003 AND OL 5 
0250 8B OE 0000 R mov cX.P 
02B4 BO 08 mov AL 
02B6 FEC} Mc et ex 
0288 FG EL muy ck _ 
O2BA AS O06ER HOV ree 
Oabe SIZESET ENDP eT aa eee — 
— oe Reese 
; Ss sn, ee ee 
OTSeT OC NEAR 
OBE boTser PUSH GX a 
o28e Se PUSH = DX kek 
028F Pus 
CO BS OD v aM. 
wee 9 30 tHe eX HSIZE 
maa iD SSET VERTICAL MASK 
Mov 
dzce $5 O8 AND — AX, OOOFH 
oacr sp SOF mae BX. AX 
0201 SHL : 
03D HF fe 006B R Ade Ea coreg) votexi = 
0207 2E: SAB? 0056 R Hoy Bt orretethe Gass ee 
020C 2E: BA 97 0055 R mov DL, DOTTB Bas 
O2E1 8B 1E 0086 R ROY BXsM oe 
O2E5 D1 EB SHR Xi spor at 
02€7 4 Be As Bx ak 
02E9 9 e 
OED ab oe nov CX, PRINTER_ID 
eer on ge tee DoT2e: HOV DoTtoI], 
sees 1 BS 0080 R OY or 
OOP 
ters HE GR hav eae 3640 MODE t 
OFA OB Se OR BX, BX 
ore 96 BB Jz DoTs$ 
82FC 76 97 
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r¥-¥-2 1-1-0 -3 7-7-7 7 YY) 
BHUUUUUUUUNUNUu 
UMUUUNNNANN mmr 
SOUUKONODRUVOOFPVN 


eo 
wu 
wu 
<2 


95 0080 R DOT3SO: MOV DOTCDI), DL 


INC or 
F9 Loop DOTS6 
DOT99: POP Dx 
POP cx 
RET 
OaTsey ENDP 
ee Been eS he esi emuaaeSan Use eeeeseweeecesKesetecclneseeens 
H cPr uPr SET “ROUTINE (BH + cel ’ BL : LPI) 5 
oe ew ww we ee ES SR OO OR Sw PS DOeeeeseeeoeeorro@ j 
ePrpi PROC NEAR 
ocol MOV AX, OCO1H sCPI SET 
0126 R CALL Helga 
FB MoV BH,B sUPI SET 
oco2 MoV AX, oco2H 
0126 R CALL INT17 
RET 
CPILPI  ENDP , 
pelea lanai ere ee wieseocneewuae er ee er 
; Esc + x + 1 + Nl + N2 3 
SW lecatseowccecacasnenesse ee ey 
ESCX1 = PROC EAR 
001B MOV AX, 001BH sESC 
0126 R CALL INTL? 
0025 MOV AX, 0025H 5% 
0126 R CALL T17 
0031 MoV AX, beaan 31 
0126 R CALL IN 
0062 R MOV AX, VSIZE sM1N2 = WSIZE X VRATIO 
26 0066 R MUL VRATIO 
PUSH 
c4 MOV AL,AH 
E4 XOR AH, AH 
0126 R CALL INTL? 
PoP AX 
XOR AH, AH 
0126 R CALL INT17 
RET 
ESCxX1 ENDP . 
H CR. LF. 3 
CRLF PROC NEAR : 
oooD MOV AX, 000DH 3cR 
0126 R CALL INTL? 
3E 0000 R O1 CMP PRINTER_ID,1 Ln 1? 
07 JNE CR10 
OOOA MOV AX,000AH ite (FOR PT-1) 
0126 R cat INTL? 
0418 CR10: MOV AX, 041BK sVERTICAL FEED (FOR PT-2) 
0126 R CALL INTL7 
04625 MOV AX,0625H 
0126 R CALL INTLT 
0435 MOV AX,0435H 
0126 R® CALL INTL? 
0400 MOV AX,0400H 
0126 R CALL INTL? 
0410 MoV AX,0410H 
0126 R CALL INT 
RET 
CRLF ENDP 
ORG BEGIN*O3COH 
CODE ENDS 
END 
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" x 
mu MODULE 32 : 


INT 17 eonnnnennnnnwnnnnwnn anne n= = -- nn n-ne nnn = === soeeeeccnne- 
RINTER 170 ; 
INPUT 
AH=0 + PRINT A CODE IN AL 
AL : OUTPUT DATA 


AH=1 + INITIALIZE PRINTER 
AH=2 1 BEAD PAIOTER STATUS~1 IN AH 
5 


wet 


OUT OF PAPER 
RESERVED 
~BUSY 


AH=S + READ PRINTER STATUS-2 IN AH 
7 6 5 43 251 ' 
| PRINTER-ID 
PIM 


LPI 
RESERVED 
. RESERVED 


4073 10 


: 10 
01: 12 01 
: 15 re 


ae oe te 


NOUS 


AH=4 : PASS THROUGH A oe IW AL 
AL : OUTPUT DAT 


> 
=z 
“ 
w 
- 


PRINT A CODE IN AL CDOUBLE SIZE) 
AL : OUTPUT DATA 


AH=6 : RESERVED 
AH=7 : RESERVED 
AH=8 : RESERVED 


AH=A : RESERVED 


AH=B : PRINT CODES WITH ATTRIBUTES 
ES:BX : ADDRESS OF CHARACTER BUFFER 
ES:DI : ADDRESS OF ATTRIBUTE BUFFER 
cx : LENGTH OF THE BUFFER 


ATTRIBUTE 
7 6 5 4 3,2 1,0 


| HORIZONTAL GRID * 
VERTICAL GRID ¥ 
RESERVED 
HIGH-INTENSITY 
UBDERSCORE 
RESERVED 


SINGLE SOLID LINE 
DOUBLE SOLID LINE 
SINGLE DASHED LINE 


AH=C + SET PRINTER CONTROL VALU 
AL=0 + RESET CONTROL VALUE a DEFAULT 
AL=1_: CHANGE CHARACTER PITCH 
BH=90 : 10 CHAR/INCH 
BH=78 : 12 CHAR/INCH 
BH=6C : 4073 CHAR/INCH 
BH=60 : 15 CHAR/INCH 
AL=2 : CHANGE LINE FEED PITCH 
BH : PHYSICAL PICH * 120 CINCH) 
AL=3 : CHANGE PAGE LENGTH 
BX : PAGE LENGTH 
AL=5 = CHANGE DIRECTION 
BH=0 : UNIDIRECTION 
BH=1 : BIDIRECTION 
AL=6 : CHANGE CHARACTER TYPE 
BH=0 : LARGE TYPE 
BH=1 : SMALL TYPE 


DX MUST bE ZERO. 


LINE 

00 : NO GRID LINE 
: 
2 


wee 


i 3 
3 rf 
; 5 
3 3 
, J 
. 
; 3 
3 3 
; 3 
3 : 
; 
; 3 
3 3 
; 
H 3 
, 
H 3 
; tf 
; 3 
3 
3 3 
3 8 
; 3 
3 5 
3 3 
3 3 
3 
: 3 
3 8 
3 3 
3 3 
; 3 
3 3 
3 3 
3 5 
: 3 
; 3 
; 3 
; ; 
° 
q ; 
3 3 
3 3 
. 3 
; $ 
‘ 3 
3 AH=9 : RESERVED / 
3 3 
3 3 
’ 3 
; 3 
> 3 
3 3 
3 3 
3 ; 
: 3 
3 3 
3 3 
’ 3 
3 3 
3 $ 
3 3 
3 8 
3 3 
; 3 
3 s 
3 3 
3 $ 
3 3 
3 3 
FA 5 
3 5 
3 , 
3 3 
3 3 
3 Pf 
5 3 
3 5 
3 t 
3 $ 
FY 5 
3 4 
3 3 
3 iy 
3 5 
3 3 
3 3 
3 3 
3 3 
; 3 
3 


s 


eeoeeennoneoooe eee nn nn nn nn ee nn nnn nn nn nn een nnn enn nn nen-==}3 


CPI , LPI CONTROL VALUE TABLE 3 


VERTICAL “ CONTROL VALUES 
0 KEY 
1-3 ‘ SOLID IMAGE 


A-140 


eocoooocoocoo0oco0o0oo 
eocoocoococoocoocccooo 
Ne ee ee OO 
NTNOS>COuUNnNKoo> 


0025 


eocoooooceceoccocoCo 
=P-2-7 2-2 tt tt ot od 
OOOO yuWIFFOSPOOOH 
WSUMOKPROSTNOFVAvOust 


P>rrowo 
penory 


UNH OK TNHOHON-OCOTN TNH 
ANSPOONSVONNMVYOONM 


10 
Q 


comnnroocorooo 
OK OTOCOCKOOONNT 


VERE OrnR 
VRENUNO OMe 


50 


o 
m 


FF 
3sF 


FF 
FC 


oF 


3sE 


7 


Fo 


Fs 
Fo 


FF 
3F 


co 


01 


4 
7 


pero nnn nn eee === 


NORAZEGT 


i- 
4 


ee we we we we we 


TABLE ENDP 
: MAIN ROUTINE 
PRINTER, 10 

“STI 


PUSH 


-6 : DASHED IMAGE 

t UNDERSCORE IMAGE 

t FEED VALUE 
DB 1EH 
DB OFFH,OFFH,OF8H 
DB OF8H,03FH, OFOK 
DB 080H 
DB 7 
DB 1EH 
DB OFFH, OFFH, OFFH 
DB OOFH,OFCH,01FH 
DB 080H 
DB 7 
DB 18H 
DB OFFH,OFOH,000H 
DB OFCH,0S0H,000H 
DB O10H 
DB 4 
DB 18H 
DB OFFH, OFFH, OFFH 
DB O3FH,OFCH,O3SFH 
DB 010H 
DB 
DB 14H 
DB OFCH,0COH,000H 
DB OF8H,000H,000H 
DB 002H 
DB 2 
DB 14H 
DB OFFH, OFFH, OFFH 
DB OOFH, OFCH,O1FH 
DB 002H 
DB 
DB 10H 
DB 000H,000H,000H 
DB 000H,000H,000H 
DB 
DB 0 
DB 10H 
DB OFFH, OFFH, OFFH 
DB OFOH,OFFH, 0OOFH 
DB 001K 
DBL 
AL “GRID CONTROL VALUES 


3: DASHED IMAGE 
: HORIZONTAL SIZE 


3 - LPr (UPPER) 


3 4 LPI (LOWER) 


3 5 LPI CUPPER) 


3 5 LPI CLOWER) 


3 6 LPI CUPPER) 


3 6 LPI CLOWER) 


3 7.5 LPI CUPPER) 


3 7.5 LPI CLOWER) 


: SPACE BETWEEN CHARACTERS 


90H 
oB OFCH,OOFH,OCOH 
18 


78H 

DB OF38H,OSEH,000H 
15 

DB 4 

DB 6CH 

DB alata: 


DB 3 
60H 
DB eel 


st. 1. DSEGM 

STATOSI7.«3 

SPSAVE, SP 

DX, DX 

NO USE 
NTER_ID,0 

4 en 

AX 

INIT 


RETURN |_CODE.PR_SELECT 
RETURN CODE, PR_BUSY 


1 
PRINTER_ID,2 
PTR 
PRINTER_ID,2 

O_DEV 
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3 13.4 CPI 


3 15 cPer 





Setetatateteeed | 


3 INTERRUPTS BACK ON 
3 SAVE REGISTERS 


3 SET DATA SEGMENT ADDRESS 


3 SET PROGRESS FLAG ON 
3 SAVE STACK POINTER 
3 CHECK PRINTER CLASS 


3 IMPROPER DEVICE --RETURN-- 


3 CHECK PRINTER-ID 
3 AVAILABLE 
3 INITIALIZE 


3 SET SELECT TO RETURN CODE 


3 IF INIT IS REQUIRED, 


3 JUMP TO PTRI ROUTINE DIRECTLY. 
E 


3 IF STATUS IS REQUIRED, 


3 JUMP TO PTR) ROUTINE 
3 CHECK PRINTER TYPE-} a 


3 CHECK PRINTER TrPE-2 
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0136 R 
06 C002 R 08 
26 0002 R EF 


26 0002 R 
06 OO1E R 00 


06 000D R 60 
O19F R 
AD 


0832 R 
as 

OB 
OFS4 R 
Al 
OFOL R 
gc 
OFOA R 
97 

06 000D R 01 
OLOF R 
80 
OAB] & 
88 


O8Fa R 
83 


NO_DEV: 


NO_USE: 
RETURN: 


PTR2 

RETURN_CODE,PR_ERROR 3 DEVICE IS INVALID 
RETURN_CODE, OFFH-PR SELECT 

ax } SET RETURN CODE 
AH, RETURN_CODE ‘ . 


ByATU $17,0 3 SET PROGRESS FLAG OFF 
3 RECOVER REGISTERS 


3 
3 FOLLOWING MAIN BRANCH IS PREPARED FOR PRINTER TYPE-1 


J ttt nnn ww ne eek 





PIRI: OR AM AH 
AHO_2 = 
Dec an 3 AH=0 PRINT A CODE IN AL 
AH1_1 = Kis 
Dee au . 3 AH=2 PRINTER INITIALIZATION 
AH2 = 
bec AN 3 AH=2 READ PRINTER STATUS 
ANS _ AH= - 
Dee ve $ AH=3 READ PRINTER STATUS-II 
AH4_1 3 ANE 
Dec au 3 AH=@ PRINT PASS THRU CODE IN AL 
AHS_1 + AH=5 DOUBLE SIZE CHARACTER P 
bec AN j RINT 
ARX_ AH N 
Dec a 3 AH=6 IS NOT USED 
AHX_1 3 AH=7 IS NOT 
eo 3 AH=8 IS NOT U 
DEC AH 3 I SED 
Jz AHX_1 + AH=9 IS NOT USED 
DEC AH 
Jz AHX_1 s AHEA IS NOT USED 
DEC AH 
vz AHB_1 3 AH=B PRINT CHARACTER IN SPECIAL BUFFER 
Jz AHC_1 +_AH=C CHANGE PRINTER CONTROL P 
bn---  AH=? ( PTR1 = FUNCTION INVALID ) -------------------------c ee ARAMETER 
AHX_i: UMP NO_USE ; AHS? INVALID FUNCTION IS SPECIFIED 
z--=- H=0 € PTR1_: PRINT A CODE IN AL ) ---------------------------- 
AHO_1: MOV SIZE_AH,NOR 3 SET CHARACTER SIZE NORMAL 
CALL CMD_CHK 
JMP RETURN 
b---- AH=1 ( PTR: PRINTER INITIALIZATION ) ------- ee enn nae nn en nnn; 
AHi_1: CALL) INIT1 
JMP RETURN 
b---- AH=2 ( PTR : READ PRINTER STATUS INTO AH ) --------- woen------; 
AH2_1: XOR BL» BL 
CALL STATUS 
JMP RETURN 
s--- AH=3 ( PTR1 : READ PRINTER STATUS-II INTO AH ) -----9----------; 
AH3S_1: CALL STATUS2 
JMP RETURN 
goon-> «=AH=4 ( PTR1 =: PRINT PASS THROUGH CODE IW AL ) ----mnnnnn--------3 
AHS_1: CALL FIRE 
JMP RETURN 
g---- AH=5 ( PTR1 : DOUBLE SIZE CHARACTER PRINT ) ~------~------ correo; 
AH5_1: MOV SIZE_AH, BAI 3 SET CHARACTER SIZE DOUBLE 
a ee 
MP TR 
---- AH=B ( PTR1 : PRINT ATTRIBUTES AND CHARACTERS IN SPECIAL BUFFER ) 
Awp_a: cate ATTR 
JP RETURN 
s---- =AH=C ( PTR1 : CHANGE PRINTER CONTROL PARAMETERS ) -nnn-en-------3 
AHC_1: CALL = CHG_PT1 
JMP RETURN ; 
geceeuceea Seveeseooctses Biadepecetscccsse ceca socrenseteeee ago. 
3 FOLLOWING MAIN BRANCH IS PREPARED FOR PRINTER TYPE-2 ‘ 
Smeeneeins eee acne ne pis 
PTR2 OR AH, AH 
vite JZ AHO_2 3 AH=0 PRINT A CODE IN AL 
DE ° 
a2. AH1_2 3 AH=1 PRINTER INITIALIZATION 
DEC AH 
JZ AH2_2 3 AH=2 READ PRINTER STATUS 
D AH 
+a AH3_2 3 AH=3 READ PRINTER STATUS-II 
DEC AH 
JZ AH4_2 3 AH=4 PRINT PASS THRU CODE IN AL 
DEC AH 
JZ AHS_2 s AH=5 DOUBLE SIZE CHARACTER PRINT 
DEC AH 
JZ AHX_2 3 AH=6 IS NOT USED 
DEC AH 
IZ AHX_2 3 AH=7 IS NOT USED 
DEC AH 
JZ AHX_2 3 AH=8 IS NOT USED 
DEC AK 
JZ AHX_2 3 AH=9 IS NOT USED 
DEC AH 
JZ AHX_2 3 AH=A IS NOT USED 
DEC AH 
JZ AHB_2 3 AH=B PRINT ATTRIBUTES AND CHARACTERS 
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0166 FE CC DEC AH 


0168 74 2F JZ AHC_2 3 AH=C CHANGE PRINTER CONTROL PARAMETERS 
lnc zs a? ¢ prke + FUNCTION INVALID ) Yate i NWALID FUNCTION 13, SPECIE ‘ 
016A CE C) _USE ; IMVALID FUNCTION sp TeD 
as 2 aman oe bw--~ AHO € PTR27: PRINT A CODE IN AL ) ---------------- nen e nen e nee 3 
NT 17 
016D E8 O7FA R AHO_2: oak ceane. 
Si8 EY DEEP & zooms AHEL ( PTR2 : PRINTER INITIALIZATION ) ----------~-------------; 
0173 E38 0832 R AH2_2: CALL OINITL 
0176 E9 00B9 R JMP RETURH 
z--~~ AH=2 € PTR2 : READ PRINTER STATUS INTO AH ) ----- ata 
0179 32 DB AH2_2: XOR BL, BL 
017B 4E8 OFS4 R CALL STATUS 
O17E £9 00389 R JHP RETURN 
go---  AHE3 C PTR2 : READ PRINTER STATUS-II INTO AH ) ~---------------; 
0181 E8 OF9L R AH3_2: CALL STATUS2 
0184 E9 0OBO R JMP RETURN 
s~--~ AH=4 ( PTR2 : PRINT PASS THROUGH CODE IN AL ) ---~------- oon--3 
0187 E8&8 OFOA R AH4_2: Catt FIRE 
O15A. E98 10089' ® s---- AH=5 ( PTR2 : DOUBLE SIZE CHARACTER PRINT ) ----- Sa 
018D E8 0816 R AH5_2: CALL CHARS 
0190 E9 OOB9 R JMP RETURN 
s---~ AH=B (€ PTR2 : PRINT ATTRIBUTE AND CHARACTER IN SPECIAL BUFFER ) 
0193 E8 OAB7 R AHB_2: CALL ATTR 
0196 E9 0089 R JMP RETURN 
Auc_2 Ae PTR2 : CHANGE PRINTER CONTROL PARAMETERS ) ~----- Saas, 3 
0199 E8 0979 R AHC_2: CHG_PT2 
R JMP RETURN 
O19F nee aay in 10 ENDP 
bos CMD_CHK wwwn nnn ~~ nnn nn nnn nn nnn nn nn = $= = 2-2 == =~ -- === - abit 3 
A CHECKS CODE JUST RECEIVED, AND RECOGNIZES IT AS A COMMAND OR 3 
3 3 
; 3 
O19F CMD_ CHK PROC NEAR 
019F F6 06 002C R 80 wee? poets tHt_BYTE_FLG 3 AL IS SECOND BYTE OF TWO BYTES CODE ? 
01A4 75 3D 
D1AG te 06 002C R O1 TEST FLG1,ESC_FLG - $§ ESC SEQUENCE IS IM PROGRESS ? 
O1AB 74 06 JZ A21 
O1AD ES O1F6 R CALL ESc_coD 3 JUMP TO ESC SEQ ANALYSE ROUTINE 
0180 EB 43 90 JMP ARET 
01BS) 3C 1B A2i: CMP AL,1BH 3 "ESC™ ? 
01B5 75 OE JNE as 
01B7 80 OE 002C R 01 OR FLG1,ESC_FLG 3 SET "ESC™ RECEIVED INDICATOR 
01BC C7 06 0020 R 0001 MoV CODEN, 1 3 SET CODE COUNTER = 1 
01cC2 «EB 31 90 JMP ARET 
01CS 3C 80 Aa: cmP AL,80H F PHHETEE ODORS SEES EEE TEE EOOEEEEEED 
01C7 76 OC JBE Ag 3 + 
01C9 3C 9F cmP AL,9FH 3 + CHECK LEGALITY OF 1ST CODE OF + 
01CB 76 OE JBE a5 3 + + 
01CD 3C DF CMP AL, ODFH 3 + TWO BYTES CODE + 
O1CF 76 04 JBE A4al ; + + 
01D2 3C FC cmP AL,OFCH 3 3 + 
C1DS) 76 06 JBE AS F FHFTHFETEFSESEREEEEDOEEEEEEEEEOED 
01D5 E8 03D9 R A4l: CALL SINGLE + OTHERS ARE SINGLE CODES 
01D8 EB 1B 90 JMP ARET 
0108 80 OE 002C R 8B AS: OR FLG1, THO_LBYTE_FLG 3 SET TWO BYTES CODE INDICATOR 
O1EO EB 06 90 JMP A6 
COLES 80 26 002C R TF ASL: AND FLG1,0FFH-TWO_BYTE_FLG ; RESET TWO BYTES CODE INDICATOR 
O1E8 50 Ao: PUSH AX 
O1E9 ES O4F6 R CALL MOD_C1 3 FORCE INTO CHARACTER MODE 
SEC a0 COE 0009 R OL ae. PRINT_MODE, EVEN_PR_FLG 3 SET CHARACTER MODE 
Ol1F2 E8 0453 R CALL CHR_BUF 3 CODE IS STORED IN BUFFER 
sire cs ARET: RET 


CMD_CHK ENDP 
3--"ESC_COD --- 


see | 

s CHECKS CODE COUNTER OF ESC- SEQUENCE, AND TRANSFERS CONTROL To 3 
3 ANALYSE ROUTINE ACCORDING TO COUNTER VALUE. 3 
U ‘ 
Peete ttt tet www eee erecrcce TT wee ew eee nee eee ee eeweess 

SHEL ey ae ooze ox EEO Fae 

EN,L 3 + IN CASE OF CONTINUOUS "ESC"™S + 

O1FB 75 04 SNE 8 3+ ARE RECEIVED, ONLY FIRST * 

OLFD SC 1B CMP AL, 1BH 3 CHECK on 1S DUMMY "ESC* 

O1FF 74 56 JE BRET 3 IGNOR 

0201 FF 06 0020 R BSi: INC CODEN 3 cope. Count INCREMENT 

0205 83 SE 0020 R 02 cmp CODEN,2 + CODE COUNT = 2 2 

O20A 75 06 JNE 

o20C E8 0258 R CALL B100 

O20F EB 46 90 JMP BRET 

O212 83 SE 0020 R OS BS2: CMP CODEN,S 3 CODE COUNT = 3? 

0217) 75 06 JNE $3 

0219 ES 0287 R CALL 8200 

021C EB 39 90 JMP BRET 

O21F 83 SE 0020 R 04 BSS: CMP CODEN,4 3 CODE COUNT 2 4 ¢ 

0224 #75 JNE BS4 

0226 ES OS3B R CALL B00 

0229 EB 2C 90 JMP BRET 

022C 83 SE 0020 R OS BS4: CMP CODEN,5 + CODE COUNT = 5 2 

0231 75 06 JNE gS5 

02353 ES O36B R CALL 8400 

0236 EB 1F 90 JMP BRET 

0239 F6 06 002D R 01 BSS: TEST FLG2,X1_FLG s ESC X 1 IS IN PROGRESS 2 

O23E 74 06 JZ Bol 

02460 E8 057C R CALL Dx1 

0243 EB 12 90 JMP BRET 

0246 F6 06 002D R 02 Bol: TEST FLG2,X2_FLG 3 ESC X 2 IS IM PROGRESS 2 

024B 74 06 J2 B02 
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024D «E38 0505 a CALL Dx2 
0250 EB 0S JMP BRET 
0253 EB OL 30 BO2: JMP ER_RTNB 
0256 «90 ER_RTNB: HOP 
0257 C3 BRET: RET 
0258 ESC_COD ENDP 
3-- B100 ----------- 2----------~---- Meteciuaccecccoacaoscuscceeemetcocas 
3__ANALYSES SECOND CODE OF ESC SEQUENCE. ; 
ee een re ee Es EE ORES Ree ww eww wee we eee eee eee == meee 
3 Bet Eee REE 
0258 «3c 25 : : 3 CHECK AL="PERCENT® 
ei Perr. Oe : 
o2sc 80 0X SET "x" RECEIVED INDICATO 
ez b 33 98 iy Ge HER ne a 
0264 3C 3 ° Cc =" ND” 
att TB wate nt aM He escsaar ot agit re 
0268 ESC, + SET CHAR. SIZE TO DOUBLE 
026D 80 26 002C R FE AND FLG1, OFFH-ESC_FLG ; *ESC™ INDICAT 
ase bse” ee ee Here stenriies 
0275 2 : 3 CH S"VERTICAL BAR® 
$27) 7 OP sec nos a googie ena 
0279 C6 ESC, 3 SET CHAR. SIZE TO NORMAL 
027E 80 26 002C R FE AND FLG1, OFFH-ESC_FLG PESCH 
aaie th 3} ee ss ane BIRET. 3 RESET "ESC" INDICATOR 
0286 z ’ CHE =f 
8 TS sarki oe seen 
028A 80 0 »F_FLG SET "Ff" T 
og nn OSE, a 
0292 «3C t 28 3 CHECK AL="C(" 
0294 «74:17 JE B15 dephehcg 
0296 3C 29 CMP AL,29H 3 CHECK AL=")" 
O94 SC OF the AL FH 
O29A ’ CHECK AL="0" 
a29c 74 OF JE BIS ’ 
e29E SC 50 CMP AL,50H 3 CHECK AL="P? 
O2A0 74 OB JE B15 
02A2 3C 53 cmp AL,53H 3 CHECK AL="S" 
024 «74 07 JE B15 
02a6 3C 56 CMP AL, 56H 3 CHECK AL="v" 
O28 746 03 JE B15 
02AA EB 09 90 JMp eR. Bl 
02AD 80 26 002C R FE B1S: AND FLG1, OFFH-ESC_FLG 3 RESET "ESC™ RECEIVED INDICATOR 
0282 EB 02 90 JMP BIRET 
0285 90 ER_B1: HOP 
02B6 «CS BIRET: RET 
0287 B100 ENDP 
3-- B200 ------------- oreo ------------------------------- ~----------- ; 
3__ANALYSES THIRD CODE OF ESC SEQUENCE. 3 
Sete Rene nne cncaee aes naccetaecewannnowe cevsveniaenessuesee Sekar ues 
0287 3200 PROC NEAR 
0237 F6 06 CO2C R O02 B2: TEST FLG1,X_FLG 3 "x" RECEIVED ? 
028C 75 10 JNZ B201 
O2BE Fb 06 062C R 04 TEST FLG1,F_FLG 3 "F™ RECEIVED ? 
62c3. 75 03 JNZ B21 
02C5 EB 72 90 JMP ER_B2 
02C8 +A2 0022 R Bai: MOV NI,AL 3 AL IS N1 VALUE ( IF "F” RCVD ) 
02CB EB 6D 90 JMP B2RET 
O2CE 3C 31 B20i: CMP AL, 31H 3 ALIS "1"? 
0200-74 27 JE B202 
0202 3C 32 cMP AL, 32H 3 AL IS "2" 2 
02D46 74 2B JE B203 
02D6 «3c 33 CMP AL, 33H s AL IS "3" ? 
0208 «74 2F JE 32046 
C2DA 3 35 chp AL, 35H 3 AL IS "5" ? 
020C 74 33 JE B205 
O2DE 3C 36 cMP AL, 36H s AL IS "6" 2? 
O2E0 74 37 JE B206 
O2E2 3C 39 CMP AL, 39H 3 AL IS "9" 2 
O2E4 74 33 JE B207 
O2E6 3C 34 cMP AL, 34H 3 AL IS "4" 2 
O2E8 74 3F JE B208 
O2EA 3c 38 CMP AL, 38H 3 AL IS "8" 7? 
O2EC 74 3B JE B208 
@2EE 3¢ 62 CMP AL, 42H 3 AL IS "B" ? 
O2FO 74 SF JE B209 
02F2 3c 55 cmp AL, 55H s AL IS "U" ? 
O2F4 76 3B JE B209 
O2F6 EB 41 90 Jup ER_B2 s OTHERS ARE ILLEGAL 
O2F9 80 OE 002D R O1 B202: OR FLG2,X1_FLG 3 SET "X1™ INDICATOR 
O2FE EB 3A 90 JMP B2RET 
6301 80 OE CO2D R 02 B203: OR FLG2,%2_FLG 3 SET "X2" INDICATOR 
0306 EB 32 90 JMP B2RET 
0309 80 OE 0020 R 04 B204: OR FLG2,X3_FLG 3 SET "X3" INDICATOR 
O30E EB 2A 90 JMP B2RET 
0311 80 O£ 002D R 08 B205: OR FLG2,X5_FLG 3 SET "X5" INDICATOR 
0316 EB 22 90 . SMP B2RET 
0319 80 CE 002D R 10 B206: OR FLG2,%6_FLG 3 SET "X6" INDICATOR 
OS1E EB 1A 90 JMP B2RET 
aed Hy A so2b R 20 B207: OR FLG2,X9_FLG 3 SET "%9" INDICATOR 
JMP B2RET 
ay $0 ge 002D R 40 B208: OR FLG2,I1GN_FLG 3 SET COMMAND IGNORE INDICATOR 
A 90 JMP B2RET 
0331 80 26 CO2C R FC B209: AND FLG1,OFFH-X_FLG-ESC_FLG ; RESET "x" & "ESC" INDICATOR 
0336 EB 02 90 JMP B2RET 
0339 99 ER_B2: NOP 
033A C3 B2RET: RET 
0338 8200 ENDP eaeeaies 
; ANALYSES FOUTH CODE OF ESC SEQUENCE. s 
0338 Fleer ah ieeteereeeneiecnneaieneeel wreeere-- ll tttetetetatel | 
B300 PROC NEAR 
O33B F6 06 002D R 7F B3: TEST FLG2,7FH 3 %1,2,3,5,6,9 MODE IN PROGRESS ? 
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JZ B31 
Mov N1,AL AL IS M1 VALUE 
JMP B3RET 
B31: bil PLG1,F_FLG "F® MODE IN PROGRESS ? 
2 
MoV N2,AL AL IS N2 VALUE 
mov AH,N1 
MOV H1N2,AX 3 NIN2 VALUE GEN 
CALL EM 3 CALL ESC-F EMULATION ROUTINE 
JMP BRET 
B32: TEST FLG2, IGH_FLG 3 IGNORE INDICATOR ON ? 
JNZ B3RET =~ 3 RETURN 
JMP ER_B3 
ER_B3: NOP 
B3RET: RET 
B300 : ENDP 
3--B400 ------- wro---------- oo------ Satta SesssSese==-= aaa 
+ ANALYSES FIFTH CODE OF ESC SEQUENCE. ; 
3 
400 PROC NEAR arniabe : 
B4: TEST FLG2, IGN_FLG 3 IGNORE INDICATOR ON ? 
JZ B41 
AND FLG1,0FFH-ESC_FLG-X_FLG 3 RESET “ESC” & "X" INDICATOR 
AND FLG2, OFFH-IGN_FLG RESET IGNORE INDICATOR 
JMP BGRET 
B4l: MOV N2,AL + AL IS N2 
Mov AH,N1 3 
MOV N1N2, AX 3 MIN2 VALUE GEN 
TEST FLG2,X1_FLG 3 "X1" IS IN PROGRESS ? 
JZ B42 
CALL X%1%2_EM 3 CALL XL X2 EMULATION ROUTINE 
JMP BGRE 
B42: TEST FLG2,X2_FLG 3 "x2" IS IN PROGRESS ? 
JZ B43 
CALL X1X2_EM 3 CALL X1 X2 EMULATION ROUTINE 
JmMP BoRET 
B43: TEST FLG2,x3_FLG 3 "X3" IS IN PROGRESS ? 
JZ B44 
CALL X3_EM 3 CALL X3 EMULATION ROUTINE 
JMP BGRET 
B44: TEST FLG2,x5_FLG 3 "x5" IS IN PROGRESS ? 
JZ B45 
CALL X5_EN 3 CALL XS EMULATION ROUTINE 
JMP BRET 
B45: TEST FLG2,X6_FLG "x6" IS IN PROGRESS ? 
JZ B46 
CALL X6_EM 3 CALL X6 EMULATION ROUTINE 
JMP BGRET 
B46: TEST FLG2»29_FLG "x9" IS IN PROGRESS ? 
_B4 
CALL X9_EM CALL X9 EMULATION ROUTINE 
JMP B4RET 
ER_B4: NOP 
BORET: RET 
B400 ENDP 
é-- SINGLE -~----------------~-------~----------. ~------ 


3 ANALYSES ONE BYTE CONTROL CODE WHICH INCLUDES 
3 CANCEL, CARRIAGE RETURN, 


oelabaeiatatetatat | 
SINGLE PROC NEAR 

cnr AL, 18H 3 "CAN" 2 

chr AL, OAH 3 MLEr ? 

— AL,OCH F “Fee 2 

‘ig AL,1CH 3 "Fs" ? 

J 

cMP AL,ODH B CRT ? 

JE CRET 

CMP AL,O8H s BS ? 

JE ET 

cMP AL,11H + ™DC1™ 2 

JE er 

CMP AL,13H 3 "DCS" ? 

JE eT 

JMP C6 3 JUMP TO ONE BYTE CHR CODE 
EE HHETEHT ETE E EEE EEE TEEEEEEEEEESEEEEECEEOE CANCEL FFF eee oodeeeseassase 
Ci: CALL RESET 

sme CRET 
DAA AAADAASDALASASISIS SILI SST T STOTT eee LINE FEED teeeesereseresesece 
C3: CALL PRINT2 

PUSH = CX 

XOR Cx,CX sCLEAR CX 

OR CLLLF_CT 3 CL=0 2 

JNZ csi 

MOV Cl.1 
C3ls MOV AL.OAH 3 LFF 

CALL FIRE s 

LOOP C31 
C32: POP cx 

MOV 


C4: 


PRINT_MQDE,0 
JMP R 
EOEEEEFESEEEEEEEE EEE SEES EEE EER EEEREEEOEED 


CRET 
CALL PRINT2 
MOV AL,1BH 
CALL FIRE 
MoV AL,32H 
CALL FIRE 
MOV AL.OCH 
CALL FIRE 


FORM FEED. SPACE, DC1 OR DC3. 


ee we we we we ee 


RESET PRINT MODE 
FORM FEED teteeroteeoeerarer 


THIS SEQUENCE KEEPS CORRECT 
PAGE LENGTH FEEDITN BY 
LINE FEED MOVEMENT OF 
ONE-SIXTH-INCH 
eFFR 


Appendix A. 


Bo 18 

E8 OFOA R 
BO 30 

E8 OFOA R 
EB 14 90 


E8 O65F R 
EB OE 90 


50 
E8 OSF6 R 
80 CE 0009 R 01 


58 
ES 0453 R 
cs 


33 SE COOE R TC 


8B 36 OOOE R 
88 84 OOAD R 
8A 1E COOC R 
OA 1E COOD R 
88 9C 0190 R 


O01 1E OOOE R 
FF 06 OOOE R 


F6 06 0009 R O1 
75 08 
Fé 06 0089 R 62 
75 05 


cs 
ES CAAT R 
cs 
E8 0699 R 
cs 


Al 0024 R 
3D 0000 
74 GF 


50 

E8 0515 R 

86 OE 0009 R 62 
8@ 26 OOZE R EF 
es 06 0028 R O1 
F6 06 002D R 02 


76 0C 
0028 R 02 
OO2E R DF 


80 26 G02C R FC 
rd 26 002D R FC 


3 
CALL FIRE ; 
Mov AL,30H 3 
pect FIRE 3 


Jn CRET 
BEREEHEEE EEE EEE EE SEF ESE SES EES Eeee se eseees 


CS: 


CALL FS_EM 


CRET 


JMP 
BEEEHEEE EET ES ESEEE EEE ESSE EE Eee eee et eetede 
C6: 


CRET: 


PUSH Ax 


cALL HOD Ct ; 
J EVEN_PR_F 

POP aX ‘ LPR_FLG ; 

CALL CHR_BUF 3 

RET 


qe ENDP 


; STORES A RECEIVED CHARACTER CODE INTO CHARACTER BUFFER 
3 AND INDICATES CHARACTER SIZE INTO ATTRIBUTE BUFFER. 


3 


prmer meme enn enw ene ee 


CHR_BUF PROC 
PUSH 


Wi: 


BUF ----------- fhatettettete ttt 


NEAR 

I ; 
PUSH Bx ; 
CMP ccP,7CH ; 
JA 1 3 
MOV SI,CCP 3 
MoV CODE ee ee AL ; 
MOV BL,SIZ e-eae 3 
OR BL, SIZE 3 
MOV ATTR TRUFPERTST}, BL ; 
XOR BH, BH 3 
ADD cep, BX 3 
INC ccP ; 
POP Bx ; 
PoP SI 3 
RE 


THIS SEQUENCE SETS LINE FEED 


PITCH FOR ORDINARY USING 
VALUE OF ONE-NINTH~INCH 


FIXED LENGTH IMAGE TX #44444 


areeny me CHARACTER #4444444 
AVE A 

FORCE THTO CHARACTER MODE 
SET CHARACTER MODE 

RECOVER AX 

STORE SPACE TO CHR BUFFER 


we we we we we 


eww ee ewe w we wen eee 


SAVE SI 
SAVE BX 
IF OVER, IGNORE THE CODE 


CHAR. CODE TO BUFFER 
CHECK DOUBLE SIZE CHAR. 


SIZE ID TO BUFFER 

CLEAR BH 

ADJUST CURRENT pital POSITION 
peratee ax INCREMEN 

RECOVER 

RECOVER $1 


3-- PRINT2 ----------- wr eerrne- +--+ ------------------ coceenenene-----; 


+ ACTIVATES SECONDARY PRINTING. 


3 
3 IN CHARACTER MODE : CALLS CHARACTER PRINT ROUTINE 3 
3 IM GRAPHIC MODE =: CALLS LOW PART PRINT ROUTINE 3 
3 3 
pene ReSeencessssae=s= tata atatatat ata vecnnn- penne nee e nee weene---- ee ~3 
PRINT2 “PROC NEAR 
PRINT_MODE.EVEN_PR_FLG 3 CHARACTER MODE ? 

He XX1 3 NO 

TEST PRINT_MODE,LOW_PR_FLG 3; GRAPHIC MODE ? 

JNZ XX2 3 NO 

RET 3 FIRST CHARACTER 
xXLs CALL PRINT 3 CALL CHARACTER PRINT 
XX2: eatk LOW_PRT 3 CALL LOW PART PRINT 
PRINT2 re 
bean X1X2_EM ----- siecle nar hcoce eas pci agg cag i cag eR aus ssesamensn=f 
3 CHECKS TRANSMIT DATA COUNT OF ESC-X1 OR ESC-x2 SEQUENCE 3 
3 AND CONVERTS TO ESC-L 3 
prceeer----- ere w eww eww ene emer mmm eee mn ene w nen newer ere e wn nnnn-=3 
X1X2_EM PROC NEAR 
Dor MOV AX,NIN2 

CMP AX, 0 3 OUNT = 0 ? 

JE D6 ; IF Zeno THEN GOTO END 
Di: PUSH AX 3 SAVE 

CALL MOD_C2 3 INTO GRAPHIC MODE OK ? 

OR PRINT_MODE,LOW_PR_FLG 3 INTO GRAPHIC MODE 

AND FLG3, OF FH-SL_FUL_FLG 3 RESET SLICE FULL FLAG 

MoV IM_MOD,1 3 DEFAULT IMAGE MODE ESCX1 

POP AX 3 RECOVER AX 

Test pees _FLG 3 ESCX2 ACTIVE ? 

D 

nov IM_MOD,2 3 IMAGE MODE SET TO ESCx2 

AND Flas. OFFH-BAI _FUL_FLG 3 RESET SECOND SLICE FULL FLAG 

SHL AX, 1 3 TX COUNT TO DOUBLE SIZE 
D3: CMP AX, MAX 3 TX COUNT OVER 1120 ? 

JBE DS 3 IF HOT, JUMP 

MOV AX, MAX 3 FORCE COUNT SET TO 1120 
D4: MOV FS_N,AX 3 STORE NIN2 VALUE FOR FS 

reno 1 SNe 8 

USH c 3 

MoV BX, MAX 3 SET MAX. SLICE POSITION 

MOV CX,CSP 3 GET CURRENT SLICE POSITION 

ADD CX, AX 3 CALCULATE NEXT FINAL a POSITION 

CMP BX,CX 3 COMPARE MAX. AND NEXT FINA 

JAE DS 3 IF MAX IS NOT LESS, JUMP 

SUB BX, CSP 3 CALCULATE CORRECT COUNT 

MoV AX, BX 3 CORRECT COUNT SET TO AX 
DS: PoP cx F RECOVER a 

PoP BX 3 RECOVER 

CALL Eek 3 CALL Esce t OUT SUB. 

AND Fil, OFFH-ESC_FLG-X_FLO ; RESET” ESC & X FLAG 
D6: AND F - 3 

AND FLG2,0FFH-X1_FLG-xX2_FLG 3 RESET X1 & X2 FLAG 
D7: RET 
1X2 = nates Pek Ree 
3 CHECKS CURRENT PRINT MODE, AND IF GRAPHIC MODE IS ACTIVE. 3 
3 FORCES LOW PART OF GRAPHIC IMAGE OUT TO PRINTER AND 3 
3 FORCES INTO CHARACTER MODE. ; 
3 
ase = coco wee nenwweree www ewe mmm meme en ewe e ee eee seen escor wooo runnnen 3 
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06 0009 R O1 
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mop_cl PROC NEAR 
TEST  PRINT_MODE, 
PRINT LOW_PR_FLG 


JZ 3 GRAPHIC MODE ? 

CALL LOW_PRT 3 CALL LOW PART PRINT 

nov PRINT MODE, OFFH-LOW_PR_FLG RESET GRAPHIC MODE 
’ = rr 

CALL FIRE 3 FORCE CR LF O 

MOV AL,OAH 

CALL FIRE 

MOV AL,OAH 

CALL FIRE 

C1END: RET 


mOD_C1 ENDP 


CHECKS CURRENT PRINT MODE, AND IF CHARCATER MODE 15 ACTIVE 
FORCES CHARACTER DATA OUT TO PRINTER AN , 


8 

3 

FORCES INTO GRAPHIC MODE. : 
i 


SaSeeeeise sy 


hop_c2 PROC NEAR 


TES coEND MODE,EVEN_PR_FLG ; CHARACTER MODE ? 
CALL PRINT 3 CALL CHAR. PRINT ROUTINE 
AND PRINT —MODE, OFFH-EVEN_PR_FLG 3 RESET CHARACTER MODE 
MOV AL, ODH ~;FORCE CR + LF OUT TO PRINTER 
CALL FIRE 
MOV AL, OAH 
CALL FIRE 

C2END: RET 





3 EM 
i EMULATES ESC-x3 C HORIZONTAL SKIP >, AND 
; CONVERTS ESC-X3 TO ESC-L * NULL DATA . 


: worn eeee------------- worn rere ccesce n= acre iacead | 
X3_EM PROC NEA 
ov CX,NIN2 > GET NIN2 VALUE 
cmP CX,0 3 CHECK ZERO 
JBE N33 
cmP CX,MAX 3 CHECK < 1126 
JA N33 
PUSH cx 
eaLt oo c2 3 FORCE INTO GRAPHIC MODE 
P 
MOV AX, CSP 3 GET CURRENT SLICE POSITION 
PUSH AX 
PoP SI 
ADD AX, CX 3 ADJUST MAX SLICE POSITION 
CMP AX, MAX 3 
JA N22 
OR PRINT_MODE,LOW_PR_FLG 3 INTO GRAPHIC MODE 
MOV cs 3 
Mov AX, CX 
CALL Esct 3 CALL ESC-L OUT 
N1i: MoV AL,O 3 ZERO OUT TO PRINTER 
CALL FIRE 3 FOR MAKING BLANK 
Loop N11 
JMP N33 
N22: CALL LOW_PRT 3 CALL LOW PART GRAPHIC PRINT 
Mov AL. ODH 3 FORCE "CR® OUT 
CALL FIRE 
JMP N3 
N33: AND FLG1,OFFH-ESC_FLG-X_FLG ; RESET "ESC™ & "X" INDICATOR 
er FLG2, OFFH- ~Z3_FLG 3 RESET "x3" INDICATOR 
X3_EM -ENDP 


*= 0X1 ---------------------- 22---------- 


CONTROLS ESC-xX1 CIMAGE TRANSMISSSIOND DATA STREAM. 
IF DATA COUNT IS ODD, THE DATA IS OUT TO PRINTER 


eee COUNT IS EVEN, THE DATA IS STORED IN TMAGE BUFFER FOR LOW 


wee enna nee eee o--- =~}; 


we we we ws we we 


3 
3 
PRINTING. 3 
Farr tens sine ac ncnlenanpamagecai 
Dx1 PROC NEAR 
mov CX. CODEN 3GET CODE COUNT 
SUB Xx; 5 S CALCULATE CORRECT DATA COUNT 
TEST CX, 01H FOX IS ODD NUNBER ? 
Jz F2 3IF EVEN, GO TO F 
Test — FLGS,SL_FUL_FLO }CHECK SLICE COUNT EXCEEDS MAX 
INC csp sUPDATE CSP 
cH CSP MAX SCHECK MAX POSITION 
CALL FIRE SAL CDATA) IS OUT 
Fir TEST —FLGS,SL_FUL_FLO sCHECK SLICE COUNT EXCEEDS Max 
OR FLGS, St_FUL_FLO 31F EXCEEDS, SET SLICE FULL IND. 
F2: TEST  FLGS,SL_FUL_FLG SIF SLICE POSITION EXCEEDS MAX. 
JNZ FS sIGNORE FURTHER DATA 
XOR SI,SI SCLEAR SI 
ADD S1,CSP 3GET CSP TO SI 
OR IMAGE_BUFFER(SI),AL ;DATA IS STORED FOR SECONDARY PRINT 
F3: SHR cx, sDEVIDE BY 2 
che CX.NAN2 ;REACHED NIN2 COUNT ? 
AND FLG1, OFFH-ESC_FLG-X_FLG 3 RESET “ESC” & ®X" INDICATOR 
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OSCF 80 26 002D 
ospe C3 


05D5 8B OE 0020 
05D9 83 E9 05 

0001 
OSE2 F6 06 002E 
OSE9 FF 06 0010 
OSED 81 SE 0010 
OSF6 ES OFOAR 


OSFA FF 06 0010 
SE 0010 
OA 

0606 E8 OFOAR 
E 0010 
060D EB 4F 90 

0610 80 OE OO2E 
0615 FF OE aed 


061C F6 06 002E 


O65F 83 ae 0029 
0666 E8 0515 R 
0669 80 OE 0009 


066E 80 CE 002C 
0673 80 26 O02E 


OE 002D 


0699 BO 1B 
069B E&8 OFOAR 


3 
OFOAR 
oD 

OFOA R 
OA 

O6AA E8 OFOAR 
0010 R 
06 0012 
os 


0012 R 
06B9 3D 0460 


0460 
06C2 €8 O£&88 R 
06C6 «33 Fb 


0609 8A 84 COAD R 


R FE 


= RB RR BR RR 


10 


0460 


0460 


20 


10 


Fc 
FD 


10 
10 


02 
eF 
0005 
02 
02 
01 


AND 
Fa: RET 
Dx1 ENDP 


FLG2,OFFH~X1_FLG 


3 RESET "X1" FLAG 


x2 
CONTROLS ESC-x2_ CIMAGE TRANSMISSION AND ENLARGE) DATA STREAM. 


3 4 
3 IF DATA COUNT IS ODD, THE DATA IS OUT TO PRINTER TWICE ; 
3 IF DATA COUNT IS EVEN, THE DATA IS ST NH OIMA F 
; FOR LOW PART PRINTING. a Sores GE BUFFER : 
3 
Fem awaels ennmecenetaianiss ict edi lash egies eaieaatts ets 
Dx2 PROC NEAR 
MOV CX, CODEN 3 GET CODE COUNT TO 
SUB Cx, 5 3 CALCULATE CORRECT DATA COUNT 
er Sxebsh 3 CX IS ODD NUMBER 2? 
TEST FLG3,SL_FUL_FLG 3 CHECK SLICE COUNT EXCEEDS MAX 
INC csP + UPDATE C 
ee rns 3 CHECK max” POSITION 
PUSH ax 
Ele ree 3 SAVE N1N2 
PoP ax 3 GET N1N2 
INC csp 3 UPDATE CSP 
sg ne 3 CHECK MAX POSOTION 
CALL FIRE 
DEC csP 3 DECREMENT CSP FOR ADJUSTING 
JMP G5 3 LOW PART DATA COUNT 
Gl: OR FLG3,BAI_FUL_FLG 3 SET SLICE FULL INDICATOR 
DEC csP 3 DECREMERT CSP FOR ADJUSTING 
JMP GS 3 LOW PART DATA COUNT 
G2: TEST FLG3,SL_FUL_FLG 3 IF SLICE POSITION EXCEEDS MAX. 
JNZ G3 3 IGNORE FURTHER DATA 
XOR SI,SI 3 CLEAR SI 
ADD SI,CSP 3 GET CSP TO SI 
OR IMAGE_BUFFERI[SIJ,AL 3 DATA IS STORE IN IMAGE BUFFER 
Test FLG3.BAI_FUL_FLG 3 CHECK SLICE FULL INDICATOR 
INC SI 3 UPDATE SLICE POSITION 
OR IMAGE_BUFFER(SI),AL 
MOV cSP,ST 3 CURRENT SLICE POSITION STORE 
G3: SHR CX,1 3 DEVIDE BY 2 
ra Cx HIN2 3 REACHED N1N2 COUNT ? 
AND FLG1,0FFH-ESC_FLG-X_FLG ; RESET "ESC" 8 "xX" INDICATOR 
AND FLG2,OFFH-X%2_FLG 3 RESET "x2" INDICATOR 
G4: TEST FLGS,SL_FUL_FLG 3 CHECK SLICE FULL INDICATOR 
N G 
oR FLG3,SL_FUL_FLG 3 SET SLICE FULL INDICATOR 
GS: RET 
Dx2 = ENDP_ 
} EMULATES FIXED DATA IMAGE TRANSMISSION DATA STREAM. 3 
3 TRANSMITED DATA COUNT IS STORED IN FS_N. ; 
3 3 
3 THIS COMMAND USES MOST RECENT ESC-%1 OR ESC-X2 CONTROL VALUES. 3 
3 3 
gocsarssse=: Fa ee re Sane SSS Se a nT a ee po etek) | 
FS_EM = PROC NEAR 
cMP FS_N.O 3 CHECK TX COUNT 
JZ 3 IF ZERO, GO TO END 
CALL MOD_C2 3 ALREADY IMAGE MODE ? 
OR PRINT_MODE,LOW_PR_FLG ; INTO IMAGE MODE 
OR FLG1,ESC_FLG4#%_FLG 3 ESC X ON 
AND FLG3, OFFH-SL_FUL_FLG 3 RESET SLICE FULL INDICATOR 
MOV AX, FS_N 3 TX COUNT INTO AX 
MoV CODEN; 5 3 ADJUST CODE COUNTER 
CALL ESCL ; Be ag gi BS ouT 
TEST IM_MOD, 02H 3 NO ? 
ie rine 3 IF NOT THEN ESC X1 
oR FLG2,X%2_FLG 3 ESC %2 FLG ON 
JMP H2 
Hl: OR FLG2,X1_FLG 3 ESC X1 FLG ON 
H2: RET 
FS_EM — ENDP 
g-> LOW_PRY --------------------------- cesta etatattetatatatatetaaaiatananae etait iatatas 
i PRINTS LOW PART OF 8-BIT GRAPHIC IMAGE IN IMAGE BUFFER } 
cotiewance se! ities Reem mciaicekesoeuwouekvessdsseoseseseeseeaseaee ys 
tou ad Here are 3 THIS SEQUENCE SETS LINE FEED 
CALL FIRE + PITCH FOR ORDINARY USING 
MOV AL, 30H 3 VALUE OF ONE-NINTH-INCH. 
CALL IRE 3 
MoV AL, ODH 3 OR 
CALL IRE 
HOV AL. OAH s LF 
CAL 
mov AX, CSP + GET CSP TO AX 
cMP AX, CSPMAX 
nov ax CSPMAX 
Els, CMP AX, MAX + CHECK CSP EXCEEDS MAX. ? 
JBE E2 3 
MOV AX, MAX 3 IF EXCEEDS, AX = 1120 
€2 PUSH AX 
; CALL ESCL 3 CALL ESC-L OUT ROUTINE 
POP cx 
XOR SI,SI F CLEAR | st 
THC $I 3 ADJU 
E3: MOV AL, IMAGE_BUFFER(SI] 3 GET PRINT DATA FROM BUFFER 
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See o Seon uomenoMuuaNn 
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eronguruu 
wrPanouUPrw 


CONMmM CNBoe 
ASQ WHen 
coo 

eoo 

rer) 

Noo 

RR 


ecooo NTNUTNS 
memm nNYeKW 8M 


F 

0024 . 

0010 

26 002C R FC 
26 002D R EF 


3E 0024 R 00 


3E 0024 R 0100 


OE OO1O R 


047D 
OE 0026 R 
D2 


26 002C R FC 
26 002D R F? 


0024 R 
D2 
000D 
F 
cs 
F9 09 


FD 
r 0000 
0000 


CALL FIRE 


MoV IMAGE_BUFFER 
(s1J,0 + CLEAR IMAGE BUFFER 
Thz”—AH+PRIERROR 3 ERROR HAS OCCURED ? 
INC SI 
LOOP sg 
E4: AND ERINT_MODE, OFFH-LoW_PR_FLG + RESET GRAPHIC MODE IND. 
Oy CSP.0 rer 3 CLEAR C 
oe CSPMAX, 0 ; CLEAR ESPMAX 
LOW_PRT_ENDP 
Boo KO EM monn anne eee meee nai wane -----; 
EMULATES ESC-X6 (CR TO SPECIFIED DOT POSITION). ; 
t 
x6_EM PROC NEAR be ee ne oe ay petals eo et 
XKIN2 s+ GET N1N2 VALUE TO CX 
CMP ex : 
ibe i 3 CHECK ZERO 
CX, MAX EEDS MAX 
CHP cx, 3 CHECK EXCE 
PUSH x 
MoV CX, CSP 
CMP CX, CSPHAX 
JB Jt 
MoV GSPMAX. cx 
Ju: CALL 3 CALL CHECK CURRENT MODE 
nov PRINT MODE, Low PRLFLG 5 FORCE INTO GRAPHIC MODE 
MOV AL, ODA + CRP 
CALL FIRE 
POP 
MOV AX, CX 3 GET H1N2 VALUE 
CALL ESCL ; CALL ESC-L OUT ROUTINE 
J2: nov AL, oO 3 ZERO OUT TO PRINTER 
CALL FIRE 3 FOR MAKING BLANK 
LOOP = 2 
nov AX, HLN2 3 SAVE NEW CURRENT SLICE POSITION 
MOV CSP AX 
J3: AND FLGL,OFFH-ESC_FLG-X_FLG 3 RESET "ESC™ & "x" INDICATOR 
AND FLG2, OFFH-X6_FLG 3 RESET "X6" INDICATOR 
x6 cENDP 
Sa SP aca a aa a a a aa poietic a a a 3 
; EMULATES ESC-X5 (FORWARD VERTICAL STEP FEED) ; 
3 3 





CHP NIN2,0 3 CHECK NIN2 = ZERO 
J 

CMP N1N2,100H 3 CHECK EXCEEDS MAX 

JA L4 

MOV Cx, CSP 

PUSH = CX 

CALL —s- PRINT2 3 CALL SECONDARY PRINT 

MOV CX, NIN2 

XOR Dx, DX PRASAD ASSESS SSS eee eee tees 

MoV AX, CX 3+ THIS SEQUENCE CALCULATES ¢ 

MOV €x,13 + BY FOLLOWING FORMULA: 4 

DIV cx 3+ + 

MOV CX, AX 3+ CX = IZA3 mH CX + 

CMP cx,0 

JNE tl 

INC cx 
Li: MOV AL,1BH + “ESC” 

CALL FIRE 

MOV AL, 30H + FO" 

CALL FIRE 
L2: MOV AL, OAK 3 *LE® OUT 

CMP cx,0 

JE L3 

CALL OFIRE 

DEC cx 

JMP 2 
L3: PoP CX 

MOV NIN2, CX 

CALL =—-X6_EN 
La; AND FLG1, OFFH-ESC_FLG-X_FLG 3 RESET “ESC™ & "Xx" INDICATOR 

AND FLG2,0FFH-x5_FLG + RESET "x5" INDICATOR 
xS_EM 5 entor 
Pies poppe tepeasbaenetei tet 
1 EMULATES ESC-x9 (LINE FEED PITCH). 3 
3 FOLLOWING CONVERSION IS PROCEEDED: ; 
3 @ S< NIN2 <3) ...... LINE FEED COUNT = 1 x 179 INCH 3 
3 1S F< NING < 26 ...... CINE FEED COUNT = 2 x 179 INCH; 
3 26 =< NIN2 < 39) ...... LINE FEED COUNT = 3 x 179 INCH; 
; 39 =< NIN2 < 520 ...... LINE FEED COUNT = 4 x 179 INCH ; 
A S20 =< NIN2 < 65 ...... LINE FEED COUNT = 5 x 179 INCH 
3 65 =< NIN2 ¢ 78) ...... LINE FEED COUNT = 6 x 179 INCH; 
3 78 =< WIN2 < 91) ...... LINE FEED COUNT = 7? x 179 INCH 3 
Hi OL =< NIN2 ¢ 100 ...... LINE FEED COUNT = 8 x 179 INCH 3 
3 104 =< COUNT = 9 x 179 INCH 3 
jreroewocoeoreoenees PEDO SPCC B22eee2Ceeezeeeeo Sr Sawa e 
X9_EM PROC NEAR 

PUSH = BX 

PUSH = CX 

MOV AX, NIN2 3 GET NIN2 VALUE TO AX 

xOR DX, DX 

Mov cx, 13 

DIV ex 

MOV CX, AX 

INC cx 

CMP Cx.9 
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os 

0009 

OE 0026 R 
18 


OFOAR 
0 


3 

OFOA R 

26 @e2C R FC 
26 002D R DF 


OE 0624 R® 
F9 00 

28 

F9 JE 
63 
OO7E 
OFOA 
32 
OFOA 
1B 
OFOA 
43 
OFOA 
Cc) 
OFOA 
13 
OFOA 
30 
OFOA R 

26 OO2C R F 


ur 000D R bo 


OFOA R 
06 000D R 00 


OFOAR 


SE 000D R 01 
i 


1B 

CFOA R 

58 

OFOA R 

96 COOD R 01 


OFOA R 


JBE Kl 
MOV cX,9 
Kir MoV LF_CT.CL 
MOV ALT 1BH 
CALL FIRE 
MOV AL, 30H 
CALL FIRE 
AND FLG1,0FFH-ESC_FLG-x_FLG ; RESET "ESC & "X* INDICATOR 
AND FLG2, OFFH-x9_FLG 3 RESET "x9" INDICATOR 
POP Bx 
RET 
x m AEnDP 
ate TT orate n wenn nnn nanan =~ ~~~ == ----- = a aan eat 
3 EMULATES ESC-F (SET PAGE LENGTH PER LINE). ; 
3 8 
1 ACTUAL LENGTH: © < NIN2 < 64 3 
3 3 
prssioHSaeedsassn<n Totten enn nnn nnn enn nnn e eee SESSSS SSeS SHS SSRN 3 
FEM PROC HEAR 
MOV CX, RIK2 + GET NIN2 VALUE 
CMP Cx,0 3 CHECK ZERO 
JBE M3 
Mi: Tae earen 3 CHECK VALUE >= 126 
MoV CX,7EH s IF EXCEEDS 126, FORCE CX TO 126 
CALL FIRE 3 ACTIVATE CORRECT COUNT OF LINE 
MoV AL, 32H 3 RUMBER IN A PAGE 
CALL FIR 
MOV AL, 1BH 3 "ESC 
CALL FIRE 
Mov AL,.43H 3 °c" 
CALL FI 
MOV AL,CL 3 Nl INTO AL REG 
CALL FIRE 
MOV AL, 1BH 3 ESC + 0 OUT TO PRINTER FOR 
CALL FIRE 3 LINE FEED PITCH TO ORDINARY 
MOV AL, 30H 3 USING VALUE 
CALL FIRE 
MS: AND FLG1,0FFH-ESC_FLG-F_FLG ; RESET “ESC” & "F™ INDICATOR 
F_ es enor 
eu Se OS TORR RO OR RR ROM ee ew mem ween ewww wun eee eee en a Sada s 
3 PROVIDES CODE TRANSMISSION To PRINTER TYPE-I1 5 
+ IF CHARACTER PRINT IS REQUIRED, NORMAL SIZE CHARACTER IS PRINTED. ; 
3 3 
tana a ; 
CHARO PROC NEAR 
cMP SIZE_AH,NOR 3 CHECK CURRENT CHAR. SIZE 
JE CHO_1 3 IF ALREADY NORMAL, JUMP 
PUSH AX 3 SET NORMAL SIZE MODE 
MoV AL,1BH 
CALL FIRE 
MOV AL, 5DH 
CALL FIRE 
MOV SIZE_AH, NOR 
POP ax 
CHO_1: caLt FIRE 3 DATA TO PRINTER 
CHARO —_ENDP 
s-- CHARS -------------------~---~-- slat ada aaa eater 3 
; PROVIDES CODE. TRANSMISSION TO PRINTER TYPE-II 3 
3 IF CHARACTER PRINT IS REQUIRED, DOUBLE SIZE. CHARACTER IS PRINTED 3 
3noeee--------- Susersewenseseseus 2+------------------------------ -----3 
CHARS PROC NEAR 
cMP SIZE_AH, BAI 3 CHECK CURRENT CHAR. SIZE 
JE CH5_T 3 IF ALREADY DOUBLE, JUMP 
PUSH AX ~ 3 SET DOUBLE SIZE MODE 
MoV AL,1BH 
CALL FIRE 
MOV AL, 58H 
CALL FIRE 
BON SIZE_AH-BAT 
x 
CHS_is CALL FIRE 3 DATA TO PRINTER 
T 
CHARS —_ENDP meets 
s+> INITL ------ i ka aaa ; 
; RECOGNIZES PRINTER TYPE AND INITIALIZE IT. ‘ 
3 CONTROL PARAMETERS ARE SET TO DEFAULT VALUES. 
; 
ereree= Oe me ee 8 ee ew rn en eee ew ere ene enon essere erenrenwe~} 
INIT1 PROC NEAR 
PUSH BX 
PUSH cx 
rin 
U 
PUSH SPSAVE 3 CLEAR CONTROL AREA 
LEA SI,PRINTER_ID 
MOV CX, 96 
far’ Sreive 
oP SA 
LEA $1, IMAGE_BUFFER + CLEAR IMAGE_BUFFER 
nov CX, 1140 
ALL CLEAR 
MOV DX,PR_CMD_PORT s SET INIT LINE LOW 
Mov AL, 08H 
CALL DELAY 
D 
JC R9 } IF NOT ATTACHED, JUMP 
eS 
4 AL, 
JE R9 1 IF NOT ATTACHED, JUMP 
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eooocoouo 
PAAAHRUMMSH 
eNcoceo oo 
PAVSeUW OU 
RBORRR BRR 


PRBBAR 


MOV BX. PRCHD_PORT SET INIT LIKE HIGH 
Cc 


MoV AL,O m 
our DX, AL 
CALL DELay 
XOR AH, AL + SET PRINTER ID 
JZ Rd 3 
SHR AL, 
SHR ALs1 
AND AX, O1H 
AX, 
NE AX, 01H 
PRINTER_ID, AX 5 
R3: CALL DEFAULT” 3 SET DEFAULT VALUE 
Mov BLO 3 CALL STATUS READ ROUTINE 
CALL ss STATUS 3 GET LAST STATUS 
CALL = GETVAL 3 RESET CPI , LPI CONTROL VALUE 
POP SI 
POP Dx 
POP cx 
POP BX 
RET 
R9: Mov DX, PR_CMD_PORT 3 NOT ATTACH 
MoV AL,O 
OUT DXIALY 
JMP 
INITI END 


ELAY 
WAIT FOR INITIALIZE 
CARRY : PRINTER STATUS CO:ATTACHED /1:NOT ATTACHED) 


USH 
PUSH BX 
teh GEE 
DELOO: L 
MOV DX,PR_STATUS_PORT 3 GET STATUS 
IN AL,DX 
me 
AND 0 
MOV CX,50 3 GET STATUS 
DEL10: IN AL,DX 
AND AL,OFCH 
CMP AL.BL 
iss Bet 
0 
POP Bx 3 PRINTER IS ATTACHED 
PoP cx 
cic 
RET 
DELSO: POP Bx 3 PRINTER ISN*T ATTACHED 
POP cx 
stc 
RET 
DELAY fre’. 


go> DEFAULT -------------~~------.~---~-~ 
SETS PRINTER CONTROL PARAMETERS | TO DEFAULT VALUES. 


DEFAULT PARAMETERS : 5710 CPI (PT-1) 


Seer enna n = 3 


we er we 


we we we we we we we we w 


6712 CPI (PT-2) 3 
4.5 LPI 3 
so Lee 3 
SMALL TYPE 7 
3 
eet atte a 
DEFAULT PROC NEAR 
MoV CPI,90H 3 CPI DEFAULT SET 
CMP PRINTER_ID.1 
JNE DEF10 
MoV CPI,78H CPI DEFAULT SET 
DEF1O: MOV LPI.14n 


LPL DEFAULT SET 


3 
3 
MOV LPP,42H 3 LPP DEFAULT SET 
MOV LF_CT,1 3 SET DEFAULT LINE FEED COUNT ¢ 
MoV CHAR_TYPE.2 3 SET SMALL TYPE CHAR MODE 
DEF99: RET 


DEFAULT ENDP 


b-> RESET ~~----~-~~--~-~--~-~-----~-~---~------ or--------- 


s RESETS BIOS CONTROL PARAMETERS AND CLEARS BUFFER 
; 


3 
wee en ene eee ee ee 


wee ---- poe er one eee -----+---; 
RESET PROC NEAR 

PUSH AX 

XOR AX, AX 3 CLEAR AX 

mov Cccp, ax 3 CLEAR CCP 

MoV CSP,AX 3 CLEAR CSP 

MOV CODEN. AX s CLEAR CODE COUNTER 

MOV FLGL.LAL 3 CLEAR FLG) 

MoV FLG2,AL 3 CLEAR FLG2 

MOV FLG3,AL 3 CLEAR FLGS 

ala AX 


R 
RESET ever 
joe meter ee eee eo eo eee 


HG- 
+ SETS PRINTER CONTROL PARAMETERS FOR PRINTER-1. 
3 


phatatetatetattatatetey | 


3 

3 
+ CONTROLLED PARAMETERS ARE AS FOLLOWS: , 
s 3 
H AL = 0 : DEFAULT SET 3 
3 AL = 1 t CHANGE CPI (CHARACTER / INCH) 3 
i) AL = 2): CHANGE LPI (LINE 7 INCH) 3 
3 AL = 3: CHANGE LPP CLINE 7 PAGE) t 
3 AL = 6 t CHANGE TYPE (LARGE 7 SMALL) 3 


A-151 


Appendix A. — 


3 
esses a ae ee te De erenrreen acre ne nnn eee? 
oars tHe | PTa PROC NEAR + Reve a 
O8F9 53 Push x + SAVE BX 

A 0A CO ry 
bare 1} 13 vz. Po” + DEFAULT VALUE SET 
O8FE FE C8 
o9o0 74 15 vz Bi 3 CHANGE CPI 
ry 
geoe 74 Se PS ; CHANGE LPI 
0906 FE C8 DEC AL 
0908 tb ri _. PS 3 CHANGE LPP 
090A 3¢ ALLS 
090c 74 56 Jz 6 3 CHANGE TYPE 
O90E EB 63 90 JMP 
C911 £8 038B9 R Por CALL DEFAULT + CALL DEFAULT SET ROUTINE 
0914 EB SD 90 JMP 
0917 80 FF 60 Pi: CMP BH, 60H + 7.5715 CPL 
091A 74 0C JE Pil 
O91C 80 FF 6¢ cMP BH,6CH 3 6.7713.4 CPI 
O91F 74 07 JE 
0921 80 FF 78 CMP BH, 78H 3 6712 CPI 
0924 74 02 JE Pil 
0926 37 90 MOV BH, 90H 3 IF OTHER, FORCE 5710 CPI 
0928 88 3E 0003 R Pll: MOV CPI,BH s STORE TO DATA AREA 
092C EB 45 90 JMP P99 
O92F C6 06 0026 R 01 P2: MOV LF_CT.1 3 7.5 LPI CONVERT TO 4.5 LPI 
say st ae patel 
0939 FE 06 0026 R Inc LF_CT 3 6 LPI CONVERT TO 3 LPI 
sag HE ib ce ht 
J Pp 
0942 89 FF 18 CMP BH, 18H 5 5 LPI CONVERT TO 3 LPI 
0945 76 02 JE P2i 
0947 B7 1E MOV BH, 1EH 3 IF OTHER, FORCE 3 LPI 
0969 88 3E 0006 R P2i: MOV LPI,BH 
094D BO 1B MOV AL,1BH 3 "esc 
O94F E€8 OFOAR CALL FIRE 
0952 Be 30 MoV AL, 30H 3 "or 
0954 E8 OFOAR CALL FIRE 
HH Hy i€ 3026 R 3 HOV te SET N1N2 VALUE FROM BX 
Pp MoV N1H2,BX ; 
O95E £8 0700 R ; CALL F_EM’ 3 CALL PAGE LENGTH SET ROUTINE 
0961 EB 10 90 JMP P99 
0964 80 FF 01 P6: cMP BH,1 3 SET CHAR TYPE 
0967 77 0A Ja P99 
0969 FE C7 INC BH 
096B 8A DE MOV BL. BH 
BP ETE oooa n maya 
MOV CHAR_TYPE, BX 
C973 EB CASE R P99: CALL ~—s GETVAL 3 RESET CPI , LPI CONTROL VALUE 
0976 «5B POP BX 
0977 58 PoP ax 
0978 C3 RET 
6979 CHG_! ee enor OLENA Ree ? 
i sets PRINTER CONTROL PARAMETERS FOR PRINTER-2. : 
3 
3 COHTROLLED PARAMETERS ARE AS FOLLOWS: ; 
5 AL = 0 : DEFAULT SET 3 
3 AL = 1: CHANGE CPI (CHARACTER 7 INCH) 5 
3 AL = 2: CHANGE LPI (LINE 7 INCH) : 
: AL = 3: CHANGE LPP (LINE 7 PAGE) ; 
; AL = 5 : CHANGE DIRECTION : 
3 C eteedeeteteal | 
Peewheccecectiectsl ou okweaeecsesees Sckeroseecceseseo=~ 
0979 CHG_PT2 PROC NEAR 
6979 0A CO AL, AL 
6978 74:15 JZ X61 5 AL=0 € DEFAULT SET > 
0970 FE ca DEC AL 
S97F 76 17 JZ XG2 3 AL=1 ( CPI CHANGE ) 
6981 FE cE DEC AL 
0983 76 19 JZ XG3 b AL=2 ( LPI CHANGE ? 
0985 FE ca DEC ‘ 
0987 76 1B JZ X66 s AL=3 € LPP CHANGE ) 
ee ee 
8 
Hi a is 3e° x66 3 AL=5 ( PRINT DIRECTION CHANGE ) 
B ic JMP XRET 
oaae a Pig XGL: CALL = DEFAULT 3 JUMP TO DEFAULT SET ROUTINE 
JMP XRET 
sen S rise XG2r CALL = XCPI 3 JUMP TO CPI CHANGE ROUTINE 
JMP XRET 
C99E £8 O9FO R XO3: CALL = XLPI } JUMP TO LPI CHANGE ROUTINE 
COAL EB OA 90 JMP XRET UTINE 
eaee - Sack R X64: CALL XLPP 5 JUMP TO LPP SET RO 
rind % T ROUTINE 
O9AA ES 0427 R X66 CALL XDIR UMP TO DIRECTION SE 
aean ES OA36 & XRET: CALL GETVAL eee cpr LPI CONTROL VALUE 
RET 
O9B, CHO_PT2 ENDP Suceeucenacsa} 
; SETS CPI VALUE TO PRINTER-2, cane } 
H soeoeewS ; 
§ eww ween nn emen wwe eww rene ewewenee neon, as ieee erga wooo 
0981 XCPI PROC ~— NEAR 
0981 BS HOV BL,75 
O9B3 80 FF 60 H.60H ATES 7-5715 CPI 
0936 76 15 cd eee + CHECK BH INDIC 
$3 Mov BL, 67 
09 «7713.4 CPI 
we ESP Se one BH. 6CH + CHECK BH INDICATES & 


oma ves 
uUnoroo 


KOM OOMarwNeGoruUuuuvne 
AMMOCHUSMPFOVMOVvere® 


FC 


eNocecocCCOVOrKUWAN TW 
TUN TNONNNMTnNSOMN NN 


SE 0004 R 
1B 


OFOA 
25 
OFOA 
39 
OFOA 
oo 
OFOA 


c7 
QFOA 


> 
coo 


~ 
tL) 


“vonmne NU 
MONQUUMe 
~ 
on 
oe 
eo 
oe 


F37 Ad 
1F 


8D 36 0048 
BA 2E 0003 


2E: 
74 
83 


o~woam 
mmowe 


3A 
05 
Ccé 0 
F2 


0006 
SE 0052 


Noo 
qQeo 
oo 


2c 
6 


JE XCPF 

MoV BL,60 

céP BH, 78H 5 CHECK BH INDICATES 6712 CPI 

JE XCPF 

MOV BL,50 

cmp BH, 90H 5 CHECK BH INDICATES 5/710 CPI 

JRE XCP9 
XCPF: MOV CPI, BH 3 BH VALUE IS STORED 

Mov AL, 1BH + ESC + 7E + 02 + 00 + 01 OW 

CALL FIRE 

MOV AL, 7EH 

CALL FIRE 

MOV AL,02H 

CALL FIR 

MoV AL,OOH 

CALL FI 

MOV AL.O1H 

CALL FIRE 

MOV AL, BL 

CALL FIRE 
XCP9: T 
xCPI Nee ENDP : 
j= XLPI ----------- waesceweuene horseshoe cs idoewu se bemoeecwou, 
3 SETS LPI VALUE TO PRINTER-2. ; 

LPI PROC NEAR 

* MOV LPI,BH + BH VALUE IS STORED 

MOV AL,1BH 3 ESC +X + 9 + NIN2 

CALL FIRE 

MOV AL, 25H 

CALL FIR 

MOV AL,39H 

CALL FIRE 

MOV AL,OOH 

CALL FIRE 

MOV AL, BH 

CALL FIRE 

RET 
XLPI ENDP 
3-- XLPP ----- ~2-------------------- ~~---------- ~------------ ~--------; 
3 SETS LPP VALUE TO PRINTER-2. 3 
3 . 
eae ee eRe Ae Spee Ree ne Ptr ee cieenesay 
XLPP Proc NEAR 

MoV LPP, BX 3 BX VALUE IS STORED 

MOV AL,1BH 3s ESC + F + NL ¢ N2 

CALL FIRE 

MoV AL, 46H 

CALL FIRE 

MOV AL, BH 

CALL FIRE 

MOV AL.BL 

CALL FIRE 

RET 
XLPP ENOP 
37> XDIR -------------------- torr rrr en nn -o-- -- +--+ += ----- +--+ --- ~~---}3 
3 SETS DIRECTION MODE TO PRINTER-2. 3 
3 3 
Sates on a wone nena -- 22-2 +++ +--+ =e} 
XDIR PROC NEAR 

Mov AL, 42H 

CMP BH.1 

JE XDIRI 

MOV AL. 55H 
XDIRI: CALL DIRSET 

RET 
XDIR year 
bo babebahrbaadehetatahatntatate bated atatatatatetabatate a tetatatere SeSseses===) Soona wanes sewn 3g 
3 Gers. Grip LINE AND CHAR TYPE CONTROL VALUE 3 
3 
GETVAL PROC NEAR : 

PUSH ES 

PUSH cx 

PUSH SI 

PUSH DI 

PUSH DS 

ES SET FOR MOVSB 
we U8 
+ V_VALUE 3 SEARCH V_VALUE TABLE 

GETO6: MOV CHL LPI x 

CMP CH,CS:{SI) 

JE GET10 

ADD $1.18 

JMP GETOO 
GET10: MOV CX, 18 + MOVE TO VALUE AREA 

LEA DI, GVALUE 

PUSH DS 

PUSH cs 

PoP DS 

CLD 

REP MOVSB 

PoP DS 

LEA SI,H_VALUE 3 SEARCH V_VALUE TABLE 
GET20: MOV CH, CPI 

CMP CH,CS:(SI) 

JE GET3O 

ADD SI.6 

JMP GET20 
GETSO: MOV CX.6 3 MOVE TO VALUE AREA 

LEA DI, GVALUE#18 

PUSH DS 

PUSH cs 
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OBL 
OBLS 


1F 
FC 
F37 


26: 
74 

26: 
74 
83 
74 
eB 
49 
eB 
cs 


as 


06 0058 R 0006 
06 0OSA R 0001 
SE OG0A R 02 

oc 

06 0058 R 0000 

Hh OO5A R 0008 
1 


20 
QOO1F R 


1E 00A0 R 
06 OO2F R C001 
OBIS R 


cy 
1D 
Fl 
os 78 FF 0D 
80 78 FF GA 
OA 
SE 0000 R O1 
07 
1c 90 


OF 


26: BA 07 


OL9F R 


eF 
OA 
O1L9F R 


ocBB 
ccs 
OEDE 
ODSA 
OEDE 
0077 
16 0068 R 

06 00468 & 19 
OEDE R 

16 0048 R 


13 


Pop Ds 
Clb 
REP MOVSB 
nov TVALUESUPPER t) + SET CHAR Type 
’ c 
MoV TVALUE*LOWER,2 ONTROL VALUE 
CMP CHAR_TYPE,2 
JE GET40 
Boy TVALUESUPPER? ® 
ov TVALUE#L ’ 
GET40: INT 11H 3 SET SYSTEM IDENT 
AND AL, 20H 
MOV SYSTEM_ID,AL 
POP AX 
POP DI 
POP SI 
POP cx 
ror ES 


hy ENDP 


PRINTS. CODES IN CODE BUFFER. 
INPUT 


CODE_BUFFER : CHARACTER STRING 


3 
; i 
: 3 
3 

; ATTRIBUFFER : CHARACTER SIZE : 
; , i 

3 

3 


ccP CHARACTER LENGTH 
PRINT PROC NEAR 
PUSH DS 3 SET ES 
POP ES 
LEA BX, CODE_BUFFER 3 PRINT 
MoV CSIZE,0001K 
CALL IMAGE 
eT 
RINT ENDP 
3-- ATIR -------- -e-------- wennn-------- ereen------- ~~ etnies 
3 
3 ES: BX : CHARACTER STRING ; 
3 ES:DI + ATTRIBUTE STRING - 
3 cx : CHARACTER LENGTH ; 
U 3 
ATITR PROC HEAR ° 
R cXx,cx 3 LAST CODE CHECK 
JZ AT99 
MoV $I,CX 
CMP BYTE PTR ES: (BX+SI-1),0DH 
JE AT10 
cMP BYTE PTR ES: (BX#SI-1),0AH 
JE AT10 
CMP PRINTER_ID,1 3 WHICH PRINTER IS ATTACHED ? 
JE AT100 
JMP AT200 
AT10: DEC cx 
JMP ATIR 
AT99: = RET 
Pd eat i ht at tae SS ee Ser eseNss Sen SSeS sS3s> SELES Se ame ce ma es 
: PRINTER-1 IS ATTACHED 3 
Ustuencoddeusceteews SR ReS sete ce bees Kceeeeecee case eeceeeseueeeeesuciss 
ATioo: PUSH ES + OUT STRING 
PUSH BX 
PUSH DI 
PUSH cx 
mov AL, ES: (BX) 
CALL CMD_CHK 
PoP 
PoP DI 
PoP BX, 
PoP ES 
INC Xx 
Loop AT100 
MOV AL, OAH 3 LINE FEED 
CALL CMD_CHK 
RET 
prorcececere= eee eee eee en: —eaeeee ee wereemea eee eee eas ween eeeeeere oe eee eeeeer= 8 
b PRINTER-2 1S ATTACHED _ , 
joreee semen ewe ene ae 2S SSS SS SKK KER eR SK SSS SS Kee Em a 
AT200: CALL MODESET 3 3 BYTE MODE SET 
CALL UGRID 3 UPPER GRID LINE 
CALL FEED 3 FEED 
CALL CODEOUT 3 OUT CODE 
CALL FEED 3 FEED 
CALL LORI + LOWER GRID LINE 
MOV DL, GVALUESV SIZE + FEED 
MOV GVALUESY_. SIZE,16 
CALL FEED 
MOV GVALUE+V_SIZE,DL 
RET 
ATTR ENDP 
Ban IMAGE won enn nn nnn nn nnn rer nnn neem ne wwe nnn mere ere nm nnn ss 
3 PRINTS THE CODE STRING 4 
’ 
5 INPUT 5 
5 ES:BX : CHARACTER STRING 5 
3 ES:BX¢240 : CHARACTER SIZE 5 
3 cce t CHARACTER LENGTH rf 
5 CSIZE t AYTRIBUTE VALID FLAG (O:INVALID 7 1:VALID) ; 
5 
Jerr ewww mmm www wwe eeoce we emer eee eee we me we wwe mew ww oe eo He ee eee ee rae 
IMAGE PROC HEAR 
MOV AL, 1BH 3 SET LPI 179 
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evo vomu 
erorvoew 


OFOA R 
30 


OFOA R 
a7 e038 R 


75 
SE 305A R O01 
17 


1B 
OFOA 
GA 
OFOA 


01 
tea 


OFOA 
10 90 
1B 


CFOA R 
3 


RP RRR 


0 
OFOA R 
OA 
OFOA R 
36 ghee R 


OB75 
SE QOOA R OL 
05 


OA 
OFOA 
oe. Q00e R 0000 


af G00 R 
OE6D R 


36 GOOE R 
0057 R 


08 

16 OOOE R 
E2 

OE8S R 

SE QOOE R GO 
1s 

8B AF OOFO 


2E€ OO2F R 
QOBDA R 
Fo 


2c 
O07 90 
06 GOOE R 


26 0057 R 
OC2A R 

OC42 R 

ae QOOOE R 00 


MOV AL. 30H 

CALL FIRE 

MoV SI, TVALUE+UPPER 3 PRINT UPPER IMAGE 

CALL ROTATE 

cMP TVALUE+LOWER, 1 + EVEN IMAGE ? 

JNE IM10 + KO 

MoV AL,1BH ESC +I +4 

CALL FIRE 

MoV AL, 4AH 

CALL FIRE 

Mov AL,O1H 

CALL FIRE 

MoV AL,ODH 

CALL FI 

JMP IM20 
IM10: MOV AL,1BH 3 THIS SEQUENCE SETS LINE FEED 

CALL FIRE 3 PITCH FOR ORDINARY USING 

MOV AL, 30H 3 VALUE OF ONE-NINTH-INCH. 

CALL FIRE 3 

MOV AL, OAH + LINE FEED 

CALL FIRE 
IM20: MOV SI, TVALUE+LOWER 3 PRINT LOWER IMAGE 

CALL ROTATE 

CMP CHAR_TYPE,1 3 CHECK CHARACTER TYPE 

JE IM99 3 IF SIZE IS LARGE, JUMP 

MoV AL, OAH 3 IF SIZE IS SMALL, 

CALL FIRE 3 LF OUT TO PRINTER 
IM99: MOV ccP,0 3 CLEAR CURRENT CHARACTER POSITION 

MoV CX,1160 3 CLEAR IMAGE BUFFER 

LEA SI, THAGE_ BUFFER 3 

CALL CLEAR 3 

RET 
IMAGE _ ENDP 
go> ROTATE -------------------- 22-222 nn nen n = en eeecneonn= === 5 
3 ROTATES FONT IMAGE AND OUT 3 
3 INPUT 3 
3 ES:BX : CODE BUFFER 3 
3 ES:BX+240 : CHARACTER SIZE 3 
3 cep : CODE LENGTH 3 
3 CSIZE : ATTRIBUTE VALID FLAG (O:INVALID 7 1: VALID) 3 
ROTATE PROC NEAR 

PUSH B 

PUSH cep 

mov AL, GVALUE+H_SPACE 3 (8 + SPACE) ™ CCP -> AX 

ADD AL.8 

MoV DX, CCP 

MUL DL 

CALL ESCL 
ROTOO: CMP ccP,0 

JNG ROT99 

Mov BP, ES: 240C BX} 3 MOVE CHARACTER SIZE TO BP 

AND BP, CSIZE 

CALL GETFONT 3 GET FONT INTO FONT WORK 

OR DH, DH 3 HALF ? 

JZ HALF 

JMP NORMAL 
ROT99: POP cce 

POP BX 

RET 
Pape Dh See See arene ee eee Se oe 
3 NORMAL SIZE PRINT 3 
Sesecce Noor ee se eeaean cece ek cue, ae Snares See Soe eee Saneneeee 4 
NORMAL? MOV AH, GVALUESH _SPACE 3 SPACING 

CALL SPOUT 

CALL HVCONV 3 LEFT IMAGE OUT 

cmp ccP,0 

Jz ROTOO 

ADD SI,16 s RIGHT IMAGE OUT 

CALL HVCONV 

SUB SI,16 

MoV AH, GVALUE*H_SPACE 3 SPACING 

CALL SPOUT 

JMP ROTOO 
(minke ta Ce ee ee ee ee Roe ceasssenmensaniececsneteead) 
; HALF SIZE PRINT ; 
prrscese wer er ere eee ee eee = Satie teeta teeteel wee See eee Ke eee eee See eee eee en 
HALF: = MOV AK. 3 SPACING : 

CALL SPOUT 

CALL HVCONV 3 LEFT IMAGE OUT 

MOV AH, 0 3 SPACING 

CALL SPOUT 


JMP ROTO 
ROTATE ENDP 
> GETFONT -------------- wore tenn en ern enn nee enn n een een e een n= - ee; 


: GETS FONT TO FONT WORK 3 
3 


we eee eee eee eee aaah ecient alata ate | 


SETFONT PROC NEAR 
XOR 


CALL GETCODE 3 GET THE FIRST CODE TO DL 
CMP DL.80H B PERRET EEEEE SESE EE EE EEE EELEEE REED 
JBE ONE s 4 + 
CMP DL.9FH 3 *# CHECK LEGALITY OF 1ST CODE OF + 
aac TWO 3+ ¢ 
DL,.ODFH se TWO BY 

JBE ONE 3 + 1ee SORE : 
cmMP DL.OFCH 7 + « 
JBE TWO B PEREEFEEFEHEEEEEEEOEEEEEEEOOREEES 
JMP ONE 3 

TWO: MoV DH, DL $ GET THE SECOND CODE To ot 


CALL GETCODE 


A-155 


Appendix A. 


oces 
oc2s 
oc26 
ces 
oces 
OC2A 


33 
06 
56 
39 


E8 OE6D R 


26: BA 17 
®3 DD 


cs 


9010 
8D 36 0280 R 


3 
80 SE OO1F R 00 
2 


0 
8D 1€ 0280 R 
A 


02 26 COST R 
oo EC 


88 CD 
D2 E4 
ga cc 
32 €O 


ONE: PUSH BX 3 GET FONT IMAGE 
PUSH ES 
PUSH st 
MoV CX,16 3 CLEAR FONT AREA 
LEA SI,FONT 
CALL CLEAR 
MoV AH,19 + FONT REQUEST 
CMP kas ID,00H 
JE FONT 
MoV Anele 
FONTLO: XOR AL, AL 
LEA BX, FONT 
MOV CX,DX 
PUSH os 
PoP ES 
INT 10H 
POP SI 
POP ES 
PoP BX 
RET 
GETFONT ENDP 
3--~ GETCODE -~------- woeccce= Sheahan! 


+ GETS CODE AND UPDATE INDEX 


GETCODE ie NEAR 

MO DL ES: CBX) 3 GET CODE INTO DL 

ADD BX,BP 3 INDEX UPDATE IF DOUBLE SIZE 

Les BX 3 INDEX UPDATE 
peng om pt 
p= FE RR OR RR pers SSS SSS SSS Se eae 3 
H OUTPUTS SPACES BETWEEN CHARACTERS 3 
° tf 
3 INPUT t 
3 VALUE+H_SPACE : SPACING VALUE 4 
3 
to---- wer----------~----- ~-------- wa eenee------------ ~--------- -~----- 3 
SPOUT PROC NEAR 

ADD AH, GVALUE+H_SPACE 3 SPACING VALUE 

SHR AH,1 

MOV CX, BP 3 CHAR SIZE 

SHL AH,CL 

MOV CLLAH 

xOR ALLAL 

OR CL,CL 

JZ SP99 
SPOO: CALL FIRE 3 OUT SPACE 

Loop spoo 
SP99: RET 


3-- HVCONV ---~-----~-----~~------~.--~---. fo ea ae eiceit ene ete 3 
3 ROTATES. FONT IMAGE AND PRINTS IT 3 
3 3 
3 INPUT 3 
; SI t FLAG (O:UPPERYEVEN 1:0DD 8:LOWER) 3 
3 CHAR_LTYPE : TYPE (1:SMALL TYPE 2:LARGE TYPE) 3 
3 BP : SIZE (CO:NORMAL SIZE 1:DOUBLE SIZE) : 
. 
Be we seni. SaaS e Ae A Se Ae eee DES Wieswosecouely 
HVCONV PROC NEAR 

PUSH SI 

PUSH BX 

PUSH nid 

PUSH 

MOV DI, CHAR_TYPE 3 LOAD FONT TO REGISTER 

Mov AL, FONTESEI 

ADD SI, 

MOV CLs FONTEST) 

ADD $I,DI 

MoV DL, FONT(SI) 

ADD SI,DI 

MOV aL eLONTLSEd 

ADD DI 

MOV an FONT(S1) 

ADD SI.DI 

mov CH, FONT(S1) > 

ADD SI,DI 

MoV DH, FONT(SI) 

ADD SI,DI 

Mov BH, FONT(SI) 

ADD SI,DI 

MOV SI,8 
HVOO: SHL AL,1 3 LOAD DATA 

RCL DI,1 

SHL Cle. 

RCL DI,1 

SHL DL,1 

RCL DI,1 

SHL BL,1 

RCL DI,1 

SHL AH, 1 

RCL DI,1 

SHL CHo1 

RCL DI,1 

SHL DH,1 

RCL DI,1 

SHL BH,1 

Psa ax! 

is E 

PUSH cx 3 FIRE IMAG! poe 

wey CX, BP s LOOP FOR DOUBLE 
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Cc? 
OFOA R 
F9 


1B 
OFOA R 
28 
OFOA R 


06 OO1C R 0003 
OF 


8B 05 
0003 
09 


o7 


1c 90 


36 0053 R 
16 0054 R 
SE 0055 R 


OD45 R 
b2 


HV10: MoV AX,DI 
CALL FIRE 
Loop HV10 
oP cx 
PoP AX 
DEC SI 
JNZ HV00 
SUB CCP, BP 
DEC cP 
PoP Dx 
POP cx 
POP BX 
PoP sI 
RET 
HVCO ENDP 
too NODES | 3 Sibataabaietatutetatatatetetetetatetatetatenaetanateted = 
; SETS 3 BYTE TRANS MODE 
MODESET PROC NEAR 
MOV AL,1BH 
CALL IRE 
MOV AL,28H 
CALL RE 
RET 
alge ta ENDP 
j~= were wee w meee eee <2 ED DD SD eS DD wD ODD: 
3 PRINTS vuprER GRID LINE 
3 ES:DI : ATTRIBUTE BUFFER 
3 Cx : ATTRIBUTE LENGTH 
UGRID PROC NEAR 
USH AX 
PUSH cx 
PUSH oI 
PUSH BX 
MOV CPIMASK,3 
Mov AL,OFH 
MOV SI,DI 
CALL CHECK 
Jc UG99 
mov AL,55H 
CALL DIRSET 
CALL ESCx1 
ucce: PUSH x 
LEA SI,GRID 
MOV X, 54 
CALL CLEAR 
PoP cx 
MOV $1.0 
CALL VGRID 
CALL HGRID 
CALL PGRID 
INC Or 
Loop UGOO 
MOV AL,42H 
CALL DIRSET 
UG99: PoP BX 
op DI 
PoP cx 
PoP A 
RET 
UGRID ENDP 
be- HGRID -------------~---------------- 
3 PRINTS HORIZONTAL GRID LINE 
Jonenne a ee 
MGRID PROC NEAR 
MoV AX, ES: (DI) 
AND AX,0003H 
JZ HG99 
DEC ax 
Jz HG100 
DEC AX 
JZ HG200 
Jue HG300 
HG99: RET 
Jerome nnn nee ee wrt enon oe eee 
: SINGLE 
HG100: MoV DH, OFFH 
mov OL.OFFH 
MOV BH. OFFH 
MoV AH,080H 
CALL HGSET 
JMP HG99 
' DOUBLE 
HG200: NOV OH, OFFH 
MOV DL,OFFH 
MOV BH,OFFH 
MoV AH,OCOH 
CALL HGSET 
JMpP HG99 
poene----- sew ewe ewne meee nw ewww een eee ee 
‘ DASHED 
{vesendawnane seen 
HO300: MOV DH, GVALUE*+H_DASH 
MOV DL, GVALUE+H_DASH#1 
MoV 8H,GVALUE*H_DASH#2 
MOV AH, 
CALL HGSET 
JMP HG99 
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en ewe em ee ewe ewe we wn nn een eee ne eee 





3 CCP UPDATE 


3 SET MASK FOR 13.5 CPI 
3 CHECK UPPER ATTRIBUTE EXISTS 


3 UNIDIRECTION SET 


3 OUT ESC+X+14N14N2 
3 CLEAR IMAGE BUFFER 


3 SET VERTICAL GRID CUPPER) 
s SET HORIZONTAL GRID 
3 OUT GRID IMAGE 


+ BIDIRECTION SET 





3 GET ATTRIBUTE BYTE 
NO GRID ? 


3 
3 SINGLE ? 
+ DOUBLE 2? 
3 DASHED 





tre r cree e------; 


3 LOAD LINE MASK 


3 LOAD LINE IMAGE 
3 SET GRID IMAGE 





t 
s LOAD LINE MASK 


3 LOAD LINE IMAGE 
3 SET GRID IMAGE 


ewe mm eweewnw ewe nee wees 


. 
s 
3 
3 LOAD LINE MASK 


+ LOAD LINE IMAGE 
3 SET GRID IMAGE 
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00465 


opcs 
oocs 
opcs 
once 
opcc 
ODCF 
opD1 
0DD2 


83 C6 
83 FE 36 
75 EE 


08 AS O2A0 R 
03 


BO DF 

8B OFS 

E&8 OE74 R 
i} 


8B FS 
26: 8A 04 
E&8 G7FA R 


E2 F7 


C7 06 801C R GOS 
4c 


8B F? 
E8 OE74 R 
28 


BO 55 
E38 CECE R 
€8 GOEQF R 


8D 36 O2A0 R 
BY 0036 
€8 OECD R 


BE 0009 
E8 ODD2 
€8 ODBS 
ES OE62 R 
E2 ES 


42 
E8 CECE R 


26: Fe 0S 40 
74 07 

BA 26 0047 R 
E8 ODCS R 

cs 


33 F6 
08 AS O2A2 KR 
05 


75 F4 


HGRID _ENDP 
i-- HGSET ----~--~-------~~--- ~~ ------- ~---------- ; 
i SETS GRID LINE IMAGE 3 
3 3 
; “DHLDL.BH + GRID LINE MASK 3 
HGSET PROC NEAR : 

XOR $1,SI 
HG500: RCL BH, 1 3 SHIFT LINE MASK 

RCL DX, 1 

INC SKIP 3 SET ? 

OR GRID(SI),AH 3 YES 
SKIP: ADD SI,3 

CMP SI.,54¢ 

JNE HG500 

RET 
HGSET _ENDP 
3-- CODEOQUT ---------- 2---------- weea-e---~----- woeenne---5- --------+-- 3 
i PRINTS CODES 3 
Beer Rew res eS Se er re ne a eee 
CODEOUT PROC NEAR 

PUSH = AX 

PUSH = CX 

PUSH = SI 

PUSH DI 

MoV AL, ODFH 3 CHECK ALL SPACE 

MOV SI, 

CALL CHECK 

Jc c099 

MOV SI,BX 3 CODE OUT 
CODEGO: HOV AL-ES:CST) 

CALL CH 

INC sr 

LOOP = CODED0 
C099: POP DI 

POP SI 

POP cx 

POP A 

RET 
CODEOUT ENDP 
3-- LGRID --------------------- terre nen none -- $+ 22+ $= === - 3 
3 PRINTS LOWER GRID LINE 5 
3 INPUT 3 
3 ES:DI : ATTRIBUTE BUFFER 3 
3 cx t ATTRIBUTE LENGTH J 
LGRID PROC NEAR 

PUSH A 

PUSH cx 

nove CPIMASK,S SET MASK FOR 13.5 CPI 

3 . 

Mov AL,4CH 3 CHECK LOWER ATTRIBUTE EXISTS 

MoV SI,DI 

CALL CHECK 

J L699 


=z 
o 
< 
> 
cr 
w 
w 
=x 
~ 


UNIDIRECTION SET 


CALL €scxi 3 OUT ESC#X414+N14N2 
1G00: PUSH cx 3 CLEAR IMAGE BUFFER 
LEA SI,GRID 
MoV Cx, 
sat gee 
MOV SI.9 3 SET VERTICAL GRID (LOWER) 


fal 
> 
- 
- 
i= 
=z 
=) 

m 
R 

~ 


SET UNDERSCORE 


CALL PGRID 3 OUT GRID IMAGE 

INC DI 

LOOP LGoo 

MoV AL,42H s BIDIRECTION SET 

CALL DIRSET 
L699: PoP DI 

POP cx 

PoP Ax 

RET 
LGRID Cube ae = cass autalcabacameaiages 
; SETS. UNDERSCORE IMAGE 5 


ee rr ow en no ee rrr nn} 


TEST BYTE PTR 


ES:CDIJ,40H 3NO UNDERSCORE ? 


JZ UN99 

mov AH, GVALUE*V_UNDER 

CALL UNSET 
UN99: = RET 
riage ENDP puseuieteeey 
-- UNSET --------- eS aceeceantreneeiccuweeccceweueteseesse ; 
5 SETS: UNDESCORE IMAGE : 
3 
; AH : UNDERSCORE IMAGE Guewccdeuey 
UNSET epee NEAR 

R 

UN500: OR GRID+2CS13,AK + SET UNDERSCORE 

AcD $I, 

cMP $1,546 

JHE UN500 

RET 
UNSET Pid 
b> NGRID ---------------- wenn ene e eee een n nn nne ness 
5 SETS VERTICAL GRID LINE ; 
‘ 
; MESIDI s ATTRIBUTE BUFFER 3 
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OMNNSNYANN 
UMALOSOLSUG 


vou 
NOw 


Coreorvao0onm 
o> 


Quem 
HOVOOVmMmHeuuouw 


cé 


cs 


o 
w 


oo on 
- A 


NmMowouCce 
rs 


@wooooca 


OE 0056 


SE 0052 
CE oo1Cc 
36 o01C 


36. O2A0 
OEFE R 


04 00 
FA 


cy 
68 
84 04 
07 
Fa 


o2 90 


RPBBANRBRAR RRRRAB 


RARBRAR 


6c 


e003 








deerme <n O:UPPER 9: LOWER 3 
VGRID PROC NEAR 
Mov AX, ES: CD13 s GET ATTRIBUTE BYTE 
AND AX, 000CH 3 HO GRID ? 
JZ VG9 
SUB aXe s SIWGLE ? 
JZ VG100 
SUB AX,4 3 DOUBLE 2 
JZ VG200 
JMP VG300 3 DASHED 
VG99: RET 
Pa ha aT we ewe ee weewnn----- wren nee water reer eee ewweennn; 
3 SINGLE ; 
moet rrr entree nena eee eee o---------; 
VG100: Gey SE TOUALUESN SOLID*O[SI] ;SET GRID IMAGE 
AL 
mov AL, Hi tages SOLID410S1) 
OR GRID 
MOV Al, GVALUESW_soLrpe2ts1) 
OR GRID+2,AL 
JMP v699 
; DOUBLE 
VG200: mov Abs VALUES SOLID#0CSI] 3 SET GRID IMAGE 
OR GRID+3, AL 
MoV AL, GvaLuEey _SOLID#1CSI) 
OR GRID#+1 
OR GRID+4, AL 
mov Al, ol ge -SOLID+2CSI) 
OR GRID+2,A 
OR GRID¢+5, AL 
JMP vG99 
oats a ec arto SVaSSeSssSesee si aaa aa laa Saree eacmecotarat : 
i DASHED 3 
Oe werner nena nee see eL eet ees aeSea Shen ene sean mecsnencnnnene wes: oe 
VG300: mov AL -GVALUESY_ DASH+OCSI}) = SET GRID IMAGE 
) 
MOV AL, GVALUE+V_DASH#1(S1) 
OR GRID+1,AL 
MOV AL, GVALUE+V_DASH#2[SI) 
OR GRID#2,AL 
JMP vG99 
VGRID __ ENDP 
3-- PGRID ----------- - 


USH x 
PUSH ES 
XOR CH,CH + OUT GRID IMAGE 
MoV CL, GVALUE+H_SIZE 
MoV AX,CX 3 Cx m3 
ADD CX, AX 
aDD Cx, AX 
CMP GVALUE+H_KEY,6CH 3 13.5 CPL ? 
JNE PGOO 
ADD CX, CPIMASK 3 CPI ADJUST 
xOR CPIMASK,O3H 
PGOO: PUSH DS 
PoP Es 
LEA SI.GRID 
CALL FIRES 
POP ES 
PoP cx 
RET 


PGRID __ENDP 
b> CLEAR ~--~--~-~-------~-------- ~~~ 


3 FILLS THE AREA WITH 0 
; INPUT 


wee w mw wwe ewww www wen ee 3 


; SI: CLEAR ADDRESS ; 

3 CX 1 CLEAR COUNT : 

Be eee CSREES OUND srl acs octane ae A 

CLEAR PROC NEAR , 
MOV BYTE PTR (13,0 


R 
CLEAR ENDP 
37> CHECK -------------- eee 


‘ SHESKS STRtHES 


3 

; 3 
’ AL t CODE MASK 5 
, cx 1 CODE LENGTH : 
3 LES#SI t CODE BUFFER Hy 
fo sssSensssecs: SSSR E UPR ROR RN NARA NR RN SSSI SSSSSRS SESS SR See esa nny 
CHECK PROC NEAR 

PUSH cx 

OR Cx, CX 

JZ CH10 
CHOO: TEST ES: (STI,AL 3 ATTRIBUTE EXEISTS 2 

JNZ cH20 

INC SI 

Loor CHOO 
CH1O: SsTc 3 NO 

JMP CH99 
CH20: CLC + YES 
CH99: POP cx 

RET 
CHECK _ENDe 


3-- ES we ew wwe www eee Set rr terror err ter wnn tena en wees ens seek; 


3 ourPuTs Esc +L + rr + N2 ‘ 
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8 
oesc = E8 ares R 
OE91 ES CFOAR 
OE95 ES GFOAR 


OES9 86 C4 
OE9B ES OFOA R 


OEAO BO 1B 
OEA2 ES OFOA 
QEAS BO 25 
OEA? E8 OFOA 
OEAA BO 31 
OEAC £8 OFOA 
OEAF AQ 0056 
OEB2 F6 EL 
OEBS 80 SE 0052 R 6C 
OE89 75 05 


1B 
GEDL E& OFOA R 

25 
OED ES OFOA R 
GEDA E8 CFOAR 


OEDE 
CEDE BO OD 
CEEO £8 ria R 


CEES E8 OFOAR 
25 

CEEA ES OFOAR 
3 

OEEF E8 OFOA R 
0 


OEFS ES OFOAR 
COEF? AO 0048 R 
OEFA E8 OFOA R 


OEFE 


sere 

eEFE 51 

CEFF 26: BA 04 
OFO2 £8 OFOAR 
CFOS 46 

OFO6 E2 F7 
oFO8 59 

OFOs C3 

OFOA 


; INPUT 3 
3 AX __ + NIN2 5 
jowroee sew eee Se Se ee 
ESCL PROC NEAR : 

PUSH = AX 

PUSH = AX 

mov AL, 1BH 3 MESC" 

CALL FIRE 

Mov AL, 4CH al 

CALL = FIRE 

POP AX + M1 

CALL) FIRE 

POP AX + N2 

XCHG = AL, AH 

CALL FIRE 

RET 
Esct. _ ENDP 
37> ESCX] --~---------------~~~~------------------------~~--------- ---3 
i OUTPUTS ESC + x #1 + NL + NZ 3 
3 
3 CX __1 CHARACTER LENGTH ; 
ae epreia Mmpme pea ce Rha Die dumacpcnur oa cee Sei ee 
EScxl PROC HEAR : 

PUSH = CX 

mov AL, 1BH s ESC#x#1 

CALL = FIRE 

mov AL, 25H 

CALL FIR 

Mov AL, 31H 

CALL = FIRE 

mov AL, GVALUE*H_SIZE s DOT SIZE - CHAR SIZE 

cMP GVALUE*H_KEY,6CH 513.5 CPI ? 

JNE ESCX1X 

cle s aX = 0X72 

RCR cx,1 

ADC AX, CX 
ESCX1X: MOV CX, AX 

MOV AL.CH b N14N2 

CALL = FIRE 

MOV AL, CL 

CALL = FIRE 

POP cx 

RET 
ESCxX1 _ ENDP 
3-- DIRSET -------------------------- ween enn n enn n nnn on - === ------- 3 
3 OUTPUTS ESC * xX + DIRECTION (U OR B) 3 
3 INPUT s 
3 AL____: DIRECTION 3 
a Sm a mareserenas= seeesenaa===5 
DIRSET PROC NEAR 

PUSH = AX + ESC#X+U,B 

mov AL, 1BH 

CALL = FIR 

MOV AL, 25H 

CALL = FIRE 

POP Ax 


RET 
DIRSET ENOP 


37> FEED ------------------ 


3 EXECUTES LINE” FEED 





mov AL,ODH 3 CR. 
CALL FIRE 
MOV AL,1BH 3 ESC+X+5 
CALL FIRE 
mov AL,25H 
CALL FIRE 
MOV AL, 35H 
CALL FIRE 
mov AL,O 3 WIN2 
CALL FIRE 
MoV AL, GVALUE*V_SIZE 
CALL FIR 
RET 
FEED gene 


FIR 
ourPurs i DATA TO PRINTER PORT 
IHPU 


; 3 
3 3 
H ESiSI t ADDRESS OF oe STRING 5 
3 cx : LENGTH OF STR 3 
3 OUTPUT U 
s AH + STATUS sprees tetany 
FIRES PROC HEAR 

PUSH cx + SAVE REGS. 
FIREOO: MOV AL, ES:(S1J + OUT DATA 

CALL FIRE 

INC SI 

Loop FIREOO 

PoP cx 

RET 
FIRES €NDP eRe ee 
bo- FIRE --------- econ enn n ooo ween n-ne w ee ee er ’ 
+ OUTPUTS DATA. TO PRINTER PORT , 
3 INPU 
; AL : OUTPUT DATA j 
H OUTPUT ’ 
$ AH : PRINTER STATUS ’ 
s 5 
porrrrereree-- er re em www we ne cee eee ee ee enna} 
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FIRE prac NEAR 
Dx 
Put Me 5 SAVE REGS. 
: PUSH BX 
hoy Ay 
DX.PR_DA RT 3 OUT DATA IW AL 
0378 our De ae TA_PO 
i MoV BL,1 + BUSY CHECK 
OF56 R Test awenes 
»PR_ERROR 
17 ie how Oxere SET STROBE 
»PR_CMD_PORT 5 
a MOV AL,ODH 
our DX, AL F 
7 MoV AL, OCH 
our DX, AL 5 
é Boy BL,O s GET LAST STATUS 
STATUS 
OF54 R FOr AX 5 RESTORE REGS. 
AH, RETURN_CODE 
26 0002 R POP BX _ 
POP cx 
PoP Dx 
nov ABEND EXIT 
ABEND: SP, SPSAVE 3 
38 000s R LEA SI,PRINTER_ID+3 3 CLEAR CONTROL AREA 
seen Mov CX, 93 
ode CALL CLEAR 
5E OOAG RK LEA SI, IMAGE_BUFFER 3 CLEAR IMAGE_BUFFER 
0474 MOV CX,1140 
hes R CALL CLEAR 
ones ® CALL DEFAULT 3 SET DEFAULT VALUE 
0A34 R CALL GETVAL 3 RESET CPI , LPI CONTROL VALUE 
0089 R JMP RETURN 
FIRE ENDP 
go> STATUS -------------~-- wo 2-2 --------~----- ---------- ~----------—-; 
3 GETS STATUS 1 3 
3 3 
3 INPUT 4 
3 BL : BUSY WAIT FLAG (O:NOT WAIT 7 1:WAIT) 3 
3 3 
3 OUTPUT 3 
3 AH : PRINTER STATUS 1 3 
3 RETURN_CODE : PRINTER STATUS 1 3 
3 . 
3 Sass 
STATUS PROC NEAR 
USH DX 
PUSH cx 
EO XCHG AH, AL 
3 
0379 $T00: MOV DX, PR_STATUS_PORT 3 SET STATUS PORT 
06 0016 R 0004 MOV PR_TIME1,4 3 RESET BEEP TINER 
06 OO1A R OOOB MOV PR_TIMES,11 3 SET WAIT TIME 
co XOR cx7ex 
S$T10: IN AL, DX 3 GET STATUS 
FE AND AL,OFEH 3 RESET TIMEOUT BIT 
DB OR LBL 3 BUSY NO CHECK ? 
13 JZ ST99 
30 TEST AL, PR_BUSY 3 Busy ? 
OF JNZ ST99 5 
OFES R CALL BEEP 3 BEEP ROUTINE 
0 Loop $T10 
OE OOLA R DEC PR_TIMES 
EA JNZ ) 
01 OR AL,PR_TIMEOUT 3 SET TIMEOUT STATUS 
F?7 AND AL, OFFH-PR_ERROR 
08 ST99: XOR AL, PR_ERROR 
C4 XCHG AL, AH” 3 STATUS TO AH 
ES B9 AND AH, OB9H 3 RESET UNUSED FLAG 
26 0002 R MOV RETURN_CODE,AH 
POP cx 
POP Dx 
RET 
STATUS ENDP 
Bre STATUS2 non nnenn nnn nnn nnn nn nnn nnn nnn nnn nnn ene enn; 
3 GETS STATUS 2 ; 
3 
F ourpur 4 
3 1 PRINTER STATUS 2 3 
| RETURN_CODE 1 PRINTER STATUS 2 ; 
5 5 
STATUS2 PROC NEAR : 
PUSH DX 
H 
00 MoV AHO 3 SET PRINTER_ID 
3E 0000 R 02 CMP PRINTER_ID,2 
02 JE $T20 
ol MOV AH, 
cc 80 ST20: oR AH, 80H 3 SET ASF ON 
E4 81 AND AH, 81H 3 RESET UNUSED BIT 
3E 0003 R 90 CMP CPI,90H 3 CPISS 9 
1? JE LPISET 
C4 02 ADD AH, 02H 3 CPIZ6 2 
JE 0003 R 78 CMP CPI,78H 
oD JE LPISET 
C4 02 ADD AH, 02H 3 CPI=6.7 2 
3E 0003 R 6C cMP CPI,6CH 
03 JE LPISET 
ce 02 ADD AH,O2H 3 CPI2=7.5 
SE 0004 R 1E LPISET: CMP LPI,1EH 3 LPIs4 2 
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17 
C4 08 

SE 0004 R 18 
oD 

C4 08 

SE 0004 R 14 
03 

C4 08 

26 0002 R 


OE CO18 R 
ll 

OE 0016 R 
OB 
0E07 
10 


06 0016 R 0003 


ST999% 


PR_TIME1,1 


BEGIN+1040H 
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3 LPI=5 2 
3 LPI=6 2 
3 LPI=7.5 
TFS Ee Ree oa mano mee 3 
3 
5 
OOS wsne noe aae 3 
3 BEEP 


" " 
* MODULE 7 
" “ 


WO tS ee ee Oe 
OO ne 
= OO1E 

0000 

0000 FB 

0001 Bé O1 
0003 33 D2 
0005 CD 17 
0007 CD 7B 
0009 CD 11 
0OOB 24 30 
Q00D 3C 20 
QOOF 74 15 
O0011 B& 0011 
001% cD 10 
0016 B& 1000 
0019 BB 0100 
Qo1c 6CD (10 
QO1E BS 1001 
0021 BB 0100 
0026 cD 10 


°o 
oe 
Nn 
a 
eo 
oo 
nn 
mn 
N 
o 


002B E8 0000 E 
OO2ZE 8B SE O3502 R 


0032 80 OE 0336 R 08 
0037 B& 0500 
OOSA CD 16 


0065 C7 06 0078 R 0000 E 
00438 8C OE OO7A R 
OOsF 33 FE 

0051 33 D2 

0053 Dl CF 

0055 73 2F 

0057 Be 0004 

005A 51 

0058 B84 00 

0050 CD 13 

OOSF 72 08 

e061 388 0201 

0064 89 COOL 

0067 CD 13 

0069 «59 

006A 73 09 

006C Fé C4 80 

006F 75 15 

0071 €2 E7 

0073 EB 11 

0075 BE FFFF ; 
0078 81 7F 03 4249 
007D 75 07 

OO7F 81 7F 05 48D 
008s «74 22 

0086 42 

0037 80 FA 04 

008A 72 C7 

008c OB Fé 

OesE 74 16 

0090 BE 0OBS R 


3 
; 
; 
3 
5 
3 
3 
3 
$ 
5 
r 
; 
> 
3 


3 


== INT 19 22s22cse2eeree---- srtsscrssssssssecs ssszreszs 
BOOT STRAP LOADER 


TRACK 0, SECTOR 1 I$ READ INTO THE 
BOOT LOCATION (SEGMENT 0, OFFSET 7C00) 
AND CONTROL IS TRANSFERRED THERE. 


IF THE DISKETTE IS NOT PRESENT OR HAS A 
PROBLEM LOADING (E.G., NOT READY), AW INT. 
18H IS EXECUITED. IF A CARTRIDGE HAS VECTORED 


INT. 18H TO ITSELF, CONTROL WILL BE PASSED TO 
THE CARTRIDGE. 





THIS ROUTINE SET INITIAL CARTRIDGE PROCESS 
AND ALSO CHECK DISKETTE IS BOOTABLE OR NOT 


ASSUME CS:CODE,DS:ABSO 
U 1EH 


BOOT STRAP Pp 
BOOT_ roc NEAR 
STI 3 ENABLE EXTERNAL INTERRUPTS 
MOV AH, 1 3 INITIALIZE PRINTER 
XOR DX, DX 
INT INT_17 
INT 7BH 3 GO SYSTEM CARTRIDGE HANDLING 
Hi: INT INT_11 3 CHECK APPLICATION MODE 
AND AL, 30H 3 
cMP AL,20H 3 EXTENSION MODE ? 
JE H2 3 YES-SKIP FOLLOWING VIDEO SET MODE 
mov AX, 0011H 3 SET 20X11 COLOR MODE FOR DEFAULT 
INT INT_10 3 
MOV AX, 1000H 3 SET 20X11 DEFAULT COLOR BLUE 
MOV BX,0100H 3 FOREGROUND TO BLUE 
INT INT_10 3 
MOV AX, 1001H 3 INCLUDING BORDER COLOR TO BLUE 
MOV BX,0100H 3 
INT INT_10 3 
H2: MoV AX, KKNINIT 3 INITIALIZE KANA-KAN CONVERSION 
INT 78H 3 : 





ASSUME DS:DATA 
DDS 


CALL 

MoV DI,JEQUIP_FLAG ; GET DRIVE CONFIGURATION 

OR JKB_FLAG, 08H 3 FLAG TO KANA-KAN INITIALIZED 
MoV AX,0500H 3 INITIALIZE KEYBOARD 

Int INT_16 3 








ASSUME DS:ABSO 
SuB AX,AX 3 ESTABLISH ADDRESSING 


mov DS,AXx 
MOV ES,AX 3 SET DISKETTE BUFFER ADDR 
MOV BX.OFFSET BOOT_LOCN ; 


gseess yh THE DISK PARAMETER TABLE VECTOR 
m 


g----- LOAD SYSTEM FROM DISKETTE 
xOR SI,SI ; 


WORD PTR DISK_POINTER,OFFSET DISK_BASE 
MoV WORD PTR DISK_POINTER#2,CS , 


RESET DISKETTE INSTALLED FLAG 


XOR DX, DX 3 HEAD @, DRIVE 0 
W3r ROR DI,1 3 DISKETTE DRIVE ATTACHED ? 
JNC 47 3 NO -GOTO NEXT DRIVE CHECK 
MoV CX,4 3 SET RETRY COUNT 
H4: PUSH cx 3 SAVE RETRY COUNT 
MOV AH,O 3 RESET THE DISKETTE SYSTEM 
INT INTIS 3 
Jc HS + IF ERROR, TRY AGAIN 
MOV AX,0201H 3 READ OP.., 1 SECTOR 
MoV CX,0001N 3 TRACK 0, SECTOR 1 
INT INT_1IS 3 READ IN THE SINGLE SECTOR 
HS: PoP cx s RESTORE RETRY COUNT 
INC H6 3 IF GOOD, GOTO FORMAT CHECK 
TEST AH,80H 3 TIMEOUT ERROR ? 
JNZ 7 3 YES-GOTO NEXT DRIVE CHECK 
Loop H4 + DO IT FOR RETRY TIMES 
JMP SHORT H? i 
dmn~~-- CHECK DISKETTE FORMAT 
Ho: MOV SI,OFFFFH & SET DISKETTE INSTALLED FLAG 
CMP DS:WORD PTR BOOT_LOCNICBX).*BI* 3; FORMAT GOOD ? 
JNE u? + NO - 
cmp DS:WORD PTR BOOT_LOCN2(BX), *UM 
JE O_B0oT $ YES-GOTO BOOT PROGRAM 
H7: TNC Dx 5 SET DRIVE @ FOR NEXT DRIVE 
CMP DLL4 + END OF DRIVES ? 
JB HS 3 NO - 
OR SI,$I 3 ANY DISKETTE INSTALLED » 
JZ ng 3 NO - 


crows DISKETTE WAS INSTALLED, BUT SYSTEM DISKETTE WAS NOT INSTALLED. 
MOV SI,OFFSET BOOT_ERR 3 DISPLAY ERROR MESSAGE 
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@OAG 
OOAS 
COAS 
OAD 


ooac 
QOAF 


oOBs 


OODA 
oepc 


OoF2 


0100 
0100 


B9 OOSE 


6 
€8 


2E1 8A 64 
4 


E2 F? 


B4 
cD 


9 


co 


00 
16 


0009 R 


18 


CA 40 
57, 1E 
7000 ---- R 


MoV cx, 62 ; 
HB: MOV AL, cS:CSIJ ; 
INC §1 
CALL pRT_HEX 5 
LOOP H8 5 
mov AHO 3 WAIT ANY KEY INPUT 
INT INT_I6 U 
sei " 3 RETRY FROM 1ST DRIVE 
bo---- UNABLE To IPL FROM THE DISKETTE 
R91 INT T 18 3 GO TO BASIC OR APPLICATION CARTRIDGE 
io---- IPL WAS SUCCESSFUL 
GO_BOOT: 
PoP cx 3 ADJUST STACK POINTER 
OR DL. 40H 3 SET DOUBLE TRACK sy 
MOV DS:BYTE PTR LBOOTCBX), DL 3 OR LOGICAL Boat eae 
JMP BOOT_LOCN 3 GO BOOT LOCATION DISKETTE 
Bowen ww nnn enon enone enen= 
; MESSAGE AREA i] 


BOOT_ERR DB "EL YAFL FAATIbESLAA, ” 


DW OAODH 
a ” RAS-EMLT RA” 


BOOT_STRAP ENDP 


ORG BEGIN+100H 
CODE ENDS 
END 
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Oe ee ee FE MRO 000 000000000000000000D000NNNONNNOOROOHHSNOnOOHNNOOONOOOANEL 
x s 
x MODULE 8 x Be KANA-KANJI DATA DEFINITION " 
ReianseNwaie jo orn NN naan ERAN RaN 
0000 cpa SEGMENT AT 80H 
bie DsTART EQU $ 
7 SHANEIDNKIONSOUTAOLEONEIRIOgE KIO atN SEDC SC NEKO AOLSDE DEN DONC sNO DN tb 
3M DATA AEAR 
7 RRR n ORE oopA A EDADAEHONOOOHOEA AHORA ONAN 
i 
bstat DB 2 sDATA STATUS 
eases HANKAF EQU 01K > HANKAKU 
S epee ZEN2F  EQU 02H 3ZENKAKU 
= peor FUNCF EQU 04H + FUNCTION 
= 0008 ZENMENF EQU 08H 3ZENMEN 
= eats KANJIF EQU 10H 3KANJI 
= 0020 ZENILFE EQU 20H 3ZENKAKU HIGH BYTE 
rs 0080 DAKUF EQU 80H > DAKUT EN/HANDAKUT EN 
KBDSTAT DW 2 ;KEYBOARD STATAS 
een ett ESHIFT EQU 00H sEISU SHIFT 
a 0002 KSHIFT EQU 02H sKATAKANA SHIT 
a eae HSHIFT €QU 04H sHIRAGAHA SHIFT 
= 0001 ZMODE EQU 01H sZENKAKU MODE 
xd o0co HMODE EQuU OOH sHANKAKU MODE 
a 0006 KBOMSK EQU 06H 3KBD STATUS MASK PATTERN 
= 0040 CAPSST EQU 40H sCAPS STATUS 
= 0010 CAPSON EQU 10H 3CAPS LOCK 
= 00co KKNOCHG EQuU OCOH sKANA~KAN REQUIREMENT HOT CHANGED 
fs KKKYDCD EQU CHARL 3KEY DATA CODEC6BYTE) 
= KKINKEY EQU CHARL 
0003 «2? CHARL DB ? s CHARACTER 1 
4 ee ATTR1 DB 2 SATTRIBUTE 1 
0005 22 SCANL DB ? 3SCAN CODE 1 
0006 «2? CHAR2 DB 2 3CHARACTER 2 
0007 2? ATTR2 DB 2 s ATTRIBUTE 2 
0008 7? SCAN2 DB ? sSCAN CODE 2 
jNeSeeewaeewoes: ------ wrrerere------- +--+ wero e+ --------- ~-—------0 
0009 6c C KKINBUF DB 108 DUP(?) sVOMI INPUT BUFFER(120BYTE) 
22 
J 
0075 6c C KKINBFSV DB 108 DUPC?) 3 YOMI INPUT BUFFER SAVE 
9°? 
J 
= 0000 HANATTR: EQU : THIGH BYTE OF Sen 
? IGH BYTE OF ZENKAKU ATTRIB 
2°b001 ZATTRIS EQU  O1H 80x25 a 
= 9080 ZATIRIN EQU 80H $80™11,40"22 
2? A ? sLOW BYTE OF ZENKAKU ATTRIB 
2°So03 ZATTR25 EQU 03H 380"25 oeete 
= 0088 ZATTR2N EQU 88H 38011, 40022 
ROATCHT DB 2 sROTATE ATTRIBUTE COUNTER 
ie ROT25 ECU 0 380x25 
= 0001 ROTi1L EQU 1 380M11,40m22 
@oEs 772°? SPACE DW ? 3SPACE HANKAKU DATA 
OOEG 777? KKWCCA DW ? 3 BUFFER CONTECUTUAL CURSOR 
OOES 297? KKEOPMAX Di ? 3_END OF YOMI POINTER (¢ MAX ) 
= 0O0OF SESrnAN Equ is 3BANGOU MAXIMUM EOP 
@CEA P7777 KKWEOP DW ? 3 END OF YOMI POINTER 
@oEcC 777? RHEE EY Dw ? 3 SAVE AREA FOR END OF YORI POINTER 
@OEE rrr? BASE DW ? 3 START ribet OF DISPLAY INP 
= 0030 BBASE25 Equ 48 3BANGOU 80%2 AEDT ‘NURP, 
© 0015 BBASE\L EQu 21 3 BANGOU sontiveonaa 
3 
3 
OOoFO 77 KKWINSY DB ? 3_INSERT MODE FLAG TABLE 
OOFL 779? KKINP DW ? 3DISPLAY POINTER 
Oors rT? KKCUSR DW ? sKANA-KAN CURSOR POSITION 
= 183¢ KCSRP25 EQu 183CH ponnes CURSOR POSITION (80n25) 
= OALlL KCSRP11 EQU OAlLH (LL) 
= 1811 KCSRP4O25 EQU  1811H ; (40x25) 
3 
OOFS 27797 KKCHRSP DW ? sCLEAR DATA OF INPUT BUFFER 
= 8140 ZENSP EQU 8140H sZENKAKU SPACE DATA 
eer? 277? KKFORPIT DW 2 sMOVE FORWARD POINTER 
t 
oors 27 KKMODE DB ? 3KANA-KANJI_ MODE 
= 0000 NORMALM EQU Q sNORMAL MODE 
= 0002 KANJIM EQU 2 sKANJI MODE 
= 0004 SELECTM EQU 4 sKANJI SELECT MODE 
= 0008 CODEM EQu 8 sKANJI BAGOU MODE 
3 
OOFA 77 TVMODE DB i sTV MODE 
= 0001 TV8025 EQU 1 3TV MODE 80x25 
= 0002 TV8O11L EQU 2 3 8011 
= 0003 TV4011 EQU 3 3 40mi) 
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2? 
0107 «3? 
2 


saree 
pre rry 


rv? 





O1SE 2222 
0140 

01460 2722 
0142 2222 
0166 2229 
0166 «2272 
0168 «2229 
O146a 46 C 


GI8E 2227 
0190 2? 


wonna 
o 
° 
°o 
wu 


e 
- 
2 
~ 
~~ 
ry 


Wi 

TVLINE DB 

TVL80—- EQU 
TVL60—-EQU 
KKOILP DB 

OILP25 EU 
OILP11 EQU 
KHBLK DB 


KHBLKMX DB 
APKBDST DW 


3 

DOILP DB 
DOILP25 EQu 
DOILP11 U 
DOILP11K EQU 
DOILP11S EQu 
CLINDLIP EQU 
DOILN DB 
DOILN2S EQU 
DOILN11 EQU 
DOILN11K EQu 
DOILN11S EQu 
CLINDIIN EQU 


mi 
2: 


BANGOUP DB 
BANP25  EQU 


BANP11 EQU 
BASTERP DB 
BAST25 QU 
BAST11 EQU 
DCRSRP DW 
DSTRTP DW 
DENDP DW 
; 


ose 


OOM MUS Oe wD MND PO 
Sconnre 


+ 
<o 


68 


? 


no 


Ve NBD Me 
~~ 


KKGVNYM DB 


KKDICLN DW 
KKDICFF DW 
KKLENYM DW 


KKECNRML EQU 
KKECNOTF EQU 
KKECYMLN EQU 
KKECYMHR EQU 
KKECDICT EQu 


KKYOMIL DB 
KKYOMI DB 


KKOHOSUU 


KKDICADR 
KKDICOFF 
KKDICSEG 


KKOHOZAN 
KKOHOCNT 
KKOHODSP 


KKHANQUE 


KKHQLEN 


3 
KKCHRMD DB 

MDZENNUM EQU 
MDZEHHIR EQU 
MDZENKAT EQU 
MDHAHNUI EQU 
MDHAKKAT EQU 


KKYMSTS DB 
KKYMSTE EQU 
KKYMSTM EQU 
KKYMSTD EQU 
KKYMSTN EQU 
KKYMSTER EQU 


KHENFST DB 
ATTRMSK DB 


ATMSK25 EQU 
ATMSK11 EQU 


OLDMODE DB 
sWsccee ns x 
DEND —- EU 


7 DUPC(?) 


HORM weve 


o 


2 
37 DUPC?) 


DW bs 
LABEL DWORD 
DW 7 


sNUMBERS OF CHARACTER 
eson2s IN 1 LINE 


s8OML17460M11 


;0IL POSITION 
380"25 POSITION 
380M11740"11 POSITION 


sKOUHO BLOCK NO. 
sMAXIMUM BLOCK NO. 


sSAVE KBD STATUS FOR APPLICATION 


sDATA POSITION OF OIL 

380"25 POSITION 

38011 POSITION 

34011 POSITION CKANJrY MODE) 
34011 POSITION (SELECT MODE) 
34011 INDICATOR POSITION 
sNUMBER OF OIL DATA 

380*25 NUMBER 

380%11 NUMBER 

34011 NUMBER CKANJI MODE) 
#40M11 NUMBER (SELECT moDE) 
34011 NUMBER OF INDICATOR 


3BANGOU DATA POSITION 
380%25 POSITION 
380*1174¢0M11 POSITION 


sASTERISK POSITION IN KKOUTBUF 
380"25 POSITION 
380*11740K11 POSITION 


sCURSOR POSITION (KKDISP) 
sSTART POSITION CKKDISP) 
>END POSITON (KKDISP) 


3 YOMI WORK 


DICTIONARY INDEX LENGTH 
DICTIONARY TOP OFFSET 
YOMI LENGTH ON INDEX 


NORMAL 

YOMI NOT FOUND 

YOMI LENGTH EXCEPTION 
HIRAGANA YOMI EXCEPTION 
DICTIONARY FORMAT ERROR 


we we we 


we we we we we 


LENGTH OF YOMI 
YOMI BUFFER 


we 


TOTAL NUMBER OF KOUHO 


3 DICTIONARY OFFSET 


DW ? DICTIONARY SEGMENT ADDRESS 

Dw ? 3 ZAN 

OW 2 ; DISPLAY KOUHO COUNTER 

DW ? 3 DISPLAY KOUHO PRINTER 

SAP eRAR ERT SA ad RE I ESE ee eae sacs 

DB 17™4 DUPC?) 3 QUEING BUFFER 

Dw 2 

"a1 + ZENKAKU NUMERIC CHARACTER 
02 3 ZENKAKU HIRAGANA CHARACTER 
03 + ZENKAKU KATAKANA CHARACTE 
04 3 HANKAKU NUMERIC CHARACTER, 
05 ; HANKAKU KATAKANA CHARAC 

2 

000000018 + PROCESS END FLAG 

000000108 ; MOVE FORWORD FLAG ti 
000001008 ; DAKUTEN, HANDAKUTEN FLAG) | 
000010008 ; NUMERIC KEY CONVERSION 
100000008 + ERROR FLAG 

? 

7 

: ;ATTRIBUTE MASK 

OFCH 380425 

7K 3BOK11740N11 

sOLD KANA-KAN MODE 

$-DSTART 
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vwnonnne 


wee 


0 00 08 OP Ot ee Oe Ot oe oe tb te te Oe on ee eee eee ea 


ennnn 


- 
eoocecoe 


OFE. 
001 


004 
OFB 


o 
°o 
Nn 


0000 
0000 
OOFF 
0000 
0040 
0080 
0020 


FFOO 
FF4O 
FF&O 
FF20 
FFO. 
FFO2 


6B20 
6840 
6B81 
6B38 
6C20 
6C40 
6c8l 
6D20 
6040 
6D81 
5200 
5300 
OE08 
O1llB 
7700 
1coD 
7EOD 
9300 
“B00 
4D00 
1A81 
1881 
1ADE 
1BDF 
LAGA 
1B4B 


@olrF 


6000 
eoo. 


0082 
008s 
0081 


e700 
7FFF 


0020 
@O2A 
OOAO 
OOSE 
0007 


0028 
GO0A 


0009 
QOOF 
0001 
OOSE 
0001 
0078 


w 
o 
~~ 


KKFLAG ea ? 
KON OFEH a a 
sKANA-KAN ON FLAG 
ereres: Eau 01H $KANA-KAN OFF FLAG 
CUSRST_ON equ oct TEANACKAN, CURGGR 
CUSRST—OFF EQU OFBH PRATER CURSOR STATUS oF ee 6 
; 
$ 
FRO O 0200800000000 0000 ROD RORRIN0O DBNBS HH OORN NRO NOOEE 
. ii 
a CONSTANT VALUE x 


; " 
7 ODO 00000000000000000000 000 VE DIOBORERROORONNNOD ROR RORNNOOOIIEE 


; 
3 


AtalebeaeiiteebeLLLLLLULLULLITI TTT LLETTETLELL ET ETT TEEPE CTT TTT ETT rrr 


3m KANA-KAN PARAMATER « 
ROU 80 800000000000 000000 000 ORVODUVRRORVRVINN DAVAO RAO NONNDOE 

. 

FUNCAL EQU 00 sCHARACTER CODE OF FUNCTION KEY 

ZENMAK = EQU 00 3SCAN CODE OF ZENMEN 8-BIT CODE 

KANJAH EQU OFFH 3SCAN CODE OF KANJI MODE 

KANEXT EQU 00 sCHARACTER CODE OF KANJI EXIT 

KANENT EQU 40H sCHARACTER CODE OF KANJI ENTER 

KANCHG EQU 80H sCHARACTER CODE OF KANJI CHANGE 

KANINT EQU 20H sCHARACTER CODE OF KANJI IMITIAL 

3 

KEXITX EQU OFFOOH 3AX OF KANJI EXIT 

KENTRX EQU OFF4OH 3AX OF KANJI ENTER 

KCHNGX EQU OFF80H 3AX OF KANJI CHANGE 

KINITX EQU OFF20H 3AX OF KANJI INITIAL 

KONX EQU OFFOLH 3AX OF KANJI ON 

KOFFX EQU OFFO2H 3AX OF KANJI OFF 
320000000008008800000000008000 00000000008 V VIII VIII OVD VOIIE 

3M KEY DATA | 
AalaieleisieieleieleleelebtlbbLLLLLLLLELEELILELIELi til ii titi tT itt TT Trt T er rer ret 

3 

KYKANJX EQU 6B20H 3 SCAN/CHARACTER CODE OF KANJI 

KYKANJ2 EQU 6B40H *SCAN/CHARACTER CODE OF KANJI (ZEN-LOW) 
KYKANJ1 EQU 6B81H *>SCAN/CHARACTER CODE OF KANJI (ZEN-HIGH) 
KYCODEX EQU 6B38H 3 SCAN/CHARACTER CODE OF SANGOU 

KYMUHEX EQU 6C20H sSCAN/CHARACTER CODE OF MUHENKAN 

KYMUHE2 EQU 6C40H sSCAN/CHARACTER CODE OF MUHENKAN (ZEX-LOW) 
KYMUHE1 EQU 6C81H sSCAN/CHARACTER CODE OF MUHENKAN (ZEN-HIGH) 
KYHENKX EQU 6D20K 3SCAN/CHARACTER CODE OF HENKAN 

KYHENK2 EQU 6D40H 3SCAN/CHARACTER CODE OF HENKAN (ZEN-LOW) 
KYHENK1 EQu 6D81H #SCAN/CHARACTER CODE OF HENKAN (ZEN-HIGH) 
KYINSTX EQU 5200H 3SCAN/CHARACTER CODE OF INSERT 

KYDELTX EQU 5300H *>SCAN/CHARACTER CODE OF DELETE 

KYBACKX EQU QEO8H 3 SCAN/CHARACTER CODE OF BACKSPACE 
KYESCPX EQU O11BH 3 SCAN/CHARACTER CODE OF ESCAPE 

KYEEOQFX EQU 7700H sSCAN/CHARACTER CODE OF ERASE EOF 
KYCRRTX EQU 1CODH sSCAN/CHARACTER CODE OF CARRIER RET. 
KYCRRTY EQU 7EODH sSCAN/CHARACTER CODE OF CARRIER RET. 
KYENTRX EQU 9300K 3 SCAN/CHARACTER CODE OF ENTER 

KYCSRLX EQU 4BOOH sSCAN/CHARACTER CODE OF CURSOR LEFT 
KYCSRRX EQU 4D00H }SCAN/CHARACTER CODE OF CURSOR RIGHT 
KYDAKUX EQU 1A8iH #SCAN/CHARACTER CODE OF DAKUTEN (HIGH) 
KYHANDX EQU 1B81H #SCAN/CHARACTER CODE OF HANDAKUTEN (HIGH) 
KYDAKU1 EQU 1ADEH BSCAN/CHARACTER CODE OF DAKUTEN CHANKAKU) 
KYHAND1] EQU 1BDFH *SCAN/CHARACTER CODE OF HANDAKUTEN (HANKAKU) 
KYDAKU2 EQU 1A4AH BSCAN/CHARACTER CODE OF DAKUTEN (ZENKAKU) 
KYHAND2 EQU 1B4BH sSCAN/CHARACTER CODE OF HANDAKUTEN (ZENKAKU) 
3 

CTRL_X EQU 1FH sCHARACTER CODE OF CIRL+X 

3 

RCNOMAL EQU C) sNOMAL RETURN CODE 

RCABNO EQU 1 sABNOMAL RETURN CODE 

ZENHIRA EQU 82H s3ZENKAKU HIRAGANA HIGH BYTE 

ZENKATA EQU 83H sZENKAKU KATAKANA HIGH BYTE 

ZENMARK EQU 81H s3ZENKAKU MARK HIGH BYTE 

3 

SPEAKHZ EQU 0700H 3SPEAKER HZ 

DELAYN EQU 7FFFH 

3 

BLANK = EQU 20H sBLANK DATA CODE 

ASTER  EQU 2AH sASTERISK DATA CODE 

SPECHAR EQU OAOH sSPECIAL CARACTER CODE 

CAPS EQU SEH sCAPS DATA CODE 

BEL EQU 07H sBELL CODE 

. 

DAKUNUM EQU 40 sNUMBERS OF DAKUTEN CARACTER 

HANDNUM EQU 10 3NUMBERS OF HANDAKUTEN CARACTER 

BNUMMIN EQU 9 MINIMUM NUMBERS OF BANGOU 

BNUMMAX EQU 15 sMAXIMUM NUMBERS OF BANGOU 

TENMIN EQU 1 sMINIMUM TEN 

TENMAX EQU 4 sMAXIMUM TEN 

KUMIN EQU 1 3MINIMUM KU 

KUMAX EQuU 120 sMAXIMUM KU 


3 

; 
}929000001900000000000000000800000000000000000000000000000HHNOORDADUEERDRE 
ih) SCAN CODE a 
3200010100000 00000200200 0000 000 QOD OGRE 
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Ce eT TT TT] 
co 
o 
u 
w 


woune 
o 
o 
+ 
~ 


10 8 0 O08 OE TE HE OO OE 08 08 eee 08 08 ae 8 on on ce Oe ee ee et Oe oe oe ae te oe 
o 
o 
oe 
n 


0010 
0081 
0082 
0085 
00838 
0089 
OOSA 
OO8E 


0020 


0196 


SCANO2 EQU 02H 
SCANOA EQU OAH 
SCANOB EQU OBH 
SCANOD EQU ODH 
SCAN1O0 EQU 10H 
SCANIB EQU 1BH 
SCANIE EQU 1EH 
SCAN29 EQU 29H 
SCAN2B EQU 2BH 
SCANSS EQU 35H 
SCAN39 EQU 39H 
SCANS4A EQU 4AH 
SCANSE EQU 4EH 
SCAN6A EQU 6AH 
SCAN6B EQU 6BH 
SCAN70 EQU 70H 
SCAN72 EQU 72H 
SCAN7A EQU 7AH 
SCAN7D EQU 7DH 
NUMI19M1 EQU 2FH 
NUMOM1 §EQU 25H 
NUM1IM2 EQU 41H 
HUMOM2 EQU 40H 


THE UIRTGan Hobie toe eaniinadncsiniGuaiabninisacunisis Kadri eaantieceeeece 


a * 
7 Wiadonaat i sass CCIE TOES Case ocac acne sans 
3 
poo EQu OOH 
Dol EQu 01H 
Do2 Equ 02H 
DOS EQU O3H 
DOS EQU 04H 
bos EQU OSH 
Do6 EQU 06H 
DO? EQU 07H 
Dos EQU 08H 
Dog EQU 09H 
DOA EQu OAH 
DOB EQU OBH 
Doc EQu OCH 
DoD EQU ODH 
DOE EQU OEH 
DOF EQqu OFH 
D10 EQu 10H 
D20 EQU 20H 
D30 EQU 30H 
D¢0 EQU 40H 
D50 EQU 50H 
D60 Equ 60H 
070 EQU 70H 
D380 EQU 80H 
D90 EQu 90H 
DAO EQU OAOH 
DBO EQU OBOH 
pco EQu OCOH 
DDO EQU ODOH 
DEO EQU QEOH 
DFO Equ OFOH 
OFF EQU OFFH 
3 
BSS S<S=== wwwn~ EQUATES FOR VIDEO INTERFACE ---------~- 

o 170 
VIDEO EQu 10H 3 INTERRUPT NO. OF VIDE! 
VSETACT EQU 81H 3 SET ALTERNATE CURSOR IEE TION 
VSETACP EQu 82H 3 SET ALTERNATE CURSOR POSITION 
VRDACP EQU 83H 3 READ ALTERNATE CURSOR CTER AT ALT CSR PSH 
VRDACA EQU 88H } READ ATTRIBUTE AND CHARACTER AT ALT C&R Pau, 
VWRACA EQu 89H > WRITE ATTRIBUTE AND con PSN 
VWRCA EQU 8AH 3 WRITE CHARACTER AT ue PSN 
VWRITYA EQu 8EH 3 WRITE TTY USING ALT 
CURSOR_DISABLE EQU 20H 3 CURSOR DISABLE BIT 


5 
KKDATA ENDS PPT PP Terreel 
321001000000000000000000000 EHD 10000000000000000000000000000004 


. PUBLIC KKKFDM 
BIGIN = § 
ASSUME CS:CODE,DS:KKDATA 


om x 
3" PROGRAM NAME: KKKFDM ¥ 
3M 
3M DESCRIPTIVE NAME: KANA-KANJI MAIN ROUTINE TOR) m 
3m (KEYBORAD FUNCTION DISTRIBUTION MONI 3 
3m R INTO GROUPS 
3 FUNCTION: THIS ROUTINE CLASSIFIES SCAN CODE/CHARACTER 3 BRANCHES ¥ 
3m THAT ARE THE GRAPHIC, CURSOR OR FUNCTION. T x 
7M TO EACH PRocEss. a 
3M " 
3™ LINKAGE: INT 78H “ 
a Le 
sm INPUT: AX CAH - Scan cop - CHARACTER ) " 
is i avie aL E,a-c¢ : 
; Y 
“4 2 BYTE CODE (HIGH BYTE) 
x 


BYTE CODE (LOW BYTE) 
FUNCTION KEYS . 


8 BIT CODE WITH ZENMEN KEY 
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---- R 
DB 

cs 
6B20 
OA 
FF80 
05 
FF20 
03 
0219 R 


16 OOF9 
FFO2 

oD 

FFOL 

15 

26 0195 
56 90 


OE 0195 
FA 00 


4B 

6820 

16 0194 
6881 

3F 

FA 00 
2F 

D8 

132D R 
FB 6D81 
2F 

FB 6C8&1 
29 


0097 R 
06 0000 
F 


1 

FA 02 
OA 

FA 04 
05s 
O379 R 
08 
OSEF R 
os 
OSSE R 
0000 
os 
O212 R 


R 20 


7m KANJI Fints 

: HED (FFOO) ll 
+ KANJI ENTERED (FF40) ¥ 
am KANJI. CHANGED CFF80) 5 
i NJI INITIALIZED (FF20) " 
; KANJI ON CFFO1) bl 
ix KANJI OFF CFFO2) ie 
3 u 
sm OUTPUT: KAKA-KAN COMMON TaBLES ‘ 
$ 

3™ RETURN CODES: None ri 
ae mt 
;™ EXTERNAL REFERENCES, x 
3 " 
7m ROUTINES: KKINIT - Kana-xan INITIALIZATION x 
im KKNOML - NORMAL MODE CONTROL ol 
in KKZCTL - ZENKOUHO CONTROL : 
— KKBCTL - BANGoU CONTROL F 
i KKWOIL - WRITE OPERATION INFORMATION LINE " 
i TABLES: KANA-KAN COMMON TABLES ‘ 
7 = 
3M REGISTERS: ALL UNCHANGED x 
im ; 
sM CHANGE ACTIVITY: VERSION 00.00 ¥ 
3x : 
3m -f 
3 21000010888080900000000088000000000 8 BO008B8DRV0NRNNNNO ORDO ONDINE 
3 


ASSUME DS:KKDATA 


KKFDM 


Be JR ve oe we we we oe we 


PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
MoV 


KFDOO0O0: 
KFDO10: 


KFDO12: 


KFDO14: 


KFDO20: 


KFDOSOr 
KFDO40: 


KFDRTN: 


Proc NEAR 


BX,SEG KKDATA 
DS,8X 


Es,Bx 
AX, KYKANJX 
KFDOOO 
AX, KCHNGX 
KFDO0O0O 
AX, KINITX 
KFDO10 


KKINIT 


DL, KKMODE 
AX, KOFFX 
KFDO12 

AX, KONX 
KFDO14 
KKFLAG, KON 
KFDRTN 


KKFLAG, KOFF 
DL, NORMALM 
KFORTN 

AX, KYKANJX 


OLDMODE.DL 

AX, KYKANJL 

KFDRIN 

eo ea 
3 


KCALCCW 
BX, KYHENK} 
KFDRTN 

BX, KYMUHE] 
KFORTN 
CSCAN 
DSTAT, ZENLF 
KFDRTN 

DL. KANJIM 


KKBCTL 
SHORT KFDO40 


KKZCTL 
SHORT KFDO40 


KKNOML 
AX, RCNOMAL 


KFORTN 
SPEAKER 
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AON BOORORO0O000E KKK EDM 3000000000200 22000 NE 
ENTRY OF KKKFDM 


“ 
slaialaiahehaiebeieleieleelbbbaLLLLLLLLULLLELCCLELLLT Li LTT Tiere TTT Terr Terre Trt 


sSAVE REGISTERS 


;LOAD KANA-KAN DATA SEGMENT 
sGET KANA-KAN DATA SEGMENT 


s-~- MODIFYED FOR KANA-KAN PERFORMANCE uP 


CHECK SCAN CODE THAT REQUIRE INITIALIZE | 


sKANA-KAN INITIAL PROCESS 


sLOAD KANA-KAN MODE 
sREQUIREMENT IS KANJI OFF? 
3 YES. GOTO 


sREQUIREMENT IS KANJI ON ? 
3 NO. GOT 
SET KANJI ON FLAG 


3SET KANJI OFF FLAG 


sMORMAL MODE 2? 
3; YES. 


sLOAD KANJI KEY CODE (FINISH KANJI) 


3SAVE KANA-KAN MODE 


sHIGH BYTE OF ZENKAKU KANJI KEY 
+ YES. GOTO 

sNORMAL MODE 2? 

’ YES. GOTO 


CALCULATE KKWCCA 
sHIGH BYTE OF ZENKAKU HENKAKN KEY ? 
’ YES. GOTO 
sHIGH BYTE OF ZENKAKU MUHENKAN KEY 2 
’ YES. GOTO 
sCHANGE SCAN CODE 
sHIGH BYTE OF ZENKAKU 2? 

+ YES. GOTO 
KANJI MODE 2 
3 YES. GOTO 
KANJI SELECT MODE 2 
3 YES. GOTO 
s3BANGOU MODE PROCESS 


sKANJI MODE PROCESS 


sNORMAL MODE PROCESS 


sRETURN CODE IS NORMAL ? 
3 YES. GOTO 
3SOUND SPEAKER 


Appendix A. 


70 
70 


iF 


OOEL R 


KKKFDM 


we we we we we oe Oe we we we 


LEE ELL Lillie LLoLLLLi rt TTT at tT tit 


CSCAN 


Cscooo: 
Cscool: 


cscoo2: 


Cscoo3s: 


CSC004: 


cscoos: 


Cscoo6: 


CSCOO07: 


C5c009: 
CMP 
JBE 
mov 
JMP 


mov 
JMP 

csco2o: 
MOV 
JMP 

Cscoso: 
MOV 
JMP 

CsC040: 
MoV 
mov 
JMP 

CSC060: 
nov 


cscolo: 


PROC NEAR 
Dx 

DL,DSTAT 
DL,ZENIF 


cscoo1 
cscoso 


HANDAKU 
AL.O 
csco02 
CSC090 


BL, FUNCAL 
cscoi0 

BH, ZENMAH 
csco20 

BH, KANJAH 
cscoso0 
BL,ZENHIRA 
CSC040 
BL,ZENKATA 
CSC040 
BL,ZENMARK 
CSc040 

BH, SCAN02 
cscoo3 

BH, SCANOD 
cscoo9 


BH, SCAN10 
CSC004 
BH, SCAN1B 
cscoo9 


BH, SCANLE 
csco05 
BH, SCAN29 
cscoo9 


BH, SCANZ2B 
CSCc006 
BH, SCAN3S5 
cscoo9 


BH, SCANS9 
cscoo9 
BH, SCANGA 
csco09 
BH, SCANGE 
csco09 
BH, SCAN6A 
csco09 


BH, SCAN70 
cscolo 
BH, SCAH7D 
cscolo 


BL,CTRL_X 
csco10 

AL, HAHKAF 
SHORT CSC060 


AL, FUNCF 
SHORT CSC060 


AL, ZENMENF 
SHORT CSC060 


AL, KANJIF 
SHORT CSC060 


AL, ZENIF 
AH, ZENATTRI 
SHORT CSCO70 


AH, HANATTR 
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sRESTOR REGISTER 


sRETURN TO CALLER 


woe CSCAN 2000000000080 DID DADVVOOI NI DOK 
CHANGE SCAN CODE 
BX : SCAN CODE/CHARACTER 


;LOAD DATA STATUS 


DATA IS LOW BYTE OF 
; NO. GOTO ZENKAKU »¥ 


sDAKUTEN OR HANDAKUTEN PROC 
a o HANDAKUTEN CHARACTER ? 


;DATA IS FUNCTION KEY ? 
3 YES. GOTO 

;DATA IS ZENMEN KEY ? 
+ YES. Goro 

sDATA IS KANJI REQUIREM 

> YES. GOTO ear 3 
;DATA IS AIRAGANA KEY ? 

3 YES. GO 

3DATA IS KATAKANA KEY ? 

toATA IS Mt 

3 HIGH BYTE OF ZENKA 

3 YES. GOTO mS 


sDATA IS GRAPHIC CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC (CHANKAKU) ? 
3 YES. GOTO 
sDATA IS GRAPHIC (HANKAKU) ? 
3 YES. GOTO 
;DATA IS GRAPHIC CHANKAKU) 2? 
3 YES. GOTO 
sDATA IS GRAPHIC (CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 NO. GOTO 





sCTRL*X KEY ? 
3 YES. GOTO 
;HANKAKU FLAG ON 


sFUNCTION FLAG ON 


sZENMEN FLAG ON 


sKANJI FLAG ON 


sZENKAKU 1 FLAG ON 
sSET ZENKAKU-1L ATTRIBUTE 


sSET HANKAKU ATTRIBUTE 


vwegw» 
erous 


62 
16 
000 


020 
000 


O1E 
002 
01 


3A 
0s 


F& 
28 


cé 
26 
000 
OoE 
000 
OOE 
000 
85 
000 


1k 


ooE6 R 
06 


0009 
OO0A 
OOEL 
82 


83 


oo00c R 
1LADE 


1A4A 
1BDF 
1B4B 


BR 
A 


AR 
8 


o4 


0003 Rk 
6 R 
1 R 
@R 
2R 
7R 
OOOB R 
5 Rk 


9008 R 


06 0000 R 82 
iB 


02 
co 


02 


CSCO70: sai 
CHARI, BL 
Mov AT 
mov sein At iSer t AANKAKU 1GHARACTER 
STAT, AL ET scan 
JMP ; CODE 
pirat poctigins anne ____ SET DATA StaTUS 
3M ZENKAKU PROCESS aia ee coisa aes x 
3 Moewron ns eecn mawmnecocouaeet CS ! ee ee eee er 
csc080: SSR TSS R Reet seo aeuaebaus eeesees sec 
CALL HANDAKU sini —e 
AL,O UTEN OR HANDAKUTEN P 
JNE CSC090 sDAKUTEN OR HANDAKUTER ae 
MOV CHAR2, BL * YES. GoTo 
ov AL. ZEATIR2 3 SET ZENKARU CHARACTER 
2.4L 
HOV SCAN2, ‘BH an ag 2 ATTRIBUTE 
AT,2E : ODE 
; N2F *ZENKAKU FLAG ON 
g MARR aaa eo mwa neses ei ccc cl 
pM mere TS CAE emma Pew eSanceaaTn 
j Wee een nee et ae . x 
¢sC090: Meg e oe ital Sash sSsse ==M 
mov AH. Doz 
6H 
sREAD KBD ST 
MOV KBD : ATUS 
es gale #SET KANA-KAN KBD STATUS 
RET 
escan Tele sRETURN TO CALLER 
renee HANDAKU 420}000000080800000000000000000000 DDO NODNNSNNOONANOD DIET 
pM DAKUTEN/HANDAKUTEN PROCESS " 
3m 


PLL LEE tere i tt ttt | 


x 
HANDAKU PROC §0000000000000000000000000000000000NNDE 


MOV DI, KKWCCA +LOAD CURSOR POINTER 

; IN K 
SUB DI,D06 + CURSOR EOMuTER Is aT TOP eo 
JB HANO80 3 YES. GOT ‘ 
MOV AH, KKINBUF(DI) 


PLOAD HIGH BYTE oF ZENKAKU 


MOV AL, KKINBUF(DIJ¢41 

CMP AL, ZENATTRI sDATA IS *OENRA ue 

JNE HANO80 + NO. GOTO 

cmp AH, ZENHIRA IMIRAGANA, ? 

JE HANOOO 3 YES. GOTO 

CMP AH, ZENKATA sKATAKANA ? 

JNE HANOSO 3 WO. GOTO 
siiiadatead ov AL, KKINBUF(DI) 

a ’ UF +3 sLOAD 

rich BX KRYDAKUL LOW BYTE OF ZENKAKU 

JE HAN0G0 

CMP BX,KYDAKU2 sDAKUTEN 2 

JE HANO40 + YES. GOTO 

CMP BX,KYHAND 

JE HANOOS 

CMP BX, KYHAND2 sHANDAKUTEN ? 

JNE HANO08O + NO. GOTO 
PI aaa cl i aa ag lo on Sere renaTSss<Sst aa a tated worn ne---- 
i HANDAKUTEN PROCESS ; 
aNOo3s SI, Creer HAG SS eee oe eet: 

MOV AGYOH +LOAD HA GYOU DATA OFFSET 

mov cx, pacts NUM sLOAD Wi 

td oH “e UMBERS OF HANDAKUTEN CHARACTER 
, jmp SHORT HANOSG sGOTO CARACTER CHECK 
{Reece weceseoewesoeesecorrssssees BES ee OS eS Os wa sn Sia ame anes esis 
zu DAKUTEN PROCESS 
pMeon-- SecSaaaSSasssreassssesee Svaseeswee aaa ahaa ta tte 
ee SI, OFFSET te 

MOV » KAGYOH sLQAD KA GYOU DATA OFFSET 

MOV CX, DAKURUM sLOAD NUMBERS 

ney ba DOL OF DAKUTER CHARACTER 
WANOSO: $s: (S21) 

cmP AL,CS: CHECK DAKUT 

re REUGKE ; TES’ eats EN CHARACTER ? 

INC st 

Loop HANO50 

JMP SHORT HANO8O sUNMATCH. GOTO 
HANOGO: Auson 

ADD . sMAKE ren Vie Broo 

oy Rises ae ie HIGH BYTE OF NKARU ARACTER 

’ LOW 

ey AU, ZENATIRI ; BYTE OF ZENKAKG 

mov a 1,AL sSET ATIR = 

MOV AL, ZENATTR2 arent 

MoV ATTR2,AL sSET ATTRIBUTE-2 

MOV AL .KKINBUF(DIJ 42 sLOAD SCAN CODE 

MOV SCAN1,. a sSET SCAN CODE 

MoV SCAN2 sSET SCAN CODE 

ney DSTAT:2EN2reDAKUFY ween cece DAKUTEN/HAN 

H 

aay SHORT HANRTN ODE OF DAKUTEN/HANDAKUTER 
HANO80: 

x AL.AL VSET RETURN CODE 
HANRTN: 

RET RETURN TO CALLER 
HANDAKU ENDP 
ee tehietel evap wencea: estate ms TLL LAK LK LK KK MK OMe een 
im DAKUT EN/HANDAKUTEN CHARACTER P 
Bw we ww ew ern naee Wer ipr aes! LTS ORNS RRO SER ewe 
KAGYOH: DB OA9H, OABH, OADH, OAFH, 081H . 
SAGYOH: DB OBSH.0B5H.0B7H,089H,08BH 
TAGYOH: DB OBDH, OBFH. OC2H,0C4H,0C6H 
KAGYOK: DB 4AH,4CH,4EH, 50H, 52H 
SAGYOK: DB 54H,56H,58H,5AH,5CH 
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DAKUTEN FLAG 


ented igus WO sheer DRIER IGRI IORI GY 





“ 


; 
$ 
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o 
v 
oe 
o 

Cow 

mom 

vOoOO 

Koo 

voOe 

euuw 
vou 

Nou 


80 FA OE 


BS 0195 
32 Co 


0260 AA 
E2 FD 


80 FA 02 


81 FB FF20 
é OOFA R 
E9 O33C R 
BF 0000 R 


“woe 
ron 


0195 R FD 
A OB 
s 
80 OE 0195 R 02 


80 Ht 0195 R 02 


0195 R OS 
83 16 OOFA 


C7 06 O0E4 R 0020 
03 


60H, 63H, 65H, 67H 
TAGYOK: DB Fei ODOH, ODSH, ODGH, ODSH 
MAGYOR: B SEH, 71H, 74H. 77H, 7AH 


HAGVOK: De cg 1111100000000 2000220200000 000 oy 
puma Ss 


wx 
ix oun SPEAKER FOR INVALID OPERATION MAAHKy 
3 
MOOT TULL elaeiaaelaiahaaiaitaiaiaiialaaaaL LLL | eee : 
3 We eae 
SPEAKER te AL BEL 

Mov ree sSPEAKER_ON 

Ht sRETURN TO CALLER 


SEER f 11000000000000000002200003000000000000000 0000000 i, 
3 Pret 


" 
i PROGRAM NAME: KKINIT 


iM egcRIPTIVE NAME: KANA-KAN INITIALIZATION 


in FUNCTION: THIS ROUTINE IS INITIALIZATION FOR 


KANA-~ 
T SETS TELEVISION MODE KANJI HENKaN, 


is LINKAGE: CALL 

x INPUT: NONE 

5 OUTPUT: KANA-KAN COMMON TABLES 
tal RETURN CODES: NONE 

EXTERNAL REFERENCES: 

bal ROUTINES: NONE 

bel TABLES: KANA~KAN COMMON TABLES 
™ 


ISTERS: BX, cx, DX,DI - WOR 
x ee ALL OTHERS UNCHANGED 


™ CHANGE ACTIVITY: VERSION 00.00 
. 


RKEERKEKKKEKEKKEKKKKRKKKEKKKK 


3 
3 
> 
> 
3m 
A 
3M 
3 
* 
3m 
He 
3 
3m 
3 
7m 
> 
> 
ri] 
H 
Hy 


2 y089000000NNO0NDONONDNK KIC 7 200000000000000000000000000000000 00D 
3u 
, 


iM ENTRY OF KKINIT : 
re 
# fpoNHAAOEADONAAADADAAAAAHOOGANABOOGABOOOUOIADOOU IODA 
PUSH AX 
PUSH AX 
FReSSSesh oe Ses Seessasasnenwcs a aa a i a a a aa a ee u 
3m GET TV MODE x 
§ Meme mer nnn enn n nnn nn wn nnn nn mn mm mmm nn mn nnn nn wn nw nn nnn nnn nnn nnn mu 
HOV AH, DOF 
INT 10H ;READ DISPLAY STATUS 
INT 11H ;READ EQUIPMENT 
AND AL, D30 sIGNORE MEANINGLESS BIT 
ce AL D20 ISYSTEM MODE IS 5550 EM ? 
YES. GOT 
iP thibbe ivy te coma 
Hoy DLATV4OI1 ;LOAD 40M11 MODE 
INI000: 
nov DLaTvBOLL sLOAD 80"11 MODE 
INI002: 
AND KKFLAG, OFDH ; 
i OL, DOB 3COLOR GRAPHIC MODE ? 
iE INI 004 3 YES. GOTO 
IKE Thinae 3COLOR TEXT MODE 2? 


NO. GOTO 
iseT 80x25 COLOR FLAG 


sLOAD 80%25 MODE 


OR KKFLAG, CLRF25 


INIOO3: ae 
DL,TV8025 
JP SHORT INI006 


THTOO6: 
KKFLAG.CLRF25 = ;SET_80*25 COLOR FLAG 
rnroos: YD T4011 sLOAD 40"25 MODE 
Se SX:KINITX REQUIREMENT IS INITIAL 7 
cup = HLO + YES. GOTO 
SHE VMODE, DL sCHANGE TV MODE ? 
ump TGR 3 YES. GOTO 
INIOCa: N wise 
HOV oe penser DSTART ;LOAD KANA-KAN CONTROL TaBLe TABLE 
ory’ SCAPACITY OF KANA~KAN CONT 
IHI009: at sLOAD 00H 
Looe INT009 CLEAR KANA-KAN CONTROL sane ae 
AND “a 
HOV KKFLAG, 03H SCLEAR KKFLAG WITHOUT KANAMK 


nov —« LYMODE, DL 


SET TV MODE 
cup 4 SPACE, BLANK : 


3SET HANKAKU SPACE DATA 


DL, TV401} f ’ 
oh Wyeount OT ee ta 1S 40M11 
L-Tva011 STV'RODE TS 80x11 ? 
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e@occeo coooococcococococoeoco 
BCUWH WWW 
MUMuUUuM WUUANNErKrooooee 
MOON VSNOSCUMoOSmMowosees 


74 


7B 

06 OOFB R 50 
06 OOFC R 18 
06 OOF3 R 1811 
06 OOE1 R O1 
06 00E2 R 03 
06 0193 R FC 
06 00E3 R 00 
06 C101 R OC 
06 0102 R 44 
06 0103 R OC 
06 0104 R 1B 
79 

06 OOFB R 28 
06 0195 R 02 
3A 

06 OFC R 18 
06 OOF3 R 1811 
06 00E1 R 01 
06 COE2 R 03 
06 0193 R FC 
06 OOE3 R 00 
06 0101 R 0C 
06 0102 R 46 
06 0103 R OC 
06 0106 R 1B 
38 

06 OOFB R 50 
06 OFC R OA 
06 OOFS R OALL 
06 00E1 R 80 
06 OOE2 R 88 
06 0193 R 77 
06 OOES R 01 
06 0101 R OC 
06 0102 R 44 
06 0103 R OC 
06 0106 R 1B 
06 0195 R 01 
14 

FF40 

22 

FF80 


JIE TV8O11L 3 Yes. GOTO 
fs wae er ene nnn nn --ee----- ------ es -----8 
3m “TV MODE = 80x25 xu 
3 em rr nn ne rer eee ne Pwr mmm ororeeerceo= ee em ee mene eww enn eo 
TV8025L:. 

mov TVLINE, TVL80 sSET NUMBERS OF CARACTER IW LINE 

MOV KXOILP,OILP25  ;SET OIL POSITION 

MOV KKCUSR,KCSRP4025 s;SET KANJI CURSOR POSITION 

MOV ZENATTRI,ZATTRIS sSET ZENKAKU ATTRIBUTE 1 

MOV ZENATTR2,ZATITR25 sSET ZENKAKU ATTRIBUTE 2 

MoV ATTRMSK,ATMSK25 ;SET ATTRIBUTE MASK PATTERN 

MOV ROATCHT,ROT2S sSET ROTATE COUNTER 

MoV DOILP,DOILP11 sSET DATA POSITION OF OIL 

MOV DOILN,DOILN11 +SET NUMBERS OF OIL DATA 

MOV BANGOUP,BANP1L ;SET BANGOU DATA POSITION 

MOV BASTERP,BAST11 ;SET ASTERISK POSITION 

JMP SHORT INIRTN 





“MOV TVLINE, TVL40 3SET NUMBERS OF CARACTER IN LINE 
TEST KKFLAG, CLRF25 35550EM COLOR GRAPHIC MODE (40x25) ? 
JZ INIO10 3 NO. GOTO 

pMeone- 40"25 
MOV KKOILP,OILP25 sSET OIL POSITION 
MOV KKCUSR,KCSRP4025 sSET KANJI CURSOR POSITION 
MOV ZENATTRI,ZATIRIS sSET ZENKAKU ATTRIBUTE 1 
MOV ZENATTR2,ZATIRZ5 SET ZENKAKU ATTRIBUTE 2 
MOV ATTRMSK,ATMSK25 ;SET ATTRIBUTE MASK PATTERN 
MOV ROATCHT.ROT25 3SET ROTATE COUNTER 
MOV DOILP,DOILP11 sSET DATA POSITION OF OIL 
MOV DOILN, DOILNI1 3SET NUMBERS OF OIL DATA 
mov BANGOUP,BANPL1 ;SET BANGOU DATA POSITION 
MOV BASTERP,BAST1I1 ;SET ASTERISK POSITION 


SHORT INIRTN 








“MOV TVLINE, TVL80 SET NUMBERS OF CARACTER IN LINE 
INIO10: 

MOV KKOILP,OILP11 sSET OIL POSITION 

MOV KKCUSR,KCSRP11 ;SET KANJI CURSOR POSITION 

mov ZENATTRI,ZATTRIN sSET ZENKAKU ATTRIBUTE 1 

MoV ZENATTR2,ZATTRZN sSET ZENKAKU ATTRIBUTE 2 

MOV ATTRMSK,ATMSK11 ;SET ATTRIBUTE MASK PATTERN 

MOV ROATCNT,ROTIL SET ROTATE COUNTER 

MOV OOILP,DOILP11 sSET DATA POSITION OF OIL 

MoV DOILN, DOILN11 >SET NUMBERS OF OIL DATA 

mov BANGOUP,BANP11 ;SET BANGOU DATA POSITION 

MOV BASTERP,BASTI1 ;5SET ASTERISK POSITION 

ee ee pS Ee aecwnsoneashl 

INIRTN: 

is Ax 3POP SCAN/CHARACTER CODE 
KKINIT ENDP 


3000000000000 UU ITO 
3M 

3" PROGRAM NAME: KKNOML 

s4 DESCRIPTIVE NAME: NORMAL MODE CONTROL CSECT 


* FUNCTION: sea ROUTINE SETS AX TO QUEUING BUFFER IN NORMAL MODE 
xu WHEN KANJI KEY IS PRESSED, IT INITIALIZES KANA-KAN MODE. 


* LINKAGE: CALL 

x INPUT: KANA-KAN COMMON TABLES 
OUTPUT: QUEUING BUFFER 

i RETURN CODES: (AX) 


LJ 0 - SUCCESSFUL 
" 1 - INVALID OPERATION 


ie EXTERNAL REFERENCES: 


3m ROUTINES: KKZINT - ZENKOUKO INITIALIZATION 
; KKWOIL - CHANGE INDICATOR 


a TABLES: KANA-KAN COMMON TABLES 
; REGISTERS: AX - RETURN CODE 
L BX - WORK 


“ 
" 
" 
" 
x 
x 
" 
“ 
" 
" 
x 
x" 
" 
u 
a 
" 
" 
x 
" 
" 
‘i 
“ 
" 
x 
“ 
* 
ci] 
um ALL OTHERS UNCHANGED 


* 
ih u 
te CHANGE ACTIVITY: VERSION 00.00 Ll 
3 x 
* “ 
#48 GABNAAAAHHOHOABHOANBHH|EADAvABLOARAERAHAAAKAARERAANAHROH IANO 


#400000000000000000001 KURO FO000000000000000000000000H O08 
Li 


3m ENTRY OF KKNOML : 
a] 
7 1A000090009090000000090000909 C10 0Q1aREUNNENEEENOTGUUNATOONU LESTE OTON ABEND MALDEN 
KKNOML PROC 

TEST KKFLAG, KOFF sDURRING KANJI OFF ? 

JINZ HOROO0O > YES. GOTO 

CMP AX. KENTRX 

JE NORO10 

CMP AX, KCHNGX 
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06 0000 R 83 
05 

O39F R 

19 

26 0005 R 
0OOs R 
4B00 

OA 

4000 

os 

OSDE R 

os 

OC2E R 


0 
JE noRo1e sENTER KANJI MODE 2 
CRF ax YEARS 3 YES. GOTO 
JE AX, KYKANJ2 sENTER KANJI MODE ? 
cnr NOROLO ; YES. GOTO 
NOROOO: SOTHER KANJI REQUIR 
CMP pe eens > YES. GOTO GHENT 9 
cae Baa SeiNene 
JE HO! B 3KANJI KEY ? 
“Y AoRezo > YES. GOTO 
NOROOL: ;BUFFER QUEUING 
79H ; 
an SHORT NOROZO 
NOROLO: 
MOV BL,D80 
KKWOTL sINITIALIZE INDICATOR 
CALL OKKZINT 3KANJI MODE INITIALIZTION 
MP SHORT NORRTN 
HORNSEY co AX, AX 3SET NORMAL RETURN CODE 
OREM sRETURN TO CALLER 
KKNOML EN 


DR 5 9000200000900 0000000000000000000 0000000000000 BOOOIEK 
3 

3M PROGRAM NAME: KKBCTL x 
x 

% DESCRIPTIVE NAME: BANGOU CONTROL CSECT 
x 


" N: THIS ROUTINE BRANCHES TO EACH PROCESS THAT 
FUNCTION: CRAPHIC, CURSOR OR FUNCTION. mR 


™ LINKAGE: CALL 

x INPUT: KANA-KAN COMMON TABLES 
x OUTPUT: NONE 

x RETURN CODES: (AX) 

x 0 - SUCCESSFUL 


x 1 - INVALID OPERATION 

7m 

7« EXTERNAL REFERENCES: 

7m 

ae ROUTINES: KKBGRP - BANGOU GRAPHIC KEYS 
a! KKCSR  - BANGOU CURSOR KEYS 
; KKBFNC - BANGOU FUNCTION KEYS 
ras 

7m TABLES: KANA-KAN COMMON TABLES 

rE! 

a REGISTERS: AX - RETURN CODE 

A) ALL OTHERS UNCHANGED 

3m 

3M CHANGE ACTIVITY: VERSION 00.00 

ra 

7" 


KRRRKKEREKREKRKKKKKKKKRKRKRKRK KEKE KK 


3700000000000 00000 OU OOOO 


70000000100000000000000008 KKB CTL J0R20000000000000000000000000 O00 O00000O0 000 


7m . 
7m ENTRY OF KKBCTL x 
3 
3000000000000 OOOO 
KKBCTL PROC 

TEST DSTAT, HANKAF4¢ZEN2F + DAKUF ;GRAPHIC KEY ? 

JZ BCTO10 3 NO. GOTO 

CALL = KKBGRP sGRAPHIC KEY PROCESS 

JMP SHORT BCTRTN 
BCTO1O: 

mov AH, SCAN 

MoV AL, CHARI ;LOAD SCAN CODE/CHARACTER 

CMP AX, KYCSRLX CURSOR LEFT KEY ? 

JE BCTC20 3; YES. GOTO 

cMP AX, KYCSRRX ;CURSOR RIGHT KEY ? 

JE BCT020 3 YES.” GOTO 

a le ;FUNCTION KEY PROCESS 
Bevoz0: | CTRTN 

KKCS F 

BCTRTN: 7 R ;CUSOR KEY PROCESS 
KKBCTL ENDP ;RETURN TO CALLER 


3 990910000000000000000000000000000090000000000 1000000002020 
im PROGRAM HAME: KKBGRP 
; 
3M DESCRIPTIVE HAME: BANGOU GRAPHIC KEYS 

3™ FUNCTION: THIS ROUTINE DISP DATA AND STACKS TT 
i IN INPUT BUFFER. SAYS NUMERICAL 
’ 
3™ LINKAGE: CALL 
rt 

Ae , z 

x INPUT: KANA-KAN COMMON TABLES 

KAN COMMON TABLES 


’ 

; 

3M OUTPUT: Kana 

He 

a RETURN Copes: (AX) 
; 


. : ~ SUCCESSFUL 


THVALID OPERATION 
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88 
cs 


0001 


: EXTERNAL REFERENCES: 

J ROUTINES: KKGRP - GRAPHIC KEYS PROCESS 
" 

J TABLES: KANA-KAN COMMON TABLES 

" 


" 
n 
" 
" 
Li 
" 
x 
M REGISTERS: AX - RETURN CODE a 
" ALL OTHERS UNCHANGED " 
iy 
" 
" 
b 
" 


" 
M CHANGE ACTIVITY: VERSION 00.00 


Hy §990000000001900000000000¢ KB GRP 202COO0UDRRO0DDDDDDOO ODEON OOO Eee 


3m " 
is ENTRY OF KKBGRP x 
3 


x 
7000000000000 0000000000080 IDV NNNDE 
KKBGRP PROC 





MOV AL,SCANI LOAD SCAN CODE 

CMP AL,SCANO2 

JB BGRO50 

CMP AL, SCANOA sNUMERICAL DATA (1<->9) 2 

JA BGROLG 3 NO. GOTO . 

MAKE DISPLAY DATA c 0 eRe 9) : 

ADD AL, NUMLOML 7MAKE 1<-->9 

JMP SHORT BGRO4O 
BGROLO: 

CMP AL,SCANOB aah aggi td DATA (0) ? 

JNE BGRO20 +; NO. GO 

ADD AL, NUMOM1 sMAKE 0 

JMP SHORT BGRO4O 
BGRO20: 

CMP AL,SCAN72 

JB BGRO3O 

CMP AL,SCAN7A sNUMERICAL DATA OF TEN-KEY (21<->9) ? 

JA BGROSO 3 NO. GOTO 

SUB AL. NUMLOM2 sMAKE 1<-->9 

JMP SHORT BGRO40 
BGROSO: 

CMP AL,SCAN70 Petes DATA OF TEN-KEY (@) 

JNE BGRO50 + NO. GOT 

SuB AL. NUMOM2 sMAKE 0 ‘ 
§ Wenn rn rn ne a en ne ee en nn ee ee ee enn ee. oem 
ae STACK AND DISPLAY 7 
boroso: 

MoV CHARL.AL SET NUMERICAL DATA 

mov ATTRI,HANATTR «SET HANKAKU ATTRIBUTE 

MOV DSTAT, HANKAF sSET HANKAKU STATUS 

CALL KKGRP sGRAPHIC KEY PROCESS 
JMP SHORT BGRRTN i 
§ Newwww new eases cusecescsuecs Mev eSewesceecesonceseseseee wewwencnnne! 
3 ABNORMAL RETURN ; 
BM em mete en en oe oe ee eee wert e eee eeeen= eae ww eweenn= 
BGROSO 

mov AX,D01 sSET ABNORMAL RETURN CODE 
BGRRTN: 


RET sRETURN TO CALLER 
KKBGRP ENDP 
3200000000000 80820 NHI VE 
* 
. PROGRAM NAME: KKBFNC 
, DESCRIPTIVE NAME: BANGOU FUNCTION KEY 
FUNCTION: THIS ROUTINE TREATS ALL FUNCTION KEYS. 


THESE KEYS ARE THE KANJI, ESCAPE, BACK, DELETE. INSERT. 
" ERASE EOF. THE OTHERS ARE INVALID. 


MW OLINKAGE: CALL 
a 


. INPUTt KANA-KAN COMMON TABLES 
M OUTPUT: KANA-KAN COMMON TABLE 


: KANJI QUEUING 

3 

He RETURN CODES: (AX) 

3 

7m © - SUCCESSFUL 

is 1 = INVALID OPERATION 


Mm EXTERNAL REFERENCES: 


in ROUTINES: Hera 


ZENKOUHO INITIALIZATION 
3 KKBINT 


BANGOU INITIALIZATION 


on KKBACK - BACK KEY PROCESS 

3M KKDELT - DELETE KEY PROCESS 

ih KKINST - INSERT KEY PROCESS 

iM KKEEOF - ERASE EQF KEY PROCESS 
ie KKWOIL - WRITE OIL 

3 


if TABLES: KANA-KAN COMMON TABLES 


uM REGISTERS: AX - RETURN CODE 
; ALL OTHERS UNCHANGED 


sM > CHANGE ACTIVITY: VERSION 00.00 
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8A 26 OOOS R 
AO 0003 R 
3D FFOO 

74 43 

3D ape 


E 
3D 6B20 
39 
3D 6B40 

74 34 

80 re 68 

3D tii 

3D 6D20 

74 3¢ 

3D 6040 
37 

83 3E OOEA R 90 
4F 

3D 0E08 
30 

3D 5300 

74 30 

3D 5200 
33 

3D 7700 
33 


BS 0001 
EB 44 


EB O47A R 

BS 01 

EB 1139 R 

C6 06 OOF9 R 00 
EB 33 


ES OS7A R 
EB 2B 


ES 0480 R 
€B 28 


ES O£F04 R 
EB 21 


E8 O47A R 
E& OESA R 
EB 19 


EB OG7A R 
€B 16 


E8 O47A R® 
E& ODAF R 
EB oc 


3D 6C20 
76 

3D 6C40 
74 02 
cD 79 





1890000000000 ITT RI 
3u 
320000008 LLi ttt tity 





BNC 000000000000000000000¢ 
FJ Q8O0NNONONOLODOT RE MenOONN ARO DOOLNL 
u 
in ENTRY OF KKBFNC 
HOUrTT TTT TTT Ut taaettlaeeiaiaeiaeiaaiaeiaaieiaaiaelaiaiaiabalL LLL. TT eae 
KKBFNC PROC = sSAVE REGISTER 
Pus $I 
PUSH 
PUSH = 
PUSH AH, SCANL LOAD INPUT DATA 
MOV AL,CHARL 
CMP «AX, KEXITX 
JE SFNOL 
ae Bhi 
one AX, KYKANIX sEXIT KANJT MODE 2 
; 
on RXOKYKANJ2 SEXIT KANJI MODE ? 
rd SEWOL0 YES. GOTO 
cH AM. SCANGB KANJE BANGOU KEY 2 
, 
tne As “RYESCPX SESCAPE KEY ? 
° 
ue Eeatiewe anger 
B ’ . 
ce Seyeeueuce, Ga 
B 
the BaeORs Doo sBANGOU EMPTY ? 
JE BFNOSO 3; YES. GOTO 
cup = AX, KYBACKX iBACK SPACE KEY t 
JE BFNO4O %. YE Got . 
cup 4s AX, KYDELTX SDELETE REY 
JE BFNOSO + YES. GOTO 
CHP 4s AX, KYINSTX ;INSERT KEY ? 
JE BFNO6O ; YES. GOTO 
CHP «AX, KYEEOFX ZERASE EOF KEY ? 
JE BFNO70 ; YES. GOTO 
BM mene en er nr rrr nn rr nnn nn neem wn nnn wn nnn ™ 
3M INVALID KEY PROCESS : 
Pee OV. AX, DOL 3SET ABNOMAL RETURN CODE 


JMP SHORT BFNRTN 
KANJI KEY PROCESS 









CALL —-RINST 
cAL KRWOTL ;CLEAR OIL 
HOV KKMODE,NORMALM CHANG BANGOU MODE INTO NORMAL MODE 
JMP SHORT BFNO9O 
3 Mee wnn- ~~~ ee eee 
. ESCAPE KEY PROCESS 
Brnoz8: CALL INST 
CALL = KKZINT SZENKOUHO INITIALIZATION 
Jnp_____SHORT BFNO90 “ 
sewwsede ce cces teens 








KEY PROCESS 2c eed petkbiiectees x 





BHEHKAN sBANGOU HENKAN 
SHORT BFNRTH ei guecetse x 
eww ee ee meee eeee=: FSS Om a “ 
CE KEY PROCESS: eee ee eae -« 
KKBACK 
SHORT BFNO9G “i seein oese -n 
Bowe ne nnn woe een = === encom x 
- DELETE KEY PROCESS, ccocceeeuseen 
brNoso: 
CALL so RINST 
CALL KKDELT 
” JMP SHORT BFNO90 cpwecoseseneesees x 








CALL oRINST 

CALL OKKEEOF 
pipiens JP ____SHORT BFHO9O ee reamed 
im BUFFER QUEUING = pene aaron ciclo x 
brNoso: be 8 eG SSS RSSeesers= 

MP AX, KYMUHEX sMUHENKAN KEY ? 

on BFNO90 ; YES. GOTO 

JE Bek YMURE2 sMUHENKAN KEY ? 

mT 75H + YES. GOTO 
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33 c 


c3 


t] 
OCF2 R 


0506 R 
cs 

ED 

FB 90 
15 
0506 R 


F9 01 
Fo 78 


ci 0: 
+e 


OSOE R 
C2 9E 


NORMAL RETURN u 





brNOg0: 
XOR AX, AX 3SET NOMAL RETURN CODE 
BFNRTH: 
POP BX sRESTORE REGISTER 
POP cx 
PoP 0x 
PoP Ss! 
RET sRETURN TO CALLER 
KKBFNC END 
Mn RUINS T 000000000000000000000000000000000000000000U0NR0NNVVNR UNITE 
" 
ik RESET INSERT MODE m 


7 S009 190000 13000 ,00050¢IOOURNOONANOCEBOGONNSOON BON aoOnOK ABO 
RINST PROC 


XOR AX, AX 
CALL KKINST 
RET 

RINST _ENDP 


sent BHENKAN ERS AE RIESE SAI R IN EASA RD NR BON 
3m 
hal BANGOU HENKAN x 
7m 


3 19000000000000000000000000000000000000000000000000000000000000000000008 
BHENKAN peor 













BX,KKWEOP 

CMP BL,BNUMMIN 4 

JB BHEC30 

cmP BL, BNUMMAX 39 <= id HUM. => FP? 

JA BHEO30 3 WO. GOT 

MOV SI,OFFSET KKINBUF LOAD THPUT BUFFER OFFSET + 
3 Wwene nnn n------------~-------- ++ ae eernnecewoncenon= ecesterSSea=- 
3m CHECK TEN : 
3 Newer en ne - ~~ --------------- ia bahelahtatatatateiatatatetetetetatatetetceeetetate wenanwnnnn 

CALL CHRLD 3;LOAD TEN CHARACTER 1 

MOV DLLAL 

CALL CHRLD sLOAD TEN CHARACTER 2 

MOV DH,10 

MUL DH 

aDD DL,AL sCHANGE DECIMAL TEN INTO BINARY 

CMP DL, TENMIN 

JB BHEOS0 

CMP DL, TENMAX 31 <= TEN => 94 2 
: JA BHEO30 3 NO. GoTo je 
SNesseeee soos o os ooo soon eneke cob teca soos eS eiptiecros 
zu CHECK ahd " 
pNo-n 22-2 ----------- ~~. we eenn--------------- --- eatin | 

CALL CHRLD sLOAD KU CHARACTER 1 

MOV CLLAL 

XOR CH.CH 

cmp Bx, DOO 3KU FINISHED ? 

JE BHEOOO 3; YES. GOTO 

CALL CKRLD 3LOAD" KU CHARACTER 2 

MUL DH 

ADD CX, AX 

CMP 8X,D06 3KU FINISHED 2? 

JE BREOOS + YES. GOTO 

CALL CHRLD sLOAD KU CHARACTER 3 

MOV DH,100 

MUL DH 

ADD CX, AX sCHANGE DECIMAL KU INTO BINARY 
BHEOOG: 

CMP CX, KUMIN 3 

JB BHEO30 

CMP CX, KUMAX 301 <= KU => 120 2 
is JA BHEOSO Be NO. GOTO 
‘s CHANGE | KU/TEN INTO INTERNAL CODE 

SRR S Sa Saw menu nonccanccusecoscue nee menos ws Se ee 
TEST Cl,d01 KU. EVEN t 
Jz BHEO10 





ct 
CALL CHGKU 








ADD DL. SFH 
CMP OL,7FH 
JB BHEO20 
Inc DL 
x uP SHORT BHEO20 
is EVEN KU 
BHEOLO: 
CALL CHGKU 
ADD DL,9EH 
, nn Settee tte eee ee 
i. BUFFER QUEUING el 
p Were ee nnn ele wm awweweeeneunn ween ee nnn nono eee eo 
BHEO20: 
MOV AH, KANJAH 
MoV AL, CL 3SET INTERNAL CODE 
INT 79H sBUFFER QUEUING 
MOV AL, DL sSEY INTERNAL CODE 
7 Int 79H sBUFFER QUEUING 
3 weno ee n= dee tet eee tee tt thd eee ewes ere vee==: 
ih) INITIALIZE BANGOU MODE 


J Newwwnwe- een eeee eee 





CALL RINST 
CALL KKBINT 
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EB @3 


BS 0001 
cs 


83 EB 03 


80 pe 1E 
80 Cl 88 


80 ci ce 


C6 06 COFO R 08 


BF 0000 
C7 06 OOEE R 0015 


BS 00A0 
A3S QOFS R 


C7 06 OOES R OOOF 
E& 12FC R 


ES 1538 R 
BE 0570 R 
BY QO0F 90 
BG 00 
32 DB 


2E: 8A 06 
E8 1139 R 
46 


E2 F7 
AO 0106 R 


JF soe ease meme a asa rosewsanee: weet 
pease “ST ygtek BONOUU NOE camancawcumemendaric TTT sea ean 
3 aa a ce ae ein " 
ft a Woe esee ee * 
BHEO SO? HOV AX,DO1 sSET ABNORMAL RETURN CODE 
BHERTH! sRETURN TO CALLER 


BENIN EID a 01x 0100000000000092002000)008000000000000000 000, 
3 


im LOAD KU/TEN CHARACTER AND CHANGE INTO DECIMAL 
U * 
HCP TLL 11 Ltaellaelaelelaeiaeleiaeleiaeleiaiaalalaiaiaielaleleiaiaiseeel LL LLL TT Te . 
CHRLD PROC ay, ngs MAMAN 

pov —s AL CBXICSTI 
SUB «AL, SOH 


Weg ee 
“ 


sLOAD CHARACTER 
sCHANGE INTO DECIMAL 


RET 
CHRLD eWEKU, 2oONHBAGHH|EHABHHGHHHOOHONANEBBOOOOOOOOUOOODABOHAApEsneK 
He CHANGE KU INTO INTERNAL CODECHIGH BYTE) " 
$909 10000300000000 1000200009020 0000000000000 DOIN Ie 
CHGKU PROC 

CL,1 

tar CL, LEH 301 <= KU => 62 9 

JA CHGO010 3 NO. GOTO 

abd CL,80H sSET 81H <-> 9FH 

JMP SHORT CHGRTN 
uae CL,0COH 3SET OE0H <-> OFCH 
CHGRIN: 
' ENDP 
SE tha dddON000000000000000000000000000000000000000000000000O REE IIE 
x “ 
ix PROGRAM NAME: KKBINT 


3™ DESCRIPTIVE NAME: BANGOU INITIALIZATION 

A FUNCTION: THIS ROUTINE DISPLAYS BANGOU OIL AND SETS BANGOU MODE. 
ix LINKAGE: CALL 

3 INPUT: KANA-KAN COMMON TABLES 

; OUTPUT: KANA-KAN COMMON TABLES 

ix RETURN CODES: (AX) 


3" 0 - SUCCESSFUL 
3m 1 - INVALID OPERATION 


u 
su EXTERNAL REFERENCES: 


3m ROUTINES: KKWOIL - WRITE OIL 
3K KKDISP - DISPLAY DATA 


n 

3m TABLES: KANA-KAN COMMON TABLES 
x 

3™ REGISTERS: AX - RETURN CODE 


3 ALL OTHERS UNCHANGED 
3m 

7M CHANGE ACTIVITY: VERSION 00.00 
3m 


7a 
3 9890000000000000000000000000000000000000000000000000000000000800000000008 
3100000000000000000000008 KKBINT 1090009000009 200 0020000200000 O0OOL 
3m 
A ENTRY OF KKBINT 


vs 
7m 
33101000000000000000008000000000000000000000000000800008000000000000 ROOK 
KKBINT iste 


SI sSAVE REGISTER 
PUSH DI 
PUSH DX 
PUSH cx 
PUSH 


BX 
MoV KKMODE, CODEM 


MOV DI,D0O 
Mov BASE, BBASE11 


sSET BANGOU MODE 


W OIL 
Seen eco BASE POSITION OF 80"11740m11 


BINMOO0O: 


BINOOS: nee 

0 AX, SP 

MOV KKCHRSP Ax sSET DEFAULT DATA OF INPUT BUFFER 

MoV KKEOPMAX, BEOPMAX ;SET MAXIMUM EO 
saiblaars CALL _KINBFCLR CLEAR INPUT BUFFER oe “ 
3M MEO on stan : 
| RENEE cincstniien.: Ca Oe we 

CALL CLOIL sCLEAR OIL 

tot SI.OFFSET BMARK ;LOAD BANGOU DATA OFFSET ata 

Hy Xs BNUMS ;LOAD NUMBERS OF BANGOU 

ov AH, HANATIR ;LOAD HANKAKU ATTRIBUT 

XOR BL, BL 
BINOL0: 

mov AL.CS 

rg KKWOTL 

1 
Loop no ? 
nov BINOLO ;FINISH BANGOU DATA SETI 


AL, BASTERP 
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sLOAD ASTERISK POSITION 


NOVKVOUUNOAAAANS 
TNUMAYMENKOOCO TNS 
NOCCCCCCOK SNENAU 
nNecoocMocotdoocoC Oem 

° 

o 

°o 

i=] 


BO C4é DE 3D 3D 
3E 20 
AQ AQ AO AO 2A 


o 
o 
o 
i=} 

WWD BDBUODBDBDBBRBRBRARAD 





XOR AH, AH 
Mov DI,AX 
MoV AL, ASTER 
CALL KKWOIL sSET ASTERISK DATA 
p Mew wen nnn enon - - ee eee mewn wn nnn ee ne - ee, a 
3 SET CURSOR 
j Wow re nnn ene n nn nnn nnn ----- wee e nee nn ane ween nnnn. Salatetatatatatetete tet es ~-=8 
MOV AX, OFFFFH 
MOV OX, BASE sLOAD BAGOU BASE POSITION 
MoV OCRSRP, DX 
MOV OSTRTP,AX 
Mov DENDP,AX 
CALL KKDISP DISPLAY CURSOR 
PoP BX SRESTORE REGISTER 
PoP cx 
PoP DX 
PoP DI 
POP SI 
RET sRETURN TO CALLER 
BMARK DB OBAH, OBOH, 0C4H, @DEH, SDH, SDH, 30H, SEH,20H 
oB QACH, OAOH, OAQH, OAQH, OAOH, 2AH 
BNUMS EQU 15 sNUMBER OF BMARK 


KKBINT ENDP 
7000000000000 0000000000000 000200 UVR RUDINDE 


3m x 
3™ PROGRAM NAME: KKZCTL . 
3a 

3™ DESCRIPTIVE NAME: KEY CONTROL FOR KANA-KAM ZENKOUHO MODE x 
H ij 
3" FUNCTION: . 
3” 

ix THIS MODULE AMALYZE INPUT KEY FOR KANA-KAMJI CONVERSION, 
ix AND CALLS EACH FUNCTION ROUTINES. x 
3m 

3M LINKAGE: CALLED BY KKKFOM a 
rz i x 
im INPUT: ¥ 
3x KANA-KAN COMMON TABLES x 
He : 
3% OUTPUT: x 
in LINK EACH FUNCTION MODULE x 
: " 
im BP : FUNCTION KEY NUMBER x 
ri i] 
im x 
3M RETURN CODES: (AX) x 
rH ‘6 

zm © - SUCCESSFUL P 
im 1 = INVALID OPERATION : 
3h 

3M EXTERNAL REFERENCES: 
im * 
3 ROUTINES: " 
3m i 
im KKZGRP ... GRAPHIC KEY DISPLAY " 
im KKCSR ... CURSOR KEY PROCESS x 
im KKZFNC ... FUNCTION KEY CONTROL " 
$e g 
3§ TABLES: * 
3x " 
3m KANA-KAN COMMON TABLES P 
ra) a 
iM REGISTERS: AX - RETURN CODE ¥ 
3m BX,CX,DX,DI,S1,BP - WORK 1 
3M ALL OTHERS UNCHANGED i 
‘e t 
iM CHANGE ACTIVITY: VERSION 00.00 x 
3m x 
7m " 
0000000000000 ORION DOVOONNERODNNDE 


BRTREOHHEDE SEE EETEEESESEEESE EEE EEE EDEEEOSEDEEEEEEEDEEEDEDEDEEOEDOEEDED 
° 


a+ INPUT FUNCTION KEY CODE & PROC.ENTRY ADDRESS TABLE 
TOEHPEEEEE THEE EE EE EE EO EES EEEEEOEEEO REED EEEEEEEEEEEESEEEEOEDEEEEEEOEDED 
KKCCDTB: 

OW KYCSRLX.KZCCSR CURSOR LEFTE 

DW KYCSRRX,KZCCSR 5 CURSOR RIGHT 

DW KYKANJX,KZCFNC 3 KANJI 

Ow KYKANJ2,KZCFNC 3 KANJI 

OW KEXITX,KZCFNC » KANJI EXIT ( = KANJI ) 

DW KYCODEX,KZCFNC 3 KANJI BANGOU 

Dw KCHNGX, KZCFNC + KANJI MODE CHANGE ( = KANJI BANGOU ) 

OW KYHENKX,KZCFNC 5 HENKAN 

DW KYHENK2,KZCFNC 3 HENKAN (ZENKAKU) 

OW KYMUHEX,KZ2CFNC 3 MUHENKAN 

Dw KYMUHE2,KZ2CFNC 3 MUHENKAN (ZENKAKU) 

Ow KYESCPX,KZCFNC 3 ESCAPE 

OW KYINSTX,KZCFNC 3 INSERT 

OW KYDELTX,KZ2CFNC 3 DELETE 

Ow KYBACKX,KZ2CFNC 5 BACKSPACE 

DW KYEEOFX,KZCFNC 5 ERASE EOF 

Ow KYCRRIX,KZ2CFNC 3 CARRIER RETURN 

OW KYCRRTY,KZCFNC 3 CARRIER RETURN 

OW KYENTRX,K2CFNC 5 ENTER 
KKCCOTBE DW OFFFFH,KZCGRP 
KKCCOTBL EQU KKCCDTBE-KKCCOTB 3 LENGTH OF KKCCDTS 
FLGNL EQU 00H ¢ NULL 
FLGVK EQu 01H a NOT QUEING KEY CODE: IF THERE AER NO YOMI CHAR. 
FLGRI EQU 2H + RESET INSERT MODE: WHEN THIS FUNC. KEY INPUT 
FLGNQ EQuU O4n } NOT FUNCTION, NOT QUEUING 
KPRCSTS: 

DB FLGNL 3 CURSOR LEFTE 

OB FLGNL a CURSOR RIGHT 
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063D 
0640 


0641 
064) 
0646 
06468 
0648 
064C 
064c 
0652 
0653 
0653 
0655 
0657 
0658 
0658 
065B 
065¢ 


28 ED 
AO COOS R 
8A 26 0005 R 


2E: SB 86 O58C R 


74 08 
83 C5 04 
83 FD 4¢ 
75 Fl 


2E: FF 96 OS8E R 
cs 


Dl ED 

Dl ED 

2E: 8A 9E OSDC R 

83 SE GOEA R 00 
S OF 

Fé C3 O1 

75 OA 


F6 C3 04 
75 02 
cp 79 


33 Co 


F6 C3 02 
75 05 


co 
E& OCF2 R 


83 ED 02 
Ee O72B R 


E8 OC2E R 
cs 


F6 06 0000 R 83 
74 04 

E8 0650 R 

cs 


83 3E OOEA R 00 
75 05 


cD 79 
33 CO 
cs 


BB 0001 
cs 


LeFLGVK + KANJI 
Be FLeMterteve |S EANST exr ¢ = 
DB FLGHL+FLGVK  eent TT € = KANJI » 
pB FUGHL SEL CVE 1 ANI RODE CHANGE 
EH Feat ELGNG 3 HENKAN (= KANJI BANGOU > 
DB FLGNL+ELGHG : th i acaelll 
+FL 
My Ee eNLsELGNG ; MUHENKAN C(ZENKAKU) 
DB FLGNL + ESCAPE 
DB FLGNL+FLGRI 3 INSERT 
DB FLGHL + DELETE 
DB FLGNL#FLGRI 3 BACKSPACE 
DB FLGRL 3 ERASE EOF 
DB FLGNL+FLGRI ; CARRIER RETURN 
DB FLGNL#FLGRI + CARRIER RETURN 
DB FLGNL¢FLGVK+FLGRI 3 ENTER 
KKZCTL  P NEAR 
Sue) OBPcbP + CLEAR FUNC. KEY TABLE POINTER 
MOV AL KKINKEY + GET INPUT KEY (CHR. cope} 
Mov AH,KKINKEY#2 3 GET INPUT KEY (SCAN CODE, 
2c 
One np AX,WORD PTR KKCCDYB(BP} 
+ COMPARE INPUT KEY WITH FUNC.KEY 
coz0 : 
AbD 4 } RETURN THE POINTER 
CMP BP. KKCCDTBL + SCAN TERMINATE CHECK 
JRE KZC010 3 NO... REREAT SCAN 
KZC020: 


PTR KKCCDTB(BP)(2) 
ae ae +; BRANCH TO EACH FUNCTION 


R 
#9019000000000000000000000000000000000000000000000000000000000000ONDOnOEEEUK 
el FUNCTON KEY CONTROL * 
320000000000000000000000000000088000000 00002 RR II IO IIE 
K2CFNC: 


SHR BP. 1 3 BP <-- BP 7 4 

SHR BP, 1 

MOV BL, BYTE PTR KPRCSTS(BP) 

CMP KKWEOP, 0 

JNE KZCFNC_CHK 

TEST BL, FLGVK 

JNZ KZCFNC_CHK 
KZCFNC_QUEING: 

TEST BL, FLGH@ 

JNZ QUEURTN 

INT 79K 3 QUEING INPUT FUNCTION KEY CODE 
QUEURTN: 

XOR AX, AX 

RET 
KZCFNC_CHK: 

TEST BL, FLGRI 

JNZ KZCFNC_GO 

XOR AX, AX 

KKINST + RESET INSERT MODE 


CALL 
KZCFNC_GO: 
SUB 


BP.2 3 BP <-- BP - 2 
oer” KKZFNC 
7300000000000 000000000000 UO DUE UOT 
el CURSOR KEY MOTION " 
3000000001000 0 0000 00000000000 RVI ORD TOC ORL 


KZCCSR: 
CALL KKCSR 3 LINK CURSOR PROC. ROUTINE 
RET 


3000000000000 000000 TOO OOOE 
thal GRAPHIC KEY " 
3000000000000 0000000000 DD OOOO 
KZCGRP: 

DSTAT, HANKAF*¢ZEN2F+ DAKUF 


IZ KZCGRP_CHK 
CALL KKZGRP 3 GRAPHIC KEY INPUT OPERATION 


RET 

KZCGRP_CHK : 
CMP KKWEOP, 0 

KZCGRP_RET 


JNE 

KZCGRP_QUEING: 
INT 79H s QUEING CURSOR KEY CODE 
XOR AX, AX 


RET 
KZCGRP_RET: 
mov 
RET 


KKZCTL ENDP 
330001001000001001000000000000000000000800000000 000000000000 00008 8080000 80s 


AX,2 


n 
rns 
;™ PROGRAM HAME: KKZGRP x 
Hu! 
3M DESCRIPTIVE NAME: KEY CONTROL FOR KANA-KAN ZENKOUHO MODE 
Hs 
3M FUNCTION: x 
iM RSION r 
iM THIS MODULE ANALYZE INPUT KEY FOR KANA-KANJI CONVE , 
iM AND CALLS EACH FUNCTION ROUTINES. i 
: “ 
re 
iM LINKAGEs CALLED BY KKZCTL : 
rnd 
iM INPUT: KANA-KAN COMMON TABLES i 
3m 
;M OUTPUT: KANA-KAN COMMON TABLES 1 
3K 
3M RETURN CODES: (ax) " 
Hd 
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eoooceco 
OCCT 

-o ro Nooo 
oo Ue 


aATTMMMMmM 
WNP oOoroeru 


OOFO R 
0 

04 
1209 R® 


1E coos R 
01 

16CF R 
co 


02 
16CF R 
co 


OOF? 


0148 
OLSE 


0140 


OX 


al 0 - SUCCESSF 


UL u 
ix 1 - INVALID OPERATION x 
3M " 
7M EXTERNAL REFERENCES: 1 
H n 
; ROUTINES: a 
3m " 
iM KKGRP ... GRAPHIC KEY DISPLAY " 
3K KKCSR ... CURSOR KEY PROCESS x 
3K KKZFNC ... FUXCTION KEY CONTROL x 
ou " 
; TABLES: KANA-KAN COMMON TABLES P 
3m ry 
5M REGISTERS: AX - RETURN CODE " 
7m BX, CX, SI - WORK x 
im ALU OTHERS UNCHANGED x 
3M " 
i CHANGE ACTIVITY: VERSION 00.00 x 
3m " 
3" " 
DDD 000 OUD D UID GGG OE OIG O OOOO 000 00 0000 U 0 35 00006 D6 ae 


3 

a a 
3+ INTERNAL CONSTANT DATA 

Reverereeersvrrresyst voter yyy ve rrrrrerverererrrrTereverererr Terr Tre res 
MULOS DB 3 

uM Tete th hie eee 
3m GRAPHIC KEY INPUT OPERATION 

# 1008000000000000000000000009010015 903035 00)0AOUOOHNBOEHEnOLAUaELsOCO ACT 
KKZGRP PROC NEAR 


MOV AL, KKMODE 3 GET CURRENT MODE 
CMP AL, KANJIM 
JINZ KZ2G300 
CALL KKGRP 3 KAHJI MODE 
K2G300: 3 SELECT MODE 
Nov BL, KKINKEY#2 3 GET KEY SCAN CODE 
AL 
CALL CDCHCK2 3 NUMERIC KEY CODE ?(TEN KEY) 
TEST ALS AL 3 TEST RESULT 
JZ K2G320 
MoV AL,2 
CALL CDCHCK1 3 NUMERIC KEY CODE ?(SHIFT EISUU) 
TEST ALLAL 3 TEST RETRUN 
JZ KZG320 
KZG6310: 
mov AX, 1 + ERROR RETURN 
KZG320: 
AND BL, OFH 3 
JZ K2G310 + RETURN ZERO 
SUB BL, GET VALUE ... 1 --- 9 
cmp BL, BYTE PTR KKOHOCNT =; 
JBE K2G325 
JMP SHORT KZG310 3 RETURN IF ABOVE 
KZG325: 
MoV KKMODE,KANJIM = 5 CHANGE TO JANJI MODE 
MoV ALS BL 
CBW 3 BYTE TO WORD CONVERSION 
MOV BX, AX 
ADD 8X, KKOHODSP 3 CALCULATE CODE SELECT POINTER 
cMP BX. KKOHOSUU 3 IS POINTER LAST ? 
JAE KZG330 3 YES... 
DEC Bx 
SHL 8X,1 3 BXH2 
PUSH DS 
PUSH SI 
LoS SI,DWORD PTR KKDICADR 3 GET OFFSET & SEGMENT 
MOV AH, OFFH 
MOV AL, DSc CST IEBXI 3 GET FIRST BYTE KANJI CODE 
OR AL,100000008 
AND AL, LOLILILIB 
INT 79H 3 BUFFER QUEING 
mov AL, DS: ESEI(BXIC12 =; GET SECOND BYTE KANJI CODE 
INT 79H + BUFFER QUEING 
POP St 
RPS 
SHORT KZ2G350 
K2G330: 
MoV CX, KKHQLEN 3 GET QUEING COUNT 
Sua BX, BX 
K2G6340: 
MOV AL .KKHANQUECBX) 3 GET CHARACTER CODE TO AL REG 
MOV AH, KKHANQUEL1L CBX) 3 GET SCAN CODE TO AH REG 
INT 79H 3 BUFFER QUEIN 
THC ax + RENEW QUEING. SUB BUFFER POINTER 
INC ax 
DEC cx 
JNZ K26340 
K2G350: 
TEST KKYMSTS,KKYMSTM 1 TEST MOVE FORWARD FLAG 
JNZ K2G360 
CALL KKZINT + INITIALIZE OPERATOR INFORM. LINE 
JMP SHORT KZG370 
K263601 
MOV AL KKINBUF#L } GET FIRST CHARACTER ATTRIBUTE 
CALL KCALELM 3 CALCULATE ELEMENT LENGTH 
PUSH AX 
MoV AX, 0 
CALL DISHFT § MOVE FORWARD KEY INPUT BUFFER 
SUB KKWEOP, AX 
SuB KKFORPIT,AX 
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0735 
0735 
OTSA 
973¢ 
O73F 
741 
0742 


07462 
0742 
0747 
074A 
076C 
0746D 


77 €8& 


C6 06 6192 R 01 
28 co 
¢c3 


OBCF 
OBFS 


BS 0001 
1 €5 
2E: FF AG 0709 R 


e 
o 
u 
“ 
RRR AWDHODV ARRAN AAR 


o 


C6 06 OOFS R O89 
BS 01 

E383 1139 R 

28 CO 


C6 06 OOF9 R 08 
EB OS1E R 

28 co 

cs 


JA 
CALL 
CALL 
mov 
KZG370: sus 
RET 
KXZGRP _ENDP 
3200000008 


ix PROGRAM NAME: KKZFNC 
x DESCRIPTIVE NAME: KANA-KAN MAIN FUNCTION 


KZG360 
Kautsese 
KCSR 
KHENFST, 01H 


AX, AX 


3 INITIALIZE 0.7.1, 
3 DISPLAY CURSOR To Eop POosrry 
ON 


3m 
3m 
36 FUNCTION: E HAS THE FOLLOWING FUNCTION; 
AP THIS MODULE NJ CONVERSION 
eS BEEN cr pGretart ineeer Ott ere 
; : 1 INPUT . BACKS 
ix * REGISTERD YOMI & BANGOU i PACE, ERASE- 
3m 
iM LINKAGE! 
an 
zy THPUTS apy FUNCTION KEY HUMBER 
7m KANA-KAN COMMON TABLES 
3M 
zy OUTPUTS AHA-KAN COMMON TABLES 
zu 
i -RETURN CODES: (AX) 
zu 
P 0 - SUCCESSFUL 
in 1 - INVALID OPERATION 
3m 
3™ EXTERNAL REFERENCES: 
gn 
au ROUTINES: 
3m KKKNDR KKBINT KKZINT coun 
3m KKDELT KKINST KKEEOF peaee 
zm KKWOIL KKDISP KOUTINIT 
am CDCHCKL CDCHCK2 KKOHOEDT 
7m KCALELM KCSRDSP 
3m 
; 


3 TABLES: KANA-KAN COMMON TABLES 
3M REGISTERS: AX - RETURN CODE 


3m BX,CX,DX,DI,SI,BP - WORK 
3m ALL OTHERS UNCHANGED 
a] 
3M CHANGE ACTIVITY: VERSION 00.00 
3m 
° 
7% 
’ 
7000000000000 OE 
FHCBR: DW FNCKANJ 3 KANJI 
OW FNCKANJ 3 KANJI 
Du FNCKANJ 3 KANJI EXIT 
Du FNCCODE 3 KANJI BANGO 
DW FNCKANJ 3 KANJI MODE CHENGE 
DW FNCHENK 3 HENKAN 
DW FNCHENK 3 HENKAN 
DW FNCMUHE 3 MUHENKAN 
Du FNCMUHE 3 MUHENKAN 
Du FNCESCP 3 ESCAPE 
DW FNCINST 3 INSERT 
DW FNCDELT 3 DELETE 
DW FNCBACK 3 BACKSPACE 
DW FNCEEOF 3 ERASE-EOF 
DW FNCCRRT 3 CARRIER RETURN 
DM FNCCRRT 3 CARRIER RETURN 
DW FNCENTR 3 ENTER 
KKZFNC PROC REAR 
nov AX, 1 
BP, 1 5 BP M2 
JMP WORD PTR FNCBRIBP) } BRANCH TO EACH FUNCTION 


KKZFNC ENDP 


FRCKANJ PROC 
mov 


mov 
CALL 
SUB 
RET 
FHCKANJ ENDP 


FNCCODE PROC 
MOV 
CALL 
Sus 


RET 
FNCCODE ENDP 


KKMODE, NORM 
BLy1 ° ALM 3 


KKWOIL 
AX, AX 


KKMODE,Cc 
KKBINT. ODEM 
AX, AX 
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; 


EOF » 


7009000000000 0 000000R00T 


" 
im KANJI 


u 
3 AN1000000000090909 9 000000000000000008 


CHANGE TO NORMAL MODE 
CLEAR OPERATOR INFORMATION LIME 


LLL ll llalalbeleiaabelstetaetealatl Lill t tt 1% 
00000 OK 
We De ee 


J 9990000000000 022022200000 OOE 
im KANJI ~ BANGOU . 
2911009090 
CHANGE TO CODE MODE 
LINK KKBINT MODULE 
APPT TT TLL Laltalalanneneeneianalanalal 
a HENKAN 
PP CLLLLLGC ec! 


" 
12200001000 800000004 


074D 
074D A? 
O7SF Bl 
0751 A8& 
0753 B2 
0755 A? 
0757 BS 
0759 AA 
O75B BS 
075D AB 
O75F BS 
0761 B6 
0763 Bé 
0765 B? 
0767 B? 
0769 B8& 
O76B BS 
076D Bg 
O76F Bg 
0771 BA 
0773 BA 
0775 BB 
0777 «BB 
0779 «BC 
O77B BC 
077D BD 
O77F BD 
0781 BE 
0783 BE 
0785S BF 
0787 «BF 
0789 CO 
078B co 
0780 C1 
O78F C1 
0791 AF 
0793 C2 
0795 C2 
0797 C3 
0799 CS 
O79B C4 
079D C4 
O79F CS 
O7Al Cé 
O7A3S C7 
O7A5 C8 
O7A7 C9 
O7A9 CA 
O7AB CA 
O7AD CA 
O7VAF CB 
O7B1 CB 
O7B3 «CB 
07B5S CC 
o7B7 «CC 
0789 CC 
078B CD 
07BD cD 
07BF CD 
o7C1 CE 
O7C3. CE 
07C5) «CE 
o7C7 «CF 
07C9 DO 
o7CB D1 
o7CD D2 
O7CF ODS 
O7Di ac 
0703 D4 
0705 aD 
0707 OS 
0709 AE 
07DB D6 
0700 »D? 
QO70F D8 
O7E1 D9 
OVES DA 
O7ES DB 
O7E7 FF 
O7E9 DC 
O7EB FF 
O7ED FF 
O7EF Ab 
O7F2 DD 
O7FS 

= 0053 
Q7F3 DE 
O7FS ODF 
O7F7 BO 
O7F9 

= 0056 
O7F9 30 
Q7FB 31 
Q7FD 32 
O?FF 33 
O801 34 
0803 35 


FEHHEEHEESEFOEEESEFESESFEF SFE OE EEEESEEEEEEESEEEEESEHEDESESEESEEEOOOOOS 
3+ PRIVATE CONSTANT < FNCHENK > + 
FEFHEFEFEFESE EEE EFHFEESEFEE SEES SEEFOESEOEDEEESESEEEEEEEDESSEDEEOEESOEOOD 


} 090800890000000000000000000000008NONRHEUANOGOOOONABOAOERAOEOUOC AOE sO 
7M ZENKAKU CODE CONVERSION TABLE LJ 
32000 0000000000000 0000000000 I III TIE 
KZENCONV: 


DB 0A7H, 00H 3 A ( SHOUJI > 
DB OB1H, 00H 3A 
DB OA8H, 00H + I ( SHoUsT > 
DB OB2H,00H 31 
DB OA9H, OCH 3 UC SHOUJI ) 
DB OB3H,00H + U 
DB OAAH, 00H 3 E ( SHOUJT ) 
DB 0B4H,00H 3 E 
DB OABH, 00H 3 0 € SHOUJI > 
DB OBSH, 00H 30 
DB 0B6H, 00H 3 KA 
DB OBGH, ODEH 3 GA ( KA * DAKUTEN ) 
DB 0B7H,00H 3 KI 
DB 0B7H, ODEH 3 GI ( KI # DAKUTEN ) 
DB OB8H, 00H 3 KU 
DB 0B8H, ODEH + GU ( KU ¢ DAKUTEM ) 
DB OB9H, 00H 3 KE 
DB OB9H, ODEH + GE ( KE ¢ DAKUTEN ) 
DB OBAH, 00H + KO 
DB OBAH, ODEH 3 GO ( KO + DAKUTEN ) 
DB OBBH, 00H 3 SA 
DB OBBH, ODEH 3 ZA (© SA % DAKUTEN ) 
DB OBCH, 00H + SI 
DB OBCH, ODEH 3 JI ( SI + DAKUTEN ) 
DB OBDH, 00H + SU 
DB —s«OBDH, ODEH 3 2U ( SU * DAKUTEN ) 
DB OBEH, 00H 3 SE 
DB OBEH, ODEH + ZE ( SE + DAKUTEN ) 
DB OBFH, 00H 3 $0 
DB OBFH, ODEH 3 20 ( SO + DAKUTEN ) 
DB OCOH, OOH 3 TA 
DB OCOH, ODEH 3 DA ¢ TA @ DAKUTEN ) 
DB OC1H,00H 3 TI 
DB 0C1H, ODEH 3 ZI € TI + DAKUTEN ) 
DB OAFH, 00H 3 TU ( HATUON ) 
DB 0C2H, 00H 3 TU 
DB 0C2H, ODEH 3 ZU € TU + DAKUTER ) 
DB OC3H, 00H 3 TE 
DB OC3H, ODEH 3 DE ( TE ¢ DAKUTEN ) 
DB OC4H, 00H 3 0 
DB OC4H, ODEN 3 DO ( TO + DAKUTEN ) 
DB OCSH, 00H 3 NA 
DB OC6H, 00H 3 MI 
DB OC7H, OH 3 NU 
DB OC8H, 00H 3 HE 
DB OC9H,O0H 3 NO 
DB OCAH, 00H 3 HA 
DB OCAH, ODEH 3 VA (HA ¢ DAKUTEN ) 
DB OCAH, ODFH 3 PA ( HA ¢ HANDAKUTEN ) 
DB OCBH, 00H 3 HI 
OB OCBH, ODEK 3 VI CHI # DAKUTEN ) 
DB OCBH, ODFH 3 PI CHI # HANDAKUTEN ) 
DB OCCH, 00H + HU 
DB OCCH, ODEH 3 VU ( HU # DAKUTEN ) 
DB OCCH, ODFH 3 PU (HU *# HANDAKUTEN ) 
DB OCDH, OOH 3 HE 
DB OCDH, ODEH 3 VE ( HE * DAKUTEN ) 
DB OCDH, ODFH 3 PE ( HE ¢ HANDAKUTEN ) 
DB OCEH, 00H + HO 
DB OCEH, ODEN 3 VO ( HO + DAKUTEN ) 
DB OCEH, ODFH 3 PO ( HO + HANDAKUTEN ) 
DB OCFH, 00H 3 MA 
DB ODOH, OOH 3 MI 
DB 0D1H, 00H 3 MU 
DB OD2H, 00H 3 ME 
DB 003H,00H 3 NO 
DB OACH, OOH 3 YA € SHOJI ) 
DB OD4H, 00H 3 YA 
DB OADH, OOH 3 YU € SHOUT ) 
DB ODSH, OOH 3 YU 
DB OAEH, 00H 3 YO € SHOJI ) 
DB OD6H,00K + YO 
DB OD7H. 00H aA 
DB OD3H, 00H Ul 
DB OD9H, OOH ao) 
DB ODAH, 00H + LE 
DB ODBH, OOH +00 
D8 OFFH, 00H 3 WA ( SHOJI ) 
DB ODCH, 00H 1 WA 
DB OFFH, OOH 31 
DB OFFK, OOH 3 
D8 OA6H, 00H 0 
D8 ODDH, 00H > UN 
DAKTENDATA: 
KZENDAKU EQU = (DAK TENDATA-KZENCONV) 72 
DS ODEH, OOH 3 DAKUTEN 
DB ODFH, 00H 3 HANDAKUTEN 
DB OBOH, 00H 3 CHOUON 
RUMEDATA: 
KZENNUMR EQU = CNUMEDATA-KZENCONV) 72 
DB 30H, 00H 30 
08 31H, 00H 1 
OB 32H, 00H +2 
DB 33H, 00H +3 
DB 34H, 00H 34 
DB 35H, 00H +5 
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C6 06 COFO R O4 
Fé 06 0192 R O1 
75 03 


E9 OAF& R 


BS 0000 
8B FO 

8B FS 

8B ES 

8B DB 

AS OLBE R 


C6 06 0190 R FF 


BA 84 DOOA R 
84 06 OOEL R 
75 03 

E9 O9D9 R 


BA AS OOOO R 


220 OOGO000E 
3m 


320000000000000006 


KHANCONV: 


DATAO7 DB 
HUMYOMFG 
NUMSKIP 
FNCHENK 
MOV 
TEST 
JNZ 


JMP 
HENOOIO: 
nov 


mov 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


mov 
HEN0020: 
MO 






MOV 


,0000000C 


6H, 00H 
39H, 00H 


39H,00H 


~ ZENKAKU cope CONV 


AH KKINBUF(S1) 
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3 
3 
> 


cane 


; 
MmrrrTTTETLLUULELULUiLert ttt Tit 





FFER) INDEX 
BUFFER) POINTER 
— BUFFER) POINTER 
CONVERSION TABLE) 
KAKU CONV. TABLE ) 


ATTRIBUTE 


ELL LETT Ti 
VERSION TABLE Monde 
HANKAKU Si HOH IO RIOOOOONORODOO OOOO, “ 
+30 0 ¢ NUMERIC 
Harley 331 1 C NUMERTC 3 
OI, OOH +32 2 (NUMERIC 3 
tFaH, OOH +33 3  ¢ NUMERIC 5 
OFSH.OOH +34 4 © NUMERIC } 
OFAH, OOH +35 5 ¢ NUMERIC } 
OFBH, OOH 336 6 ¢ NUMERIC 3 
OFCH, 00H +37 7 C( NUMERTE 3 
OFDH, 00H +38 8 ¢ NUMERIC 5 
OFEH, 00H +39 9 ¢ NUMERIC 5 
O9FH, 00H +A?) A © SHOUGN’) 
DA1H, OOH 348 I ¢€ SHOUON > 
OA3H, OOH 3 A9 U- C¢ SHOUON 5 
ASH, OOH 3 AA EC SHOUON 9 
OA7H, 00H 3 ABO ¢ SHOUON ) 
ELH, 00H 3 AC YA (© YOUON > 
DE3H, 00H 3 AD YU © YOUON > 
OE4H, 00H 3 AE YO ¢ YOUON 5 
OC1H, OOH 3 AF TU C HATUON ) 
OF4H, 00H 3; BO - ¢ CHOUON > 
AON, OOH BLA 
AZH, OOH 3 B2 
AGH, OOH ;BS OU 
DAGH, OOH 3 3B4 OE 
OA8H, 00H ; BS oO 
DASH.KKYMSTD = 3 BOCK 
OABH,KKYMSTD 3 B?_—sOKI 
QADH-KKYMSTD = 5: BB_sWKU 
OAFH,KKYMSTD 3 BO. KE 
OB1H,KKYMSTD ©; BA KO 
OBSH.KKYMSTD 3 BB SA 
OBSH,KKYMSTD 3 BC SI 
OB7H.KKYMSTD 3 BD SU 
OBSH.KKYMSTD 3 BE SE 
OBBH.KKYMSTD 3 BF SO 
OBDH-KKYMSTD 3 CO TA 
OBFH.KKYMSTD 3 CL TY 
OC2H.KKYMSTD 3; 62 TU 
OCSH,KKYMSTD 363 TE 
OC6H.KKYMSTD ; C4 TO 
OC6H, 00H ; 5 NA 
0C8H,00H 3 C6 NI 
OCAH, 00H ; C7 NU 
OCBH, 00H ; 638 NE 
OCCH, 00H ; 69 NO 
OCDH,KKYMSTD 3 CA HA 
ODOH,KKYMSTD 3; CB. HI 
ODSH,KKYMSTD 3 CC HU 
ODSH,KKYMSTD 3; CD HE 
OD9H,KKYMSTD 3 CE HO 
ODCH, 00H ; CF OMA 
ODDH, 00H ; DO MI 
ODEH, 0OH >; D1 oMU 
ODFH, 00H ; D2 ME 
OE0H, 00H ; DS MO 
OEZH, 00H 3; DS YA 
OE3H, 00H + D5 YU 
OESH, 00H + D6 YO 
OE7H, 00H 3D? LA 
OE8H,00H ; DB OI 
OE9H, 00H 3; D9 «LU 
EAH, 00H ; DA LE 
OEBH, 00H + DB LO 
ODCH, OOH s DC WA 
tE2H. On + DE DAKUTEN 
OF3H,00H + DF HANDAKUTEN 
EQU 000000018 
pete bon000108 
tee ER ODE 
KKMODE,SELECTM ; CHANGE MODE TO SELECT M 
KHENFST, 01H 
HENOOL0 
HEN3900 
AX,0 KKINBUF (KEY INPU 
S1,AX ; KKHANQUE (QUEING 
DI, AX 3 KKYOMI (YOMI COD 
BP LAX + KZENCONV (ZENKAKU 
BX, AX ; OR KHANCONV ( HAN 
KKHQLEN, AX 
KKYMSTS, AL 
KKYOMIL, AL 
DX, AX 
KKCHRMD, OFFH 
AL KKINBUF(SI)(2) ; GET INPUT KEY 
AL, ZENATIRI 
HEN1000 
HEN2000 


O8&CF 
08D3 
08D6 
0808 
08DD 
O8DF 
O8E2 
O8ES 
O8E7 
O8E9 
O8EB 
O8EE 
O8FO 
O8F2 
O8F5 
O8F7 
O8F9 
O8F9 
O8FF 
0901 
0905 
0908 
090D 
0910 
0910 
0912 
0916 
0919 
0918 
0910 
0910 
0921 
0924 
0926 
0926 
0929 
0929 
O92E 
0930 
0935 
0935 
O93SA 
093D 
093D 
O93F 
09461 
0944 
0946 
0948 
094A 
0940 
O94F 
o951 
0953 
0956 
0958 
O95A 
095C 
095C 
O9SE 
0962 
0965 


O96A 
096C 
096C 
VIOE 
0972 
0974 
0974 
0976 
O97A 
097C 
0970 
097D 
0981 
0981 
0986 
0988 
098C 
O98E 
O98E 
0992 
0994 
0997 
099Cc 
O99E 
O9AS 
O9AS 
O9A8 
O9AB 
O9AC 
O9AE 
O9B0 
0981 
0982 
09B4 
0987 
0989 
09BB 
O9BB 
0980 
093Cco 
09co 


8A 84 000C R 


3D 8140 
74 4E 
F6 06 0191 
75 56 
3D 814A 
74 2c 
3D 8148 
74 27 
B3 2D 
3D 817C 
74 09 
BS BO 
3D 815B 
74 02 
EB 44 


3E: C6 86 0119 R F4 


8A C3 

BA AG OOOB 
E&8 OB2A R 
80 26 0191 
E9 09CO R 


8B DS 

8A 36 0190 
80 FE FF 
74 02 

B6 02 


81 EB 814A 
83 C3 53 
EB 68 


83 G6 06 


80 SE 0118 
75 05 
80 OE 0191 


80 OE 0191 
E9 O9C4 R 


8B D8 
BO o1 
E8 1707 R 
84 CO 
74 14 
Bo 02 
E8 1707 R 
84 CO 
74 1B 
BO 03 
E8 1707 R 
84 CO 
74 =A 
EB cD 


B6 01 

81 EB 824F 
83 CS 56 
80 CE 0191 


EB 15 


B6 02 
81 EB 829F 
€B oD 


B6 OS 
81 FB 837F 
72 «01 


81 EB 8340 


80 SE 0190 
74 06 
38 36 0190 
75 a? 


88 36 0190 
gap cs 
05 00°F 


R 
R FB 


R 80 
R OS 


ROA 


R FF 
R 


SE: 88 86 O1LLO R 
ES 


2E: 8B 87 O74D R 
BA AY OCOOBR 


E&8 OB2A R 


84 4 
74 10 


BO 1A 
80 FC DF 
75 02 
BO 18 


86 E0 
E8 OB2A R 


FE 06 O118 R 


HEN1010: 
MOV 
MoV 
MoV 
CALL 
AND 


JMP 
HEN1020: 
MOV 
MoV 
CMP 
JE 


MOV 
HEN1021: 
Sus 
ADD 
JMP 
WEN1090: 
ADD 
HEN1100: 
cmP 
INZ 


OR 
HEN1110: 


JMP 
HEN1200: 
MoV 
mov 
CALL 
TEST 
JZ 
mov 
CALL 
TEST 
JZ 
MOV 
CALL 
TEST 
JZ 
JMP 
HEN1210: 

MOV 
SuB 
ADD 
OR 


JMP 
HENI220: 

mov 

SUB 


JMP 
HEN1230; 
MOV 
CMP 
JB 


DEC 
HENL231: 
SUB 
HEN1240: 
CMP 
JZ 
CMP 


INZ 
HEN1250: 
MOV 
MOV 
ADD 
MOV 
SHL 
MOV 
PUSH 
MOV 
CALL 
POP 
TEST 
pr4 
INC 
INC 
MoV 
cMP 
JINZ 


MOV 
HEN1260: 

XCHG 

CALL 
HEN1270: 

INC 


AL KKINBUFCSIIC3) + GET ZENKAKU CODE 
AX, 8140H + SPACE" ™ KEY 
HEH1090 
KKYMSTS, KKYMSTH 
HEN1110 
AX, 814AH } DAKUTEN KEY 
HEN1020 
AX, 814BH 3 HANDAKUTEN KEY 
HEN1020 
BL,2DH 
AX, 817CH 3 MINUS *-" KEY 
HEN1010 
BL, OBOH 
AX, 815BH + CHOUON KEY 
HEN1010 
SHORT HEN1200 3 THE OTHER KEY 
KKYOHILBP, OF SH 3 SET CHOUON YOMI CODE 
re ; 
AH, KKINBUFCSIJ(2) 3 GET CHARACTER CODE & SCAN CODE 
QUEBUF + SET CODES 
KKYMSTS,OFFH-KKYMSTD ; DAKUTEN, HANDAKUTEN BIT OFF 
HEN1270 
BX, AX 
DH, KKCHRMD 3 GET PEVIOUS CHARACTER MODE 
DH, OFFH 
HEN1021 
DH, MDZENHIR 3 SET ZENKAKU HIRAGANA MODE 
BX,314AH 
BX, KZENDAKU 3 CALCULATE OFFSET OF CONVERSION TABLE 
SHORT HEN1250 
$1.6 
KKYOMIL, 0 
HEN1116 
KKYMSTS , KKYMSTER 3 TURN ON ERROR BIT 
KKYMSTS , KKYMSTE*KKYMSTM 
HEN1280 3 SET END & MOVE FORWORD FLAGS 
BX, AX 3 BX <--- 2 BYTE KANJI CODE 
ALal 
cocuez 3 ZENKAKU NUMERIC CODE ? 
AL. 
HENI210 5 JUMP IF YES 
L.2 
cochcK2 5 ZENKAKU HIRAGANA CODE ? 
AL, AL 
HEN1220 3s JUMP IF YES 
AL,3 
CDCHCK2 3 ZENKAKU KATAKANA CODE ? 
AL, AL —_ 
HENL230 3 JUMP IF YES 
SHORT HENL100 3 THE OTHER CODE ( CAN'T CORV. YOMI ) 
sem ZENKAKU NUMERIC 
DH, MDZENNUM 
BX. 824FH 
BX, KZENNUMR + CALCULATE OFFSET OF CONVERSION TABLE 


KKYMSTS. KKYMSTM#KKYMSTN 
3 SEY END FLAG & MOVE FORWORD FLAG 
SHORT HEN1240 


;RMMMMM ZENKAKU HIRAGANA 9 0GGDUH 
DH. MOZENHIR 


BX, 3829FH 3 CALCULATE OFFSET OF CONVERSION TABLE 
SHORT HEN1240 


pRNMKM ZENKAKU KATAKANA 000008 
DH, MDZENKAT 

BX,837FH 

HENL231 

Bx 


BX.8340H 


KKCHRMD, OFFH 
HEN1250 


3 
KKCHRMD, DH 3 COMPARE CURRENT MODE WITH PREVIOUS 
HENLI10 


KKCHRMD, DH 
AX, BX 
AX, 9FH 


KKYOMICBP),AL b SET YOMI CONVERSION CODE 
Bx.1 Bx nu 2 


4 
AT MORD PTR KZENCONV(BX) 5 GET ZEN. KATAKANA & DAKUTEN 
AH, KKINBUF(SIJ(2) 3 GET KEY SCAN CODE 


QUEBUF + SET ONE 
Ax 


AH, AH 
HEN12786 


AL.2AH 3 SET DAKUTEH SCAN CODE 
AH, ODFH 3 HANDAKUTEN CODE ? 
AL,18H 


AH, AL 
QUEBUF + SET DAKUTEN,NANDAKUTEN CODE 


KKYOMIL 3 INCREMENT YOMI LENGTH 
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QAG9 
OAS9 


QAb2 
0a? 


OABO 
OaBS 


F6 06 0191 R 02 
74 04 
89 36 OOF7 R 


83 C6 06 
83 C7 02 


s 
E9 OAAD R 


8A 9C 0009 R 
20 


F6 06 0191 R 08 
80 FB 2D 
80 FB BO 


80 FB DE 


80 FB DF 


B7 00 
EB 42 


€8 0B22 R 


SE: C6 86 0119 R FA 
B 


Ee 
83 C6 OS 

80 SE 0118 R 00 
80 CE 0191 R 80 


80 OE 0191 R OS 
90 
F6 06 0191 R 04 


6D 

3E: 00 BE C119 R 
E8 OB22 Rk 

EB 56 

2a FF 

81 EB 009D 
EB 37 


80 oS 
EB 16CF R 
8¢ CO 


30 
80 OE 0191 R OA 


5 

81 EB 009D 

80 3E 0190 R FF 
6 

38 36 0190 R 
B 


88 36 0190 R 


Dl E3 

2E: 8B 87 080D R 
SE: 88 86 OLIOD R 
08 26 0191 R 

E& OB22 R 


FE 06 0118 R 

Fe 06 0191 R 02 
74 04 

89 36 OOF7 R 
83 Ce 03 

83 C7 02 

45 

Al OOEA R 


28 Ce 
7E 


OA 
F6 06 0191 R OL 
75 03 


HENI280 


HENI290: 


000: 
HEN2 5 


ALL 


J 
HER2090: 

aD 
HEN2100: 


i) 
HEN2110: 
OR 


JMP 
WEN2120: 
TEST 


JZ 
DEC 
aod 
CALL 


JMP 
HEN2130: 
SU 
SUB 
JMP 
HEN2200: 
mov 
CALL 
TEST 
JZ 
MOV 
CALL 
TEST 
JZ 
Jme 
HEN2210: 
MoV 
SUB 
OR 
JMP 
HEH2220: 
MoV 


SUB 
HEN2240: 
cM 


32 
cmp 


JNZ 
HEN2250: 
MOV 
HEN2260: 
SHL 
MoV 
MoV 
OR 
CALL 
HEN2270: 
INC 
HEN2280; 
TES 
JZ 
MoV 
HEN2290: 


1 
HENS000: 





KKYMSTS »KKYMSTM 
N1290 
HEM rT, ST + SET MOVE FORWORD PornteR 
mca + RENEW KKINBUF POINT 
Stvt 3 RENEW KKHANQUE POINTER 
Or + RENEW KKYOMI POINTER 
HEN3000 


BX, BX 

*KKINBUF(SIJ 3 GET HANKAKU CHA 
er + SPACE " ” Key SRACTER Code 
HEN2090 
KKYMSTS / KKYHSTN 
HEN211 
BL,2DH MINUS KEY 2 
HEN2010 
BL.OBOH CHOUON KEY ? 
HEN2010 
BH,2 
BL, ODEH 
HEN2120 
BH,2 
BL,ODFH 
HEN2120 


BH,0 
SHORT HEN2200 


SETQUEBF 
KKYOMICBP),0F4H 
KKYMSTS, OFFH-KKYMSTD 
HEN2270 


sI,3 

KKYOMIL,0 
HEN2110 5 
KKYMSTS, KKYMSTER 


KKYMSTS,KKYMSTE+KKYMSTM 
HEN2280 


~ 


7 


DAKUTEN KEY ? 


7 


HAN-DAKUTEN KEY ? 


SET CHARACTER cop 
SET CHOUON Yomi cope ieee 
DAKUTEN, HANDAKUTEN BIT OFF 


we ee we 


~ 


TURN ON ERROR BIT 


- 


SET END FLAG & MOVE FORWORD FLAG 
KKYMSTS,KKYMSTD 
HEN2130 


BP 

KKYOMI CBP), BH 
SETQUEBF 
SHORT HEN2280 


BH, BH 


~~ 


ADJUST PREVIOUS YOMI CODE 
SET CHARACTER CODE & SCAN CODE 


BX, 9DH 
SHORT HEN2260 


AL,S 

CDCHCK1 + HANKAKU NUMERIC CODE ? 

HEN2210 3 JUMP IF YES 

AL 

HANKAKU KATAKANA CODE ? 

JMP IF YES 

SHORT HEN2100 THE OTHER CODE ¢ CAN'T CONV. YOMI > 
}00000C HANKARU HUMERTC 0000008 

DH, MDHANHUM 

x s CALCULATE OFFSET OF CONVERSION TABLE 


»30H 3 
KKYMST +KKYMSTN 
See e ee TET END FLAG & MOVE FORWORD FLAG 
SHORT HEN2240 


we 


FO0G000 HANKAKU KATAKANA  0Q000C 
DH, MDHANKAT 
8X,9DH 
KKCHRMD, OFFH 
2250 
KKCHRMD, DH } COMPARE CURRENT MODE WITH PREVIOUS 
HEN2110 
KKCHRMD, DH 
rae > BX * 2 
X,WORD PTR KHA VCBX) 
KKYORIEBP1.,AL meas s SET (OM CONT ENDARUTER CODE 
scrasere™ + SET CHARACTER CODE & SCAN CODE 
KKYOMIL + INCREMENT YOMI LENGTH 


KKYMSTS, KKYMSTM 
HEN2290 


KKFORPIT,S1 s SET MOV FORWORD POINTER 
ae ; RENEW KKINBUF POINTER 
gee RENEW KKHANQUE POINTER 
ne + RENEW KKYOM POINTE 
AX, KKWEOP 
AX,S1 + ALL INPUT CHARACTER CONVERTED ? 
Keynote > YES ... 
5oK 
HEN3O10. KYMSTE 3; ENDFLAG CHECK 
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OAB7 


E9 O8BE R 


Fé 06 0191 R 80 
75 58 
BE 0118 R 
1E 
ES OE89 R 
1F 
06 
8F 06 01462 Rk 
89 SE 0140 R 
AS 08 
ae 43 

41 
cs OE OL3ER 

1 

ze: Fe 36 0893 R 
74 046 
32 E4¢ 
EB 02 
FE c8& 
86 C4 
AS OOFD R 
33 CO 
A2 0192 R 
EB 1B 


AO OOFD R 
3A 06 OOFE 
74 08 


FE 06 OOFD 
33 CO 

EB OA 

B83 SE 0144 R 01 
75 06 

BS 0001 

E8 1396 ® 

28 Co 

cs 


C6 06 OOFO R 02 
BS 0001 
cs 


SA 84 0009 
BA AS 0OOB 


89 85 O14A 
FF 06 O18E 
cs 


BO SE COFO R 02 
74:18 


Al 0148 R 

. 06 O1SE 
0B 

bo ay QOFD R 06 

74 

FE be OOFD 


33 co 
E8 1396 R 
EB ic 


28 €D 

38 2E OOEAR 

70 11 

SE: BA 86 0009 R 
SE: 8A AG 0OOBR 
co 79 

83 C5 03 

EB E9 

ES OCA2 R 


2B CO 
cs 


JMP HEHOO20 U WHEN HOT END, REPEAT PROC. 
20000008 LINK To DICTIONARY ACCESS ROUTINE, PELE ret | 
7 OOOUOOM AND EDIT CANDIDATE FORMAT. PLELLCELy | 
HEN3O10: 

TE a aati et 

INZ HENS 

MoV SI, OFFSET KKYOMIL 

PUSH DS 

CALL KKKNDR 3 LINK KAHA~KAN CONVERSION ROUTINE 

PoP DS 

PUSH ES 

POP KKDICSEG 5 SAVE SEGMENT OF DICTIONARY 

MoV KKDICOFF,DI 3 SAVE OFFSET OF DICTIONARY 

TEST AL,000010008 3 INVALID YOMI CODE ? 

JNZ HEN4020 3s YES... ERROR RETURN 

INC cx 

MOV KKOHOSUU, CX 3 SAVE TOTAL KOUHO COUNT 

MoV AX, CX 

DIV DATAO7 3 CALCURATE MAX KOUHO BLOCK MUMBER 

TEST AH, AH 

JZ KEN3020 

xOR AH, AH 

JMP SHORT HEN3S030 
HEN3S020: 

DE! AL 
HENSC30: 

xc AL, AH 

MoV WORD PTR KHBLK,AX 3; SET INITIAL KOUHO BLOCK NUMBER 

XOR AX, AX 

MoV KHENFST.AL 

JMP SHORT HENS000 
HEN3900: 

mov AL, KHBLK 3 CHECK END BLOCK HUMBER 

cmp AL, KHBLKMX 

JE HEN3910 3 JUMP ay on BLOCK 

INC KHBLK 3 NEXT 

XOR AX, AX 

JMP SHORT HEN4000 
HEN3910: 

cmP KKOHOZAN,1 3 

INE HEN$010 

MOV AX,1 
HEN4000: 

KKOHOEDT + EDIT OUTPUT BUFFER 
HENS$010: 

SUB AX, AX 

RET 
HEN4020: 

mov KKMODE, KANJIM 3 CHANGE TO KANJI MODE 

ner AX, 1 

RET 
3 ODO 2O 0000000000000 2020000000 
3™ INTERNAL SUB ROUTINE ; 
3m <SETQUEBF> , <QUEBUF> 


3 909000300000000000000000000000000000000000000000000000000000O0N00NO0NNHIONE 
SETQUEBF: 


MOV AL, KKINBUFCSI) 
weiie MOV AH, KKINBUF(SI}(2) 3 GET CHR. CODE & SCAN CODE 
"MOV WORD PTR KKHANQUE(DI),AX + SET ONE TO QUEING BUFFER 
INC KKHQLEN 


RET 
FNCHENK ENDP 
3(000000000000000000 NU NNNNDE 


3m 
3m MUHENKAN « 
3M L] 
3200000000000 000 BRN 
FNCMUHE PROC 
CMP KKMODE, KANJIM 3 CURRENT MODE CHECK 
JE MUHO20 
Mem SELECT MODE MMM 
MUHoLe: 
mov AX, KKOHODSP 
CMP AX, KKOHOSUU 3 DISPLAY LAST KOUHO NUMBER ? 
JE MUHO1L 
CMP KHBLK.@ + CHECK FIRST KOUHO BLOCK 
JE MUHOSO H 
DEC KHBLK 3 PREVIOUS BLOCK 
MUHOLI1: 
XOR AX, AX 
CALL KKOHOEDT 3 EDIT KOUHO 
sme SHORT MUNOSO 
MUHO20: 
SUB BP,BP 
MUHOSO: 
CMP BP, KKWEOP 
JGE MUHO40 
MOV AL, KKINBUF(BP) 3 GET CHARACTER CODE 
MOV AH, KKINBUF(BPJ(2) 3 GET KEY SCAN CODE 
INT 79H 3 QUEING 
aDD BP, 3 RENEW POINTER 
JMP SHORT MUHOSO 
MUHO40: 


CALL KKZINT 
MUHOSO: 


sus AX, AX 
RET 
FNCMUHE ENDP 


s INITIALIZE ZENKOHO MODE 


dU RERMAPS BERRA SEN ANARBRERES RES 
x 
i ESCAPE ” 
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OBAE 
OBAE 
OBBS 
OBBS 
OBBS 
OBBS 
OBB 


OBB 
OBB9 
OBBE 
@Bco 
OBC 
oBcs 
OBC4 


eeatee 
oe Bede eT 
3 + RIVATE col 


eeeseet?e 
09d 4SSAIARRAT EET TRAP TERING 4 Ht eee e ga gg 
tH4eeeee 


3+ 
sooeeeeeete 
DIVOS oB 
seeeseeesest 
FNCESCP PROC 
cmP 


63 


80 SE BOF9 R 04 
74:05 


JE 
WOOO0N08 
Escore 
E& OCAZ R : CALL 
EB 10 JMP 
100000008 
$c020 
C6 06 OOF9 R 02 e ae MOV 
Es 1291 8 CALL 
E8 1355 Rk CALL 
C6 06 0192 R 01 MoV 
‘s 
28 co ESCo4o: ie 
cs 


RET 
FNCESCP ENDP 


FNCINST phd 


4 3 OOFO R 02 MP 
JNE 
re 04 OOFO R O01 TEST 
JZ 
33 eo XOR 
EB 04 JMP 
t 
8D 06 0OO3 R auras 
IN t 
E& OCF2 R SaRe 
FNCINST_RET: 
cs RET 


FNCINST ENDP 


FNCDELT PROC 
80 SE COFO9 R 02 CMP 
75 03 JRE 


E8 CESAR CALL 
FNCDELT_RET: 
cs RET 
FNCDELT ENDP 


FRCBACK PROC 
80 SE GOFO R 02 CMP 
75 03 ° JNE 


ESB O£04 R CALL 
FNCBACK_RET: 
cs RET 
FNCBACK ENDP 


FUCEEOF PROC 
CMP 


80 SE OOF9 R 02 
75 03 JRE 


NSTANT 


KKMODE, SELECT 
ESC 
FANS * Move 


KKZIN 
SHORT Tescoso 


SESESEEESSE SESH E FFF E THEE tee esasy 

< FNCESCP > 

HEEd EG Hes Tet TP PETPETTF eter eter seesreyss 
+44 


3™ 


JO OOOO 00006 96 “ 


aL LET 
aba 


rere 


3 CLEAR YOMI INPUT BUFFER 


SELECT MODE 9 MMMMMDH 


KKMODE, KANJIM 
KOUTINIT 
KCSRDSP 
KHENFST,O1H 


AX, AX 


KKMODE,KANJIM 
FNCINST_RET 
KKWINST, 01H 
INSO10 


AX, AX 

SHORT INSO20 
AX, KKINKEY 
KKINST 


KKMODE, KANJIM 
FNCDELT_RET 
KKDELT 


KKMODE, KANJIM 
FNCBACK_RET 
KKBACK 


KKMODE, KANJIM 
FNCEEOF_RET 


3 
3 DISPLAY CURSOR 


720 0000000000008 


3M bbebbLLCCTT TT ttt 
el INSERT “ 
ral “ 


20 0000000000000000000000 000006 
s CHECK CURRENT MODE 


bt LLLLELULLLELiLi lili TTT tT htt) 
7m 
; 


“ 
7M DELETE " 
3m " 
3000000000000 


3 CHECK CURRENT MODE 


300000000000 0000000000 ROOOOE 
3* r 
7M BACKSPACE . 
3M 

Fe 0009 aap DED 9 


3 CHECK CURRENT MODE 


9 eA 4 
3é 
ae ERASE EOF : 


Fy 20K90099000000900000000000000000008 


3 CHECK CURRENT MODE 


E3 ODAF R ar: | pugeea 
FHCEEOF_RET: 
cs R 
FNCEEOF EHDP 
i § 9000909818800 200000000 OOOOOS 
nu 
He CARRIER RETURN : 
om PELeLi eee EE 
2000000000008 
FNCCRRT PROC NEAR 5 MMH 
80 3E OFS R 02 CHP KKMODE, KANJIM 
33 0001 ney CRROLO 
C3 MOY AKA + ERROR RETURN 
| GRROLO: 
ob co Oe «AX KKWEOP } INPUT BUFFER END POINTER CHECK 
AS bec R ae CRRO20 ; 
iia MoV KKWEOPSV, AX } SAVE END OF POINTER 
a Pus Ser AX + GET COPY COUNT 
ne mov OS EGMENT 
BE 0009 R Hoy gS, GET DESTINATION SEGMENT source > 
eta OFFSET KKINBUF SI KK ( DESTINATION ) 
¢ MOV DI, OFFSET KKINBFSV i St Cll KKINBFSB 
pte: REP Movsp 
CRROZO: 
2B co ut yeas 
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OBFS 
OBFS 


cs 


88 
74 


SE OOF9 R 02 
04 
0001 


16 OOEC R 
b2 


22 
oo75 R 


06 00035 R 
1209 R 


D2 
El 


co 


SE OOF R 04 
69 
SE OOEA R 00 
0s 


79 
co 


co 

OCF2 R 
00O3 R 

26 0005 R 
4000 

1D 


2E OOE6 R 
ED 
41 


RET 
FNCCRRT ENDP 
PALIT tiiiiiiiiy 
3M " 
sm ENTER x 
3m 


" 
700000000000000000000000000800001E 


FNCENTR PROC NEAR 
CMP KKMODE, KANJIM 
JZ ENTOLO 
MoV AX,1 + ERROR RETURN 
RET 
ENTO10: 
PUSH os 
POP ES 
mov DX, KKWEOPSV 
TEST DX, DX 
JZ EXTOSO 
mov S1,OFFSET KKINBFSV 
ENTO20: 
MoV DI,OFFSET KKKYDCD 
MoV AL,DS:CSIIJC1) 
CALL KCALELM 
MoV CX, AX 
SUB DX,CX 
CLD 
REP MOVSB 3 COPY TO KKKYDCD FROM KKINBFSV 
PUSH SI 
PUSH ox 
LEA AX, KKKYDCD 
CALL KKGRP 3 INPUT BUFFER EDIT & DISPLAY 
POP DX 
PoP SI 
OR Dx, DX & CHARACTER CHANGE END ? 
JNZ ENTO20 
ENTOSO: 
SUB AX, AX 


RET 
FNCENTR ENDP 
3200000000000000000008000000000000000000000N8VN0000NN ONE VOY NSORODENNDE 


x 
™ PROGRAM NAME: KKCSR 
" 


™ DESCRIPTIVE NAME: CURSOR KEY SUPPORT ROUTINE 
Li] 
™ FUNCTION: 


THIS MODULE HAS IN PRINCIPLE A FUNCTION OF CURSOR MOTION. 
WHITH HAS ONLY TWO KINDS,LEFT AND RIGHT MOTION. 


LINKAGEs Fad 
~~ =< 
«=~ INPUT: KANA-KAR COMMON TABLES 


" OUTPUT: KANA-KAN COMMON TABLES 
MOVE CURSOR 


RETURN CODES: (AX) 


x 0 - SUCCESSFUL 

u 1 - INVALID OPERATION 
Lt 
" 


" 
EXTERNAL REFERENCES: ‘ 
" 
m ROUTINES: " 
Ls KKINST x 
] KKDISP x 
" TABLES: KANA-KAN COMMON TABLES " 
x " 
mW REGISTERS: AX - RETURN CODE " 
« BP - WORK x 
: ALL OTHERS UNCHANGED a 
Fy " 
3M CHANGE ACTIVITY: VERSION 00.00 a 
3 “ 
H x 
JOC 000 0080000000000 0000000000 R0000N08NRNNVONNNNIHNPNNNNN_ONNNHNNNAL 
3 
KKCSR PROC NEAR 
CMP KKMODE,SELECTM 3 TEST CURRENT MODE 
J KCS210 
KCSO10: 
CMP KKWEOP,0 3 THERE AER NO YOMI CHARACTER 
JNE K2CCSR_GO 3 IF THEN QUEING CODE 
KZCCSR_QUEING: 
INT 79H § QUEING CURSOR KEY CODE 
XOR AX, AX 
RET 
KZCCSR_GO: 
sus AX, AX 3 IF INSERT MODE 
CALL KKINST 3 THEN RESET INSERT MODE 
MOV AL, KKINKEY 3 GET INPUT KEY CODE 
MOV AH, KKINKEY#2 3 GET INPUT KEY CODE 
CMP AX, KYCSRRX 3 CHECK CURSOR MOTION 


JE KCS100 
2200000000000 UO0O0020UOD UU UE IDE 
3H a 
7H CURSOR LEFT . 
SIRO TLINEI ETRE TERENCE ITOK A RRNIORCiaNOMINENRANEN ne 
KCS000: 


MoV BP, KKWCCA 3 GET CONTECTUAL CURSOR ADDRESS 
TEST BP, BP b IF CONTECTUAL CURSOR 1S ZERO 
ar4 KCS200 3 THEN RETURN 
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28 Co 

SE: 8A 86 0007 R 
22 66 @OEL R 
74 04 


BO FE 
EB 1F 


Be FF 
EB 1B 


8B 2E OOEG R 
38 2E OOEA R 


73 22 
SE: BA 86 OOOA R 
22 06 GOEL R 

o4 


Be 02 
EB 02 


BO 01 


01 06 0105 R 
FFFF 


AS 0107 R 
AS 0109 8 
ES 10ED R 


33 co 


BS 8001 


C6 06 BOF R 62 
80 3E OOFA R 01 
74: «1E 
80 SE OOFA & 02 
76:17 


80 SE OOFA R OS 
74 10 
EB 31 


C7 06 OOES R 0066 
C7? 06 COEE R 002C 
EB OE 


C7 06 OOEB R 0042 
C7? 06 OOEE R 0011 
EB 00 


BS 00 
BO AO 
AS OOFS R 
EB 12FC R 
€8 1291 R 
E&8 1355 R® 


suB AKO A 


t RKINBUFCBPI(-2) 
ne 8 OTe cee CHARACTER ay 
AND AL, ZENATTRI ¥ BIT CHECK TRibute 
Jz RUSS + ZENKAKU 
pet SHORT KCSO40 
Kcse20: L.-1 3 HANKAKU 
apy SHORT KCSO4O 


jpipg0G 1200900000000 0080000000000 000000 ODL 
SOO Og be 8 Oe 


: CURSOR RIGHT * 

“ 

HOTT TT ULL LL lataelalaeiaiahaeleiaiaiaalalalalalalalaiaiaialaislelelel LLL LLL Tree ta 
u 

KC$100! Lite ety 


BP, KKWCCA 3 GET CONTECTUAL cy 
el BP, KKWEOP + IF CONTECTUAL CURSOR ADDRESS 
SAE KCS200 3 THEN RETURN ERO 
MoV AL/KKINBUFCLIEBP2 sabe 
; CHAR 
AND AL, ZENATTRI 3 ZENKAKU BIT CHECK CER ATTRIBUTE 
KCSO3 
Rov AL,2 3 ZENKAKU 
JMP SHORT KCS040 
RESORTS oy AL 5 HANKAKU 
Kesoeds 
ADD DCRSRP, AX + CALCULATE NEW X-PosrTron 
poy AeTRTP LAX SET PARAMET 
M DSTRTP, ’ ER FO 
HOY DENDP AX R DISPLAY (KKDIsp) 
CALL —-KKDISP 3 CURSOR MOTION 
ReS200: oe AX SAX 3 RETURN CODE = 0 
RET - 
210: 
ROS220° nov AX)1 5 RETURN CODE = ABNORMAL 
RET 
KkesR END 


ENDP 
32000000000000000000000080000800800008000000000000000800000000000000000000K 
zm 


7 PROGRAM NAME: KKZINT i. 
3m 
5K DESCRIPTIVE NAME: INITIALIZE ZEN KOUHO MODE - 
7m Li 
;® FUNCTION: x 
3m INITIALIZE TABLE FOR KANJI MODE * 
7a x 
3™ LINKAGE: CALLED BY KKKFDM = 
3m ( JUST INPUT KANJI KEY ) x 
zu " 
3™ INPUT: | KANA-KAN COMMON TABLES . 
om * 
3 OUTPUT: KANA-KAN COMMON TABLES m 
3m " 
3X RETURN CODES: (AX) " 
37M 
3m 0 - SUCCESSFUL x 
3K 1 - INVALID OPERATION . 
7m 
3M EXTERNAL REFERENCES: " 
3m 
3 ROUTINES: KKWOIL 
im KKDISP * 
i 
3M TABLES: KANA-KAN COMMON TABLES x 
iM REGISTERS: AX - RETURN CODE 4 
a ALL OTHERS UNCHANGED " 
3M CHANGE ACTIVITY: VERSION 00.00 " 
, 

“ 
3m 
3 990000000000000000000000000000000000000000800000000000000000 00000002000 OOE 


KKZIHT PROC NEAR 


MOV KKMODE,KANJIM 3 TURN TO KANJI MODE 
CMP TVMODE,TV8025 3 VIDEO MODE CHECK 
JE KZ1200 3 chenge 100 to 200 
CMP TVMODE,TV8011 5 
JE KZ1200 
CMP TVMODE,TV4011 5 
a K21200 
peeneoniiinoodi THITIALIZE 80 X 25 TYPE VIDEO MMAXHNMANMNMM 
: 
MOV KKEOPMAX, 34K3 
nOY BASE, 64 . 
HORT KZ1800 PCULEL LE Et] 
Pitt 8] 
prizode, «= ENETIALIZE 80X11 AND 60 X 21 TYPE VIDEO 
Hov KKEOPMAX, 22x 
po BASE, 17 nesta 
HORT KZI800 PTE CLLLLCL LL! 
Pittiitt uMM 
k218002 INITIALIZE COMMON AREA TTT LL LLL le 
Mov AH, HANAT 
, ™ 
Hoy AL SPECHAR or YOMI SP. 


F 

KKCHRSP, AX CIAL CHARACTER ) CLEAR 
CALL KINBECLR ’ Rev input BUFFER CKRINBO FT TTAL 
catty KOUTINIT ; OUTPUT BUFFER (KKOUTB 

KCSRDSP 3 DISPLAY CURSOR 
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C6 06 0192 R 01 


OCEF 
OCEF 2B 
OCcFl CS 
OCF2 

= 0005 
OCF2 
OCcF2 53 
OcFS 51 
OCFS 52 
OCFS 56 
OCF6 57 
OCF7 8A 
OCFB F6 
OCFE 75 
opoo Fé 
ODoS 74 
opos 
0D05 8B 
oD07 3D 
ODOA 74 
oooc E8 
ODOF EB 
0011 
0011 £8 
0014 EB 
OD16 
OD16 AO 
0D19 BA 
oD1Dd 3D 
0020 75 
od22 
op22 E8 
0025 
0025 88 
0028 
0028 SF 
0029 SE 
OD2A SA 
op28 59 
op2c 5B 
0020 
op20 CS 
ode 

OD2E 
OD2E 8D 
0032 BA 
OD35 «EB 
0038 8B 


co 


1E OOFO R 
C3 80 
os 

cs 01. 
11 

Ds 
0000 
05 
OD2E R 
1? 
oo7c R 
OF 


0003 R 
26 COOS Rk 
5200 

os 

ODS? Rk 
0000 


36 00O9 R 
47 01 


1341 R 
bo 


MoV KHENFST,01H 
KZI900: 

su AX, AX 
KKZINT ENDP 


3300000000000 UNI DE 
3m 


n 
3™ PROGRAM NAME: KKINST “ 
3 " 
3" DESCRIPTIVE NAME: KANAKAN INSERT PROCESS ROUTINE " 
3m " 
3 FUNCTION: WHEN AHY KEY IS PRESSED, THIS ROUTINE EXECUTS FOLLOWING ¥» 
3M FUNCTION BY CURRENT MODE « 
3m 1) INSERTS CHARACTERS FRONT OF THE CURSOR " 
3M 2) SETS INSERT_MODE IN CURRENT MODE « 
AL 3) RESETS INSERT_MODE CURRENT MODE « 
i " 
;™ LINKAGE: CALL KKINST 7 
7] x 
3M INPUT: AX-- OFFSET OF DATA TO BE INSERTED " 
3M KANA-KAH COMMON TABLES " 
7m * 
3M = OUTPUT: KANA-KAN COMMON TABLES " 
3M " 
3M RETURN CODES: (AX) x 
7K a 
im 0 - SUCCESSFUL x 
A 1 - INVALID OPERATION « 
3m " 
3M EXTERNAL REFERENCES: " 
7m " 
Al ROUTINES: KKDISP -~ DISPLAY DATA OF KANAKAN INPUT BUFFER " 
zm DTINST -- INSERT DATA TO INPUT BUFFER POINTED BY AX x 
raf " 
im TABLES: KANA-KAN COMMON TABLES " 
3M n 
3M REGISTERS: AX - RETURN CODE ” 
7m ALL OTHERS UNCHANGED " 
3m " 
;M CHANGE ACTIVITY: VERSION 00.00 “ 
3; Ld 
3 #0000000000000000000000000000000000000000NNOHONHNOHOHONOANNORADOOLOL 
INDEX  EQU 03H sCONSTANT VALUE 
3 0GO00CCKK TNS 7>0000000000000000000000 00 R022 RVR DRO VIIDOE 
3* x 
3m WHEN INSERT KEY HASPRESSED, THIS ROUTINE IS CALLED « 
se Ly 
im INPUT = AX: POINTS INSERT DATA POSITION “ 
H “ 
3 900000181 NS T> 19000000000000000000000000000000000000OOOORARANDHBDOOL 
KKINST PROC NEAR 

PUSH BX 3 SAVE REGISTERS 

PUSH cx 

PUSH 0x 

PUSH SI 

PUSH DI 

MOV BL, KKWINST 3 GET CURRENT MODE 

TEST BL, 80H s TEST DUMMY INSERT FLAG 

JNZ KKIS_D 

TEST BL,O1H 3 INSERT_MODE ? 

z KKIS_H 3 NO.NOT INSERT_MODE 
KKIS_D: + YES, INSERT_ MODE 

mov BX, AX 3 GET AX ( INSERT DATA ) 

CMP AX, 0H 3 FUNCTION KEY PRESSED? 

JZ KKIS_G + YES, THEN INSERT_MODE OFF 

CALL INSTPRC 3 NO.CALL INSERT _DATA PROC. 

JMP SHORT KKIS_K 3 GOTO RETURN 
KKIS_G: 3 INSERT_MODE OFF 

CALL OFINST 3 RESET ITNSERT_MODE 

JMP SHORT KKIS_L 
KKIS_H: 3 NOT INSERT_MODE 

MOV AL RRINKEY 

MOV AH, KKINKEY#2 

s GET FUNCTION KEY CODE 

CMP AX, KYINSTX 3 INSERT KEY PRESSED ? 

INZ KKIS_L + NO,RETTURN TO CALLER 
KKIS_J: 

CALL SETINST + SET INSERT_MODE 
KKIS_L: 


Mov Ax,0 3 SET RETURN CODE ¢ NORMAL > 
KKIS_K: 


POP Or 3 RESTORE REGISTERS 
PoP st 
PoP DX 
PoP cx 
Pop Bx 
KKIS_990: 


RET + RETURN TO CALLER 
KKINST ENDP 


2000061 N$ TP RC>000000000000000000000000 00020 DUNNO RRO NN DNL 
3m 


3M WHEN NOT INSERT KEY PRESSED ON INSERT MODE ‘ 
ih THIS SUBROUTINE IS CALLED " 
3x s 
3M BX: POINTS INSERT DATA POSITION “ 
am a 
3000006 TNS TPRC>0000000000000000000 U0 Q0000000000N 0 OIIRDNL 


INSTPRC PROC NEAR 


LEA SI, KKINBUF + GET OFFSET OF INPUT BUFFER 
MOV AL, BYTE PTR DS: (Bxe1) 

3 GET ATTR OF INSERT DATA 
CALL KCALELM 3 GET DATA LENGTH FOR INSERTION 
MOV DX, AX 3 SAVE DATA LENGTH FOR INSERTION 
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ep7c 
ep7c 


0081 
ODs5 


008? 


0D87 
0D87 


epsc 
ODsE 
OD91 
ops2 


op92 
0D92 
0D94 
0D98 
op9sc 
SDAO 
ODA2 
ODAS 
ODAS 
ODAB 
ODAE 
ODAF 


Al OOE6 R 
03 C2 

3B 06 GOES R 
77:3 


E4 
OS 06 OOFS R 
AS 0105 R 
E8 16A5 R 
ES 1630 R 
E8 10ED R 
Al OGOEA R 
38 06 OOE8 R 
72 06 
Al OOES R 
AS OOEA R 
01 16 OCOEG R 
BS 0000 
EB OS 
BS 0001 


cs 


80 26 OOFO R FE 


BO 2A 
ES OD92 R 
cs 


80 OF OOFO R 01 


BO SE 
E8 OD92 R 
cs 


TMPRC_O50:, AX, KKWCCA GET CURRENT CURSOR Posrtroy 


3 
3 
aod = AX#DX 3 CHECK CURSOR Pos 
ce fiaerie | EOL HELE oe raat 
; FROM TAB 
CALL «TINS LE ro 30 
AX, DX + GET INSERT CHARACTERS PUT BUFFE 
roy AX DX ELEMENT ¢S OR 6) 
DIV eae 
xOR AX, KKCUSR we 
app AKG RK CURE SET CURSOR POSITION 


SET START POSITION 
SET END POSITION 


we we we 


SETSTRCL 
Catt. = SETENDCL 


CA 
INPRC_090: 
CALL 


KKDISP s CALL DISPLAY ROUT 
Cae EO KKWEOP ; GET END POSITION UN 
Rae COAX KKEOPMAX ; CHECK END POSITION 
JB Te reas ; GET BUFFER E 
AX, KKE ; ND Post 
Moy CKKWEOP, AX 3 RESET END POSITION. 2ON 
NP 
TNPRE_100) KKWCCA, DX + UPDATE CURRENT CURSOR PosiTro 
nov AX, OH + SET RETURN CODECNORMAL) . 
MPs SHORT =INPRC_990 
uP 0: 
TNPRE_120: ‘eich + SET RETURN CODE ¢ ERROR ) 


INP 0 
Reve: 3 RETURN TO CALLER 
INSTPRC ENDP 


33000006 OF INS T2 00000000 IRR BIRD 
3u 
37m RESET INSERT_MODE,WHEN INSERT KEY IS PRESSED ON INSERT_MODE x 


3m 
300008 < OF LNS 7220000000000 0000 OOO rs 
OFINST PROC NEAR SUOOOO O00 Ore 


AND KKWINST, OFEH + RESET INSERT MODE FLAG 
3 
3 cMP TVMODE, TV8025 
3 JNE OFINSO10 
3 TEST KKFLAG, CLRF25 3 TV MODE IS 80%25 COLOR »? 
3 JNZ OFINSO10 3 YES. GOTO 
3 mov DSTRTP, OFFFFH 
3 CALL KKDISP 3 DISPLAY CURSOR 
. RET 3 RETURN TO CALLER 
sOFINSO1O: 

MOV AL, ASTER 

aut SETMARK 3 DISPLAY INSERTION MARK 


OFINST OP 

5 M090 EHC SS ET INS 7 > 00 00 00 00 BE 00 00 DE DO DE 00 DO DO D0 DE BO DO DDE OO DO DO DO DG BO DG DE DDO BS DDO DE DG DL 0 DO OO Be Oe Oe Ot Be Be 
2M ™ 
3m SET INSERT_MODE,WHEN INSERT KEY IS PRESSED ON NOT INSERT_MODE x 


™ 
2 Je0000000¢<§ ET TNS T> 900000000000000900000000000090909090900000009090909000008HNNNRNNNDONOODOOE 
SETINST PROC NEAR 


OR KKWINST, 01H 3 SET INSERT MODE 
3 CMP TVMODE, TV8025 
; JNE STINSOLO 
3 TEST KKFLAG,CLRF25 3 TV MODE IS 80™25 COLOR ? 
3 JNZ STINSO10 3 YES. GOTO 
3 MoV DSTRIP, OFFFFH 
3 CALL KKDISP 3 DISPLAY CURSOR 
3 RET 3 RETURN TO CALLER 
3STINSO10: 
MoV AL, CAPS 
CALL SETMARK 3 DISPLAY INSERTION MARK 
RET 3 RETURN TO CALLER 


SETINST ENDP 

72000005 ETHARK? 10000000000000000000000000000000 00000 2200000022 GOON 
7 

3M DISPLAY INSERT MARK OR ASTER MARK el 


Ai “ 

7 00000< § ETHARK?30000000000000000000000000000UDRVDRRRVVURVVIVVIOVOVOK 

SETMARK nee” NEAR 
n 


AH, HANATTR 3 GET HANKAKU ATTRIBUTE 
MOV BX, KKEQPMAX 
MoV WORD PTR KKINBUF[BX),AX } SET CHARACTER CODE 
oe re 3 SET DISPLAY POINTER 
CALL GETCULM 3 CALCULATE COLUMN COUNT 
MOV DSTRIP,AX 3 SET COLUMN POSITION 


MOV DENDP,AX 
CALL KKDISP 


SETMARK Sale s RETURN TO CALLER 
3300000000000000000000000000000000000000000008000000000008000000000000 00004 


3M 

; PROGRAM HAME: KKEEOF 

rn} 

iM DESCRIPTIVE NAME: KANA-KAN ERASE EOF PROCESS 

i 

3 FUNCTION: WHEN ERASE EOF KEY IS PRESSED, THIS ROUTINE ERASE THE 
zm CHARACTERS A AND SET SPECIAL 
- CHARACTERS AFTER THE CURSOR POSITION 

ra 

$M LINKAGE: CALL 

rh! 

3M INPUT: KANA-KAN 

sa COMMON TABLES 

3 OUTPUT: KANA-K 

ae AN COMMON TABLES 

iM RETURN CODES: CAx) 

$ 
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= 0006 

ODAF 

ODAF $3 

ODBO 51 

ODBL 52 

oDB2 56 

ODBS 57 

ODB¢ 

ODBS Al OOE6 R 
ODB7 3B 06 OOEA R 
ODBB 73 15 
ODBD ES ODF2 R 
ODCO E8& ODDB R 
oDcs 

ODCS ES 16A3 R 
ODC6 ES 16B0 R 
ODCd E8 1OED R 
ODCC Al OOEG R 
ODCF AS OOEA R 
oop2 

ODD2 B88 0000 
ODDS SF 

ODD6 5E 

ODD? SA 

opps 59 

ODD? 5B 

ODDA 

ODDA C3 

ODDB 

ODDB 

OODB 8D SE 0009 R 
ODDF O03 FA 
ODE 

ODEL 83 FS 00 
ODES 76 OB 
ODE6 FC 

QOE7 Al GOOFS R 
ODEA AB 

ODEB S2 C8 
ODED AA 

ODEE 49 

ODEF E83 FO 
ODF 

ODF1 CS 

ODF2 

ODF2 

OOF2 SB 16 OOEG R 
ODF6 Al OOEAR 
ODF9 2B C2 
OOFB Bl 03 
ODFD F6 Fl 
ODFF 32 E4 
OEOL 88 C8 
QEO3S CS 

OE04S 


7m @ ~ SUCCESSFUL 


He 1 - INVALID OPERATION : 
pe EXTERNAL REFERENCES: 
Au ROUTINES: KKDISP - DISPLAY YOMI AND BANGOU a 
sx EOPCHECK ~ CHECK END POSITION OF CHARACTER LJ 
He TABLES: KANA-KAN COMMON TABLES : 
qf Nh ae 
is CHANGE ACTIVITY: VERSION 00.00 : 
; S000080800EGOnHGHNONEGDUAGEHONOUABAHNOAuONOBEAAOAAAAOBEBaner 


ZENLEN EQU 06H sZEMKAKU DATA LENGTH 

20000000 00G Ott KKEEOF S000 0000000000000 00000 0OG DOU 
ih “ 
3m ENTRY OF KKEEOF u 
mt iy 
3 900000000000900000000000000000000000000800000000GN0OOb0OnNbAnAnOHDAEBOEL 
KKEEOF one MEAR 


BX sSAVE REGISTER 
PUSH cx 
PUSH ox 
PUSH SI 
PUSH oI 
KKEE_020: 
MoV AX, KKWCCA GET CURRENT CURSOR POSITION 
cmp AX, KKWEOP CHECK CURREHT CURSOR POSITION 
JAE KKEE_ 090 


CURSOR > DATA END , GOTO RETURN 
SET PARAMETERS FOR SETCHR ROUTINE 
SET CHARACTERS AFTER THE CURSOR 


SET START POSITION 
SET END POSITION 
CALL DISPLAY ROUTINE 


CALL POINTST 
ALL SETCHR 


c 

KKEE_060: 
CALL SETSTRCL 
CALL SETENDCL 
CALL KKDISP 


ws we we we we 


we ee os we te 


MOV AX, KKWCCA GET CURSOR POSITION 
KKWEOP, AX SET NEW END POSITION 
KKEE_890: 
mov AX, OH 5 SET RETURN CODE ( NORMAL ) 
POP DI + RESTORE REGISTERS 
POP St 
PoP ox 
POP cx 
P BX 


PO 
RRER_ S983 


eT 3 RETURM TO CALLER 
KKEEOF €NDP 


jMMRMNCS ET CHIR > 00 0000 00 0 8 0 a a {2000000000000 O0000BOOUOIOIOE 
a” 
3a SET SPECIAL CHARACTER AFTER THE CURSOR a 
3m INPUT: J 
an CX -- LOOP couNT “ 
Ue DX -- START POSITION TO SET CHR, . 
3 a 
3 AiHUN<SE7 CHR in uiGoGnaHOOANGONODOGGO EH AANnHoODoAlNCAHA AEA 
SETCHR PROC NEA 

LEA DI, KKINBUF + GET OFFSET OF INPUT BUFFER 
S00 ADD DI,Dx ¥ ST POINTS START POSITION TO Set 

3 
cup CX,0H 3 LOOP END ? 
aon ST_990 + YES,GOTO RETURN 


MOV AX, KKCHRSP + GET SPECIAL CHARACTER CODE 
SET CHRACTER CODE 


YI 
=“ 
o 
7 
z= 

~ 


XOR ALL AL 

STOSB } CLEAR SCAN CODE AREA 
OEC cx 

JMP SHORT ST_#10 + LOOP PROC. 


ST_990: 
RET 5 RETURN TO CALLER 

SETCHR ENDP 

3 WEEP ONS 72000000 0U00000100001QQU000 0000000 QOH ROOOUNOUAGIGAIAUE 

iT) 


a 

hl SET START & END POSITION AND LOOP_CNT TO BE SET SPECIAL CHR. x 
au OUTPUT: ] 
om CX -- LOOP COUNT " 
He DX -- START POSITION TO SET ChR. a 
3 " 
AUUUS SPO 00S > 000100000000000000000000000000000000NOQ00AG0QU00RGHODERDOE 
POINTST PROC NEAR 3 

MoV DX, KKWCCA 3 GET CURRENT CURSOR POSITION 

MOV AX, KKWEOP 3 GET END POSITION 

SuB AX, 0X 

mov CL, INDEX ; 

DIV cu 

XOR AH,AH 3 CLEAR AH 

MOV CX,AX 3 SET LOOP 


CNT. 
RET i RETURN TO CALLER 
POINTST ENDP 


PEL EL LLL y | {0000000000000 000 
3m 


“ 
3 PROGRAM NAME: KKBACK : 
4 
s4 DESCRIPTIVE NAME: KANAKAN BACK SPACE PROCESS ROUTINE : 
aM 
sM FUNCTION: WHEN BACK SPACE KEY IS PRESSED, THIS ROUTINE DELETES J 
7" “THE CHARACTER FRONT OF THE CURSOR AND SHIFTS CHARACTERS 
ya AFTER THE CURSOR POSITION LEFT : 
im 
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36 0009 R 
OOE6 R 
oooo 

os 


0000 
OE 


1E OOE6 R 
DE 

47 FE 
1341 8 
Ds 


OESE R 
16B0 ® 
1OED R 
16 OOEA R 


ix LINKAGE: CALL KKBACK 
3 


3m INPUT: KANA-KAN COMMON TABLES 
3m 


$™ OUTPUT: KANA-KAN COMMON TABLES 

3” 

be RETURN CODES: (AX) 

: u 
im © - SUCCESSFUL 

a! 1 - INVALID OPERATION = 
3m 

ix EXTERNAL REFERENCES! " 
; « 
3m ROUTINES: KKDISP -- DISPLAY DATA OF KANAKAN INPUT BUFFER 

« -- SHIFT DATA FO INPUT BUFFER AN ™ 
i DISHFT ~~ xD POSITION D CHECK x 
3m 

7m TABLES: KANA-KAN COMMON TABLES x 
3m 

3" REGISTE AX - RETURN CODE * 
Lael sl ALL OTHERS UNCHANGED x 
3m 
ix CHANGE ACTIVITY: VERSION 00.00 " 
3.310000000000000000000000000000000000000000000000D208O OND N OOOO OEE 
3 


3 
7U00C< KKB ACK >100000000000000002000800000000 0000022008 R IGRI 
3m 
zm WHEN BACK SPACE KEY IS PRESSED, THIS ROUTINE IS CALLED “7 
zm 


; " 
3000000<K KB ACK >00000000000000000000000000U OOOO 
KKBACK PROC N eialalalalalolel 


PUSH BX 3 SAVE REGISTERS 
PUSH = CX 
PUSH DX 
PUSH = SI 
PUSH DI 
KKBK_020: 3 
LEA SI, KKINBUF + GET OFFSET OF INPUT BUFFER 
MOV AX, KKWCCA 3 GET CURRENT CURSOR POSITION 
CMP AX, 0H 3 CURSOR = BUFFER HEAD ? 
JNZ KKBK_070 3 NO,GOTO... 
KKBK_040: 3 CURSOR IS BUFFER HEAD 
Mov BX, 0 
JMP SHORT KKBK_137 
KKBK_070: 3 CURSOR ISN'T BUFFER HEAD 
mov BX, KKWCCA 3 GET CURRENT CURSOR POSITION 
, . 
MOV AL, BYTE PTR DS: (BX-2) 
3 GET ATTR. OF PREVIOUS DATA 
CALL = KCALELM 3 GET DATA LENGTH 
MOV BX, 
KKBK_137: 
CALL —-BKSHFT 
CALL —- SETENDCL 3 SET END POSITION 
CALL —saKKDISP 3 CALL DISPLAY ROUTINE 
KKBK_150: 
SU KKWEOP , DX 3 UPDATE END POINT 
KKBK_160: 
MoV AX,0 3 SET RETURN CODE (NORMAL) 
POP DI 3 RESTORE REGISTERS 
POP $I 
PoP DX 
POP cx 
Pp BX 


PO 
KKBK_990: 

RET 3 RETURN TO CALLER 
KKBACK _ENDP 


32000006 BK SH FT 2 10000000000000000000 22000000000 GO VOODOO TE OE 
3m 
3™ SHIFT PROCESS OF BACK SPACE PROC. ROUTINE : 
zé 
7000006 BK SH F.7>21000000000000000000000000000000 0000080080000 00000000 


BKSHFT PROC HEAR 3 
Mov AX, KKWCCA 3 SET PARAMETER TO DTSHFT 
SUB AX, BX 3 AX CONTAIN DATA POSITION 
CALL DISHFT + SHIFT DATA & CHECK EOP 
SUB KKWCCA, BX *; UPDATE CURRENT CURSOR POSITION 
MoV AX, BX + GET DATA LENGTH 
MOV CL, INDEX ; 
DIV cL ; 
XOR AH, AH 3 CLEAR AH 
SUB DCRSRP,» AX 3 SET CURSOR POSITION 
oe SETSTRCL 3 SET START POSITION 


BKSHFT ENDP 
7 10101000000010000000000000000000100000000000000 BUG ROORO ROO OS 


iM OUTPUT: KANA-KAH COMMON TABLES 
3M RETURN CODES: (AX) 


" 
7” 
3® PROGRAM NAME: KKDELT “ 
rz | 
i% DESCRIPTIVE HAME: KANAKAN DELETE PROCESS ROUTINE . 
+ FUNCTION: WHEN DELETE KEY 15 PRESSED, THIS ROUTINE DELETS " 
zm THE CHARCTER ON TH ND SHFT CHARACTERS = 
Lt DETER THE COR oR ME CURSOR POSITION A : 
3” 
iM LINKAGE: CALL KKDELT “ 
7” 
3M INPUT: KANA-KAH COMMON TABLES ° 
i] 
" 
" 
a" 
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OESA 
OESA 
OESB 
oesc 
OESD 
OESE 
OESF 
OEb2 
CE66 
OE6S 
OEbC 
OEGE 
OE71 

GEIS 
OE77 
OE7A 

OE7a 
OE7E 
oE&sO 
O£80 
oO€80 
OE8S 
OE8S 
08S 

OE86 

9€87 

O£88 
OE8S8 

OE89 


BS 
SF 
SE 
SA 
59 
3B 


cs 


ol 0 - SUCCESSFUL 


" 
™ 1 - INVALID OPERATION cy 
on " 
3" EXTERNAL REFERENCES: " 
oH 7 
im ROUTINES: KKDISP -- DISPLAY DATA OF KAHAKAN INPUT BUFFER " 
Hl DTISHFT -- SHIFT DATA OF INPUT BUFFER AND CHECK a 
3m END POSITION " 
+ " 
im TABLES: KANA-KAN COMMON TABLES ” 
* a 
>® REGISTERS: AX - RETURN CODE a 
HL! ALL OTHERS UNCHANGED ry 
7 ' 
iM CHANGE ACTIVITY: VERSION 00.00 " 
7” a 
3000000000000 000000000 ODODE 





MMM KK DEL T > 6 06 O6 wo a0 Oe Be 0 Oe OO Oe DO OO 9 OO OO GE OO OO me 
x 


THIS ROUTINE DELETES A CHARACTER ON THE CURSOR ry 
3M " 
20000000 DEL T> 0000000000000 000000100000000100000000000 0000 0000UOG OBOE 
KKDELT PROC NEAR ; 

PUSH BX 3 SAVE REGISTERS 

PUSH cx 

PUSH Dx 

PUSK SI 

PUSH oI 

MoV AX, KKWCCA > GET CURRENT CURSOR POSITION 

cmP AX, KKEOPMAX > CHECK BUFFER END 

JAE KKDL_200 

cmp AX, KKWEOP CHECK CURSOR POINT 

JAE KKOL_110 noP 


CALL DISHFT 
CALL SETSTRCL 
CALL SETENDCL 


SHIFT DATA & CHECK EOP 
SET START POSITION 
SET END POSITION 


we we we we we we 


CALL KKDISP CALL DISPLAY ROUTINE 
KKOL_100: 
SUB KKWEOP , DX 3 UPDATE EXDPOSITION 
InP SHORT KKDL_110_ ; 
KKDL_200: 
KKDL_110: 
Mov AX, 0H 3 SET RETURH CODE 
POP DI 3 RESTORE REGISTERS 
POP SI 
POP 0x 
POP cx 
POP Bx 
KKDL_990: 
RET 3 RETURN TO CALLER 


KKDELT ENDP 
JUDO UO0IGDIRUHDIROOIOGOOOOOUCUIIOUOGO 00000000000 UD 00D O0DD0RDIBGGOTOHE 
3" PROGRAM NAME: KKKNOR 


" 
DISCRIPTIVE NAME: READ DICTIONARY x 
" 

FUNCTION: ACCESS TANKANJI DICTIONARY a 
" 

LINKAGE " 
INPUT: " 
1. CENGTH OF YOM! ( DS,SI >) + 6 " 

2. YONI (08.81) #2 a 

OUTPUT: a 
1. NUMBER OF CANDIDATES (¢ CX ) a 

2. CANDIDATOS € €S,01 >) " 

3. RETURN CODE « ax) a 

" 

RETURN CODES: (AX) “ 

“ 

0 - SUCCESSFUL a 

1 - YOMI NOT FOUND a 

4 - YOMI LENGTH EXCEPTION J 

8 - HIRAGANA CODE EXCEPTION " 

16 - DICTIONARY FORMAT EXCEPTION i] 

" 

EXTERNAL REFERENCES: “ 
ROUTINES: NON " 
TABLES: TANKANJI DICTIONARY a 

. 

REGISTERS: AX - RETURN CODE a 
CX - NUMBER OF CANDIDATES " 


€ €5,D1 ) - FIRST CANDIDATE TOP ADDRESS 
ALL OTHERS UNCHANGED 


. 
a 
a 
RESTRICTIONS: . 
YOMI LENGTH INDICATION: a 
DICTIONARY CONTAINS YOMI LENGTH INFORMATIONS a 

BY FOLLOWING CONVENTION , i] 

1. 81H INDICATES THAT YOME LENGTH IS 1 a 

2. 80H INDICATES THAT NOLENGTH } YOM IS CONTAINED IN 8 

THIS DICTIONARY. AFTER 80H, NEXT YOME IS CONTAINED. a 

3. IF YOME LENGTH 1S GRATER THAN 2 OR EQUAL 10 2 THEN 

LENGTH IS NOT CONTAINED, BUT YOMI DELIMITTER INDICATE & 
THAT LAST CHARACTER OF THAT YOMI. . 

. 

s 

a 

a 

a 


CHANGE ACTIVITY: VERSION 00.00 
KJ CODE COMPACTION REJECTED 


sDIC LABEL BYTE 3 2 BYTE MEMORY ON DICTIONARY 
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Appendi 


@1les 
ooce 
OOBF 
OOFs 
OOFE 


enununnw 


m 
o 
<2 


OF11 


x A. 


OEBE R 
ce 
18 
GED? R 
co 


11 
06 O13SE R O008 


co 
O1lB R 
80 
OLOB R 


80 610B R se 
B co 


03 


eooa 
E 


; 2 BYTE MEMORY ON 
; WORD ; DicTr9 
ipreD tABEL DWORD s Buna deren) ON DICTIONARY 
TOP Qu TAHK4 ; ERRUPT © PARAMETERS 
CoH EQU 110000008 ) 
BFH EQU 101122128 
F8H EQU 111110008 
FEH EQU 411111308 
} oeog 0 20000000000010000000000 000000000 0000000000000000000OIBOROEBEIER 
in Cc MAIN OF KKKWDR) * 
rat 
: PET iti PELE tL LLL LiL Ebi tir dt “ 
Hee ee eeeeee tia emmceenenC PRE SET ern ee ONNOONOOOONE 
PUSH DX asoeeue 4 
PUSH " 
rue" Xs 
MOV ES, AX 
MoV CX,8 
LEA DI-KKYOMIL 
REP MOVSB 
Ly leaner e---C END OF PRESET )------- 
CALL —- LENCK ; LIMIT CHECK OF vomI LenctH 
ne iit j AK “> REYURN ODE 
JN 
CALL —«HRGCK 3 HIRAGANA CODE LIMIT CHECK 
tne’ thatho pK "TRETDRN OBE 
JNZ 
MOV KKOHOSUU, 0000H 
CALL © ACCDICT + ACCESS DICTIONARY 
MOV CX, KKOHOSUU 3 
TEST AX, AX AX --- RETURN CODE 
RE 3 exvcx CANDIDATE NUMBE 
ERREND: SUB e ; R IS 2E 
ENDMAIN: RO IF ERROR 
PoP st 
POP Bx 
POP Dx 


RET 
KKKNDR ENDP 


3000000000000 0000 
+™ PROCEDURE NAME: 


3% FUNCTION: 
3 


LENCK 


LIMIT CHECK OF YOMI LENGTH 


LENCK PROC NEAR 

SUB AX, AX 

MoV AL, KKYOMIL 

CMP AX,1 

Jt LENCKER 

CMP AX,7 

JG LENCKER 

MoV CX,AX 

SUB AX, AX 

JMP SHORT LENCKO9 
LENCKER: MOV AX, KKECYMLN 


LENCKO9: RET 
LENCK ENDP 


, 


3 
3 


€ AX ) =~ GIVEN LENGTH OF YOMI 
LOWER LIMIT CHECK 


UPPER LIMIT CHECK 


€ CX ) -- VALID GIVEN LENGTH OF YONI 


YOMI LENGTH IS VALID 
YOMI LENGTH EXCEPTION 


30 0000000000000 EOE 
>™ PROCEDURE NAME: HRGCK 


3" FUNCTION: HIRAGANA CODE CHECK 


AND GENERATE DICTIONARY-LIKE YOMI ID " 


3330000000000 000 OTE DOO 


3 
HRGCK PROC NEAR 
PUSH ol 
PUSH SI 
mov SI,0 
MoV I,-1 
PEPE TEE EEE ELE SE 
HRGOS: INC DI 
SUB AX, AX 
Mov AL .KKYOMICDI) 
CMP AX, 009FH 
JB HRGEXCP 
cmp AX, OOFEH 
JA HRGEXCP 
AND AL,7FH 
MOV KKGVNYM(DIJ,AL 


LOOPNZ HRGOS 
3000000000000 


SUB AX, AX 

MOV AL, KKYOMIL 

OR L,80H 

MOV KKGVNYM, AL 

OR KKGVNYM( D1), 80H 

SUB AX, AX 

SMP SHORT HRGO9 
HRGEXCP: MOV AX, KKECYMHR 
HRGO9: POP sI 

PoP oI 


RET 
HRGCK —ENDP 


; 
3 
$ 
3 


: 
. 
3 
t 
$ 
$ 
3 
3 
3 


We we we we we we we we ee ee we 


NEXT HIRAGAHA CODE 


LOWER LIMIT CHECK 
UPPER LIMIT CHECK 


RESET DELIMITTER 
COPY A HIRAGANA CODE TO WORK AREA 


YO 1D TH DICTIONARY 
YOM! ID IN 
OF TRST HIRAGANA IS OVERIDED BY 
LENGTH OF YOMI 
DELIMITTER OF YOMI ON 


HIRAGANA CODE IS VALID 
EXCEPTION 


300 0000000000000 OE PTT 11111 lslelslelstaiebeetelolalatatale! 
;" PROCEDURE NAME: aCCOICT 0 0 DO a 


| 
ACCDICT PROC 


re! 
3M 


3M FUNCTION: DICTIONARY ACCESS 


NEAR 


" 
3 000200000000000000000000000000008 000000 QDR IBDUDO REDO REOOOOL 


3100000000000 0000008000 OE 


FETCH TOP ADDRESS OF DICTIONARY i 
AND LENGTH OF INDEX 
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OF11 


OF2A 
OF2A 
OF2C 
OF2F 


OF31 
OFSS 


OF3S 
OF36 
OF38 
OFSB 
OFSD 


EB 10D1 R 


E8 OFZAR 
85 CO 
75 OE 
E& OF60 R 
85 CO 


75 07 

E& OFC4E R 
8B 3E 0140 R 
cs 


2B CO 

AO 0119 R 
24 =7F 

2c 1€ 

DO EO 

57 

03 F8& 

26: 8B O05 
86 EO 

SF 


3D FFFF 
74:16 


$3 
56 


8B FA 

EB 1080 R 
8B OE 0116 8 
3A QE 0118 R 
7D 23 


O3 F9 
47 


83 F9 61 

75 01 

47 

26: 80 3D 81 
74 OF 

26: 80 3D 80 
74 «09 

ES 1080 R 
8B OE O1lG R 
EB oc 

BS 0001 

EB 0D 


SA CE 0118 R 
7F 04 


32100000918889099900000000000000000000000000000000000000000000000000000004 


GETOICT 


CALL 
FE OOO EID IIIT IIIT III 


SEARCH DICTIONARY 


}11100000000000000000000000000000000 EARLE eee ee anounionbanooneR! 


CALL CALAD9G 
TEST AX, AX 

JNZ ACCDO9 
CALL NDXSRC 
TEST AX, AX 

JNZ ACCDO9 
CALL YMSRCH 

DI,KKDICOFF 


MOV 
ACCDO9: RET 
ACCDICT ENDP 


/ DICT mee ON-SAKUIN 


X --- RETURN CODE 


; 

3 SEARCH YOMI IN INDEX 

3 IM 1: DX YOMI ID IN IHDEX 
3™ OUT Ps YOMI_ ID IM DATA 


X --- RETURN CODE 
s 
3 SEARCH YOMI IN DATA 


3 FIRST CANDIDATE 


PROCEDURE NAMES CAA aaa a MIMI CO 
3™ PROCEDURE NAME: CALAD96 


" 
: FUNCTION: CALICULATE Hi OWN INDEX ADDRESS 


CALADS6 sue 


NEAR 


UB AX, AX 3 
mov AL, KKYOMI : ate CHARACTER OF GIVEN YONI 
AND ’ SET DELIMITTER 
§lroswseres=a5 mame eee ¢ SAKUIN, ADDRESS CALCULATION )-------~----.y 
SUB AL.1EH : 
SHL AL,1 MULTIPRY 2 
lem eeen---- . END o 96 ON SAKUIN’ ADDRESS” CALCULATION LOGIC )---~-----4 
Pus 3 
ADD DI,Ax 3 TOP AND DISPLACEMENT ---> appress 
ee ree co 3 AX: INDEX ENTRY DISPLACEMENT @) 
XCHG . 3 
PoP 3 ES*DI-->TOP OF DICTIONARY 


3 aaiaaeciapaaiaamaatimapaiaing erg rg rig errr ll 


LIMIT CHECK OF 96 INDEX POINTER “ 


CMP X,-1 

JE CALAG2 

CMP AX, 00C2H 

Jt CALAOS 

cmP AX, 7 FFFH 

JG CALAOS 

ADD AX, KKDICOFF 

Mov DX, AX 

Sus AX, AX 

JMP SHORT CALAO? 
CALAO2: MOV AX, KKECHOTF 

JMP SHORT CALAO9 
CALAO3: MOV AX, KKECDICT 
CALAO9: RET 


CALAD96 ENDP 


3™ PROCEDURE NAME: NDXSRC 


Efe FUNCTION: SEARCH YOMI IN INDEX 


3m nu 
3 20000 2001000900000000000000000000000000000000000N00NNNNANHENNNNNNDNDE 


NDXSRC PROC 
PUSH 


NEAR 
BX 
SI 


NO ENTRY OF POINTER 

LOWER LIMIT CHECK iis 
UPPER LIMIT CHECK 

ADD DICTIONRY TOP CEFSET 

DX : INDEX OFFSET SAVE REGISTER 

NORMAL RETURN 

EXCEPTION * YOMI HOT FOUND * 


EXCEPTION * DICTIONARY FORMAT ERROR * 


we we we we we we we we OF we Oe we Oe Oe 


3 
3 


PUSH 
3000000000800 00000000000000000000000000NNNNRONOONONENHGNNNNANNDL 


SEARCH YOMI INDEX 


# #21000010000000000000000000000000000000000000000000000000000000 000000001 
mM 


+ OFFSET OF YOMI ID IN INDEX 

3 GET YOMI LENGTH IN DICTIONARY 
3 (CX) YOMI LENGTH ON DICTINARY 
3 KKYOMI IS * GIVEN YOME LEXGTK ° 
3 
¢ 


DI -~ NEXT YOM! ON INDEX 
OID#L 42-1 ~-> (DI) 


BYTE te ES:(DIJ,81H 3 NEW FIRST YONI 
BYTE ne ES:(DI),380H 5 NEW FIRST YONI 


OV DI,0x 
CALL YMLENC 
MOV CX, KKLENYN 
NDXIF: CMP CL. KKYOMIL 
IGE NDX2CAS 
aoD DI.Cx 
INC LD ¢ 
i 
CMP Cx.1 
JNE NOXSKP 
INC oI 
NDXSKP: CMP 
JE NDX2E 
CMP 
JE NDX2E 
CALL YMLENC 
MOV CX, KKLENYM 
JMP SHORT NOXIF 


NOX2ELSE: Mov 


JMP 


AX, KKECNOTF 


SHORT NDXECAS 
32000000 OOL 


3 GET YONI LENGTH IN oe 
i YOMI LENGTH --> 


3 YOMI NOT FOUND 


(1000000000000 OQ ONNL 


NOX2CAS: CMP CL.KKYOMIL + COMPARE GIVEN YONI LENGTH WITH 
JG NOX3CAS 

‘? fe wert wares -( INDEX YOMI LEN. = GIVEN YOMI LEN, =" 
SUB AX, AX + YOMI FOUND IN DICTIONARY 
JMP SHORT NDXECAS 


edelebebebdebbl DEL OLLLLELULULiLLLLiLiireretirettrrerriti titi TTT TTT Tri ttit 


NDX3CAS: MOV 

NDXECAS: CMP 
JNE 
MoV 
CMP 
JE 
DEC 


AX, KKECNOTF 
x 


AXx,0 

NOXNEXT 
Bx, DI 
CX,1 
NDX000 
cx 
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3 EXCEPTION * YOMI NOT FOUND ' 
; RETURN CODE -- ( AX ) 


Appendix A. 


52 


56 
80 SE 0118 R O1 
75 OB 


26: 88 3D 81 
75 52 

E8 1058 R 

EB 50 


26: 80 3D 86 
75 03 

83 C7 O1 

26: 80 3D 81 
75 05 

EB 103E R® 

EB FS 

26: 86 3D 80 
75 05 

BS 0001 

EB 31 

26: 80 3D 81 
74 28 

8B D7 


€8 102D R 
76 13 


FA 
EB 103E R 
26: 80 3D 81 
16 


26: 80 3D 80 
10 
EB £6 


FA 
E8 102D R 
75 07 


BFA 
EB 1058 R 
BOS 


B& 0001 
FA 


28 C9 

2B F6 

8D 36 OC10B R 
46 

8A OE 0118 ® 
49 

F37 AG 

cs 


EB 10C1 R 

3D 0000 

75 OL 

46 

OS F8 

26: F6 05 80 
75 05 


83 C7 02 
EB FS 


NDX000! 


re E 
MX OH 


3« PROCEDURE N 


yu FUNCTION: YOMI SEARCH 
701 900000000080008000000880000008 


H PROC 
Yesrc PUSH 


PUSH 
cMP 


E 
§9810000000 1000009000 0000008 


Fa! 
7 UBGOB0080000T 
CMP 


JMP 


$900000000000000080000000000008008080C00000000800000800¢ 
He GIVEN YOMI LENGTH NOT } 
720000000000000008080000000000008000000000000000006 

BYTE PTR ES:(DIJ,80H 


YesRoS: CMP 
JNE 


YMSRLOOP 
re: Dire PTR ESeCDID BIN.» Ch. CONTE 
fi t ° ; . 
YesRLOOP: CHP i a OMT LENGTH INDICATION ¢ L=1 ) 
CALL YMNEXT 3 SEARCH NEXT ENTRY 
IMP SHORT YMSRLOOP ; + YOns 3 
Yusro7: CMP ee Tie ES: CD13, 80H + CF. YOMI LENGTH INDICATION 
MOV AX, KKECNOTF 3 EXCEPTION ° YOMI NOT FOUND « 
JMP SHORT VUSRO? aay 
YMSRO8: CMP BYTE PTR ES: . 3_CF. YOMI LENGTH IND = 
JE YMSRER 3 EXCEPTION * YOMI NOT FOUND SON hone 
YMSRLOPZ’ TY YOHTC ; SOMPARE GIVE 
c 3 N YOMI AND ON 
er wees : DICTIONARY 
a lc ai aa woor--C( GIVEN YOMI > DICTIONARY YOMI )----- “ 
MoV DI,DX 3 RETRIEVE YOMI ID ADDRESS 
CALL YMNEXT 3 SEARCH NEXT YOMI EXTRY 
CMP BYTE PTR ES:(€DI),81H ; CF. YOMI LENGTH IN 
JE YMSRER 3 EXCEPTION ° YOMI NOT FOU 
cmp BYTE PTR ES:({DIJ,80H ; CF. YOMI LENGTH IN 
JE YMSRER 3 EXCEPTION * YOMI NOT FOU 
JMP SHORT YMSRLO 3 CONTINUE SEARCH YOMI AND COMPARE 
5 Ween nn -- een n nn ----- == ( END OF GIVEN YOMI > DICTIONARY YOMI )-~~--- " 
YMSRO9: MOV DI,DX 3 RETRIEVE YOMI ID 
CALL YOMIC 3; COMPARE GIVEN YOMI AND ON DICTIONARY 
JNE YMSRER 3 GIVEN YOMI < DICTIONARY YOMI 
MOV DI,DX 3 RETRIEVE YOMI ID 
CALL SETCAND 3 SET CANDIDATES TO OUTPUT BUFFER 
JMP SHORT YMSR99 
Skwowrecserere SOSA Oe te hee ee ee ee ee ee SS Se am em aan eae eee SAS nee Sess Sewanee = i 
YMSRER: MOV AX, KKECNOTF 3 EXCEPTION * YOMI NOT FOUND ' 
YMSR99: MOV 1,DX 3 RETRIEVE YOMI ID ADDRESS 
PoP SI 3 
POP DX 3 
RET 
YMSRCH EXDP 
3000000000000 000080 RTO OOOO 
3% PROCEDURE NAME: YOMIC “ 
3™ FUNCTION: YOMI COMPARISON ( GIVEN YOMI AND ON DICTIONARY ) x" 
rt 
30000001000008000000080000 80000000 OOOO OOOO 
YOMIC PROC HEAR 
ae S43 
s , Hi 
LEA SI,KKGVNYM 3 KKGVNYM CONTAINS DICTIONARY LIKE YOMI 
INC $I 3 COMPARE FROM SECOND CHARACTER OF YOMI 
MOV CL, KKYOMIL 3 GIVEN YOMI LENGTH 
DEC cx 5 MMM 
REPE CMPSB 
RET 
YoMIc ENDP 


Xx, CX 
oes: (BX) 
AH,AL 
DI. AX 
AX, 
DI.KKDICLN 
DI, KKDICOFF 
SI 
BX 


AME: YMSRC! 


NEAR 
x 


sI 
KKYOMIL,1 
YMSROS 


3 
3 
3 


3 


190090000000002000020000000000 0000000000004 
IN DATA 


LI 
3 


3 
3 
3 


Lill LLULULEELE ttt t 
GIVEN YOMI LENGTH = 


(_ES,BX ) -~> po 
FETCH POINTER FROM Fepit THDEX 
DI --~ POINTER DATA of Dic 


TIONARY 
DICTIONARY 
( ES,DI INDEX LENGT 


y ==> D 
YOMI In DICTIONARY DATA 


200000000000 G00E 


COO OOOBONOORONOODOOC OLE ™ 
Pere! 


YOMI LENGTH COMPARISON 


20000000 O0OOE 


PLE LLL Lillie iellelelititel LULL LELLi tt ttt] La 
BYTE PTR ES:(DIJ,81H > YOMI ID COMPARE MM IOC C00 


YMSRER 
SETCAND 
SHORT YMSR99 


a 


RE 


GET FIRST CANDIDATE OFFSET anp 


bbb ELLCL LITT Tt ere 


« 
2080000000000 


3 910000000000000000000000000000 0000000000000 202 VU OND IVOVOE IEEE IRIS 


3" PROCEDURE N 


AME: YMNEXT 


3M FUNCTION: SEARCH NEXT YOMI IN DATA : 


“ 
3m 
3 
31000000000, 00000000000 00 0900000000000 00000 0000000000000 0000008000820 OE 


YHNEXT PROC NEAR 
CALL LENGYM 
CHP AX, 
JHE = -YMSKP 
INC AX 
Yruoor, TEST BYTe™ é 
1 E PT 
NZ. YHNXog © CS *COII.80H 


+ GET YOMI LENGTH ON DICTIONARY 


ARACTER OF 
ES¢+DI--> NEXT OF LAST CH 
; CHECK DELIMITTER 


PEL TT EE LLL Li Leber tg 2000000000000 00 OOOO rT 
{000000000 OOOOT x 


ri! 
; 
HL billet LLL itt 1 ttt 


ado 
JMP 


SHORT YMNXLOOP 
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NON LAST CANDIDATE 
PEP ECLELT CULL ULL ilalelal TE 
3 POINT TO NEXT CANDIDA 


1088 


m eo0c00000 FDODNNN |A|ANANAN AAS 


83 C7 02 
cs 


89 SE 0140 R 
8C 06 0142 R 


F6 
26: F6 05 80 
75 05 


E&8 10C9 R 
EB FS 


ut eel elder arts rer eee ee 
LAST CANDIDATE 
##9000000000000900090000000000000000003010000000000000000000 040000000008 
YMNX06: ADD DI,2 
RET 


. 5 POINT TO SECOND CHARACTER OF YOMI 
YMNEXT ENDP 
Jon oore ooo ganene a acanxan ano SHANNON NAAN 
3™ PROCEDURE NAME: SETCAND 

A FUNCTION: SET CANDIDATES TO OUTPUT BUFFER : 


}1900000000001900039000001800000000oonQGnbOONsOBNNNHOOOOLOBBOEABEENOOONar 
SETCAND pROe HEAR 
UB 


AX, AX ; 
MoV Rue KKYOMIL 3 ( AX ) GIVEN YOMI LENOTH 
CMP X,2 
Jt SEtSe 
DEC 3 CF. YOMI LENGTH IUNDICATE 
SETSKP: ADD Or Ax 3 ( ES,DI_) POINT TOP OF CANDIDATES 
MOV KKDICOFF, DI 3 SAVE OFFSET OUTPUT OF THIS ROUTINE 
MoV eee ; aa SEGMENT OUTPUT OF THIS ROUTINE 
SUB SI,SI 3 P OF OUTPUT BUFFER 
SETCLOOP: TEST oe. EAR Es:(bI), 80H 3 IF LAST CANDIDATE FOR THAT YOMI 
JNZ SE 3 THEN JUMP 
}nononnbmon oo Donk ERAN An RNR EN 
7* HOM LAST CANDIDATE 
# 9000000000000000000000000000000000000000000)000000000008000 UB UR00DO DODGE 
CALL SET2BKJ 


SHORT SETCLOOP 
| alles iasiactiaaciiat Gg; acai aa 


E8 10C9 R 
2B CO 


cs 


BS 00 
26: 80 
74 :1€ 
26: 80 
74 20 
B9 000 
26: F6 
09 


83 C7 


3D 81 
3D 80 


2 
05 80 


07 


3 0116 R 
: O116 R 0001 
: 01236 R 0000 


02 


tial LAST CANDIDATE 
3 9100900000000000000000000000000000000000000000000000000000000000000000001 
SETCOG: 

CALL SET2BKJ 

SUB AX, AX 3 MORMAL RETURN 

REY 


E 
SETCAND ENDP 


Bae CAROL CLORE GAEL CHEE a NNR AAR mE RHEE 
+" PROCEDURE NAME: YMLE 


on 

3" FUNCTION: COUNT LENGTH QF YOMI ON DICTIONARY : 
im 
3 901010000000000000000000000000000000000000000000000b Rb ONONNOOONNOOILE 
YMLENC PROC NEAR 

PUSH DI 

PUSH cx 

PUSH BX 

MOV AX,0 

ai we ES:(DI),81H 3 CF. YOMI LENGTH INDICATION 

ML 

cmP BYTE PTR ES:(DI},80H 5 CF. YOMI LENGTH INDICATION 

JE YMLC2 

MoV Cx,2 
YMLREP: TEST BYTE PTR ES:(DI),80H 5 IF LAST YOMI CHARACTER 

JNZ YMLREPE ; THEN JUMP 

CMP CX.7 + YOMI LENGTH LIMIT CHECK 

JG YMLERR 3 YOMI LENGTH ERROR 

Inc cx + COUNT YOMI LENGTH 

INC DI + POINT TO NEXT CHARACTER OF YOMI 

JMP SHORT YMLREP 
YMLREPE: MOV KKLENYM, CX 3 SET YOMI LENGTH >= 2 

JMP SHORT YMLEND 
YMLC1: MOV KKLENYM, 1 3 SET YOMI LENGTH IS 1 

JMP SHORT YMLEND 
YMLC2: MOV KKLENYM,0 3 SET YOMI LENGTH IS @ 

JMP SHORT YMLEND 
YMLERR: MOV AX, KKECDICT + EXCEPTION ' DICTIONARY FORMAT ERROR * 
YMLEND: 

PoP BX 

PoP cx 

3 or 


RET 
YMLENC ENDP 


JODO 00000000 GOOG t 


LENGYM PROC 
CALL 
MOV 
DEC 


RET 
LENGYM ENDP 


3 0000000 OOO ROE 


SET2BKJ PROC 
ADD 
ane 


SET2BKJ ERDP 


3200000000000 O00 


GETDICT PROC 


YMLENC 
AX, KKLENYM 
ax 


DI,2 
KKOHOSUU 


DI.0S: (BX) 
AX, ES: CDI) 
AH,AL 

os 


KKDICLN, AX 
KKDICOFF,DY 
AX 


Bx 
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3 
3 
; 


ws we we we 0s we we we 


AX = YOMI LENGTH ON DICTIONARY 


POINT TO NEXT CANDIDATE 
INCREMENT CANDIDATE NUMBER 


is pC ONTATAS ZERO 
~~ INT JA MG 


Ger PARAMETER FOR DICTIONARY (€ SEG & OFF ) 
DICTIONARY INDEX LENGTH --- AX 


RETRIEVE DATA SEGMENT 
DICTIONARY INDEX LENGTH 
DICTIONARY TOP OFFSET 


Appendix A. 


10E€D 


co 


0107 
FF 


OOF1 
OOFC 


Raw 


GETDICT ENDP 
; Fy tebeialelaelaielaiaeleiallahlaioaiaeiaaiaaaaiaeieiiieebbebeea LLC Tt tT) 


im PROGRAM NAME: KKDISP 
i DESCRIPTIVE NAME: DISPLAY YOMI AND BAGOU 


iH FUNCTION: THIS ROUTINE DISPLAYS DATA: AND SETS CURSOR 
iX LINKAGE? CALL 

i¥ INPUT: KANA-KAN COMMON TABLES 

iM OUTPUT: KANA-KAN COMMON TABLES 

ix RETURN CODES: (AX) 

zm 0 - SUCCESSFUL 

de 1 - INVALID OPERATION 


ae EXTERNAL REFERENCES: 

He ROUTINES: NONE 

he TABLES: KANA-KAN COMMON TABLES 
s® REGISTERS: AX - RETURN CODE 


He ALL OTHERS UNCHANGED 
pe CHANGE ACTIVITY: VERSION 00.00 
3M 


ooo aodonEH HRA KKDISP eeennaaKOnneEHRNOMAMNRR RNR 
“ ENTRY OF KKDISP x 


a" 
; SAAS n Ci icici seam aces euaciacn oe naRiAirne einai 
RKDISP PROC JOU 00016 0000 





PUSH $I ;SAVE REGISTER 
PUSH DX 
PUSH aX 
ee oe ee ee Sere ss 
im DISPLAY DATA . 
DISO10: ii 
mov DX, DSTRTP ;LOAD START POSITION 
CMP DX, OFFFFH ;ONLY CURSOR DISPLAY 2 
JE DIS020 ; YES. GOTO 
Mov SI, KKINP ;LOAD INPUT BUFFER POINTER 
MOV DH,KKOILP 
pIso12: 
mov AL,KKINBUF(SI] ;LOAD DISPLAY DATA 
CALL WISP ;DISPLAY DATA 
MOV AX, DENDP ;LOAD END POSITION 
CMP AL, DL ;FINISH DISPLAY 
JE DI$020 YES .GOTO 
INC DL ;CURSOR POSITION 1 UP 
ADD $I, D03 ;RENEW INPUT BUFFER POINTER( #3) 
MP SHORT DISO12 
3 Mmmm wwe nn ee eee e ers en== Saws Tena Sa = mms: SSeS e— SSS S=S== ewe eee———N 
3M SET CURSOR : 
SEER 9D crreonci EEOC SSSA Sati ea ee eet a watesecosy 
DIS020: 
mov DX, DCRSRP 
MOV KKCUSR, DX ;SAVE NEW KANA-KAN CURSOR POSITION 
MOV DH, KKOILP ;LOAD OIL POSITION 
MOV AH, VSETACP 
INT VIDEO SET CURSOR POSITION 
PUSH DX + PUSH DX 
MOV AH, VRDACP ; 
INT VIDEO ; READ CURSOR TYPE 
AND CH, NOT CURSOR_DISABLEs CURSOR DISABLE BIT OFF 
MOV AH, VSETACT 
INT VIDEO SET CURSOR TYPE 
POP DX ; RESTORE DX 
tate 
He RETURN 
LR alle oo 
: XOR AX, AX SET NOMAL RETURN CODE 
POP BX ;RESTORE REGISTER 
POP DX 
POP SI 


sRETURN TO CALLER 


70000000000000000000000000000000000 0000080000000 00000000 UR TOUOOOUOOOOOOE 


KKDISP ERDP 


u n 
i PROGRAM NAME: KKWOIL x 
3m nu 
5 DESCRIPTIVE NAME: DISPLAY OPERATER INFORMATION ILNE x 
; u 
ta FUNCTION: 1. WRITE OPERATOR INFORMATION LINE x 
; 2. CLEAR OPERATOR INFORMATION LINE " 
3m 3. INITIALIZE INDICATOR x 
a ” 
3 LINKAGE: CALL x 
; u 
ie INPUT: BL = Q - WRITE OTL " 
3m 1  ~ CLEAR O a 
a SOK - INITIALIZE INDICATOR x 
ix AH = CHARACTER ( ONLY BL=0 ) m 
3K AL = ATTRIBUTE ( ONLY BL=0 ) x 
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Clolededaledlelotolote 
02 Pe Pe Oe Dee be tee pee pee pe 
PRPS PUUUW 
BorseenHhwrowo 


hed aed eek) 
ede odode 
evrvuvuMu 
NNBOYUNA 


Oe eb ee ee he ee 
ee ee ee 
NVVOooaeoe 
NUCODBMaOneD 


oe ee oe me hee oe pe ee ee oe ee we he ee ee ee 
oe me me oe be oe oe ee be oe we be Oe 
SITU r rr yr Fr ODDOCORO OOOO ONc 
SeuUKMoesnomoarvuommvszr-oo 


1180 R 
28 


1538 R 
c 


1EBR 
16 


co 


06 0101 
06 0102 
1538 R 


16 0001 R 


LIEB R 
06 0101 


1 
16 OOFF R 
1 


+m DI = POIKTER IH OIL ¢ OHLY BL=@ ) " 
H OUTPUT: DI = DI + 2 ¢ ONLY WRITE OIL ) M4 
He RETURN CODES: (AX) : 
im 0 - SUCCESSFUL 
7m 1 ~ INVALID OPERATION x 
He EXTERNAL REFERENCES: 
i ROUTINES: NONE " 
ix TABLES: KANA-KAN COMMON TABLES " 
bE aE eT Se aon 
im CHANGE ACTIVITY: VERSION 00.06 ; 
3 

Anon NAINA NDNA ON NAR NRNN 
300000000000000000000006 KKWOIL EERE ELSES SRR 
ix ENTRY OF KKWOIL ; 


3 9090000000000000000000000000000000000000000000000000000000000000000n00NNOEE 
KKWOIL PROC 





PUSH ox SAVE REGISTER 
PUSH cx 
PUSH BX 
CMP BL,DOO ee ee IS TO WRITE OIL ? 
JE WOI010 + YES. GOTO 
cmMP BL,DOL iREQUIREMENT IS TO CLEAR OIL ? 
JE WOI020 3 YES. GOTO 
CMP BL,D80 sREQUIREMENT IS TO INITIALIZE INDICATOR ? 
JE WOI040 3 YES. GOTO 
JMP SHORT MOIRTH 
5 New n nnn nnn nnn nnn nn no n= oo n+ lalate atari 
3m WRITE OIL " 
were ern eo oon =e Se ten tm n new nnn mewn nnn ewww nnn nnn enn ey 
WOIO10: 
CALL WROIL sWRITE OIL 
JMP SHORT WOIRTN 
3 Nowe nnn n----- 22 ----- +--+ 3 +++ tetas aalatatatatattatetataatetee tt | 
3 CLEAR OIL " 
3 Were nnn nee ooo +--+ woere---- = weceen Staats Sattar | 
WOI020: 
CALL CLOIL sCLEAR OIL 
XOR AL,AL 
MOV AH,DO7 
INT 16H sINDICATOR ON 
MoV DX,APKBDST sLOAD KBD STATUS FOR APPLICATION 
CALL WKBDST sRESET KBD STATUS FOR APPLICATION 
JMP SHORT WOIRTN 
§ Wewnenn------------ == were r nena seen nn --------- ee tenet | 
+” INITIALIZE INDICATOR " 
3 Wem nnn nnn =~ ee. weennn---- weccet----------- wocce nena n ann 
Worose: | 
MoV AH, DO2 
INT 16H sREAD KBD STATUS 
MOV APKBDST,AX sSAVE KBD STATUS FOR APPLICATION 
MOV DX, AX LOAD KBD STATUS 
AND DH, OF9H 
OR OH, HSHIFT sCHANGE INDCATOR INTO HIRAGANA 
MOV KBDSTAT,DX sSET KBD STATUS FOR APPLICATION 
P CALL WKBDST sWRITE KBD STATUS 
; RETURN 
pM eee enn nee wewwecce 
WOIRTN: 
XOR AX, AX 3SET NOMAL RETURN CODE 
PoP Bx BRESTORE REGISTER 
PoP cx 
PoP DX 
T sRETURN YO CALLER 


RE 
KKWOIL ENDP 
3M WROTL {0000000000000 0000000000000 2V NORV RURROR RONDE 
3M 


u 
im WRITE OPERATOR INFOMATION LINE " 


" 
jw een KN inc cron 
WROIL = =PROC 


PUSH = aX 
CALL ERASE_CURSOR 3 ERASE CURSOR 
CMP ryeane TV4011 = 3TV MODE IS 40m11 
JNE WROO 3 NO. GOTO 
cMP DI DOO sFIRST CALL t 
JNE WROO1O 3 NO. GOTO 
CMP KKMODE, SELECTH SKANA-KAN MODE IS SELECT 2 
JE WROO 3 YES. GOTO 
cMP BL DHODE, SELECT 30LD KANA-KAN MODE IS SELECT ? 
JNE WRO 3 NO. GOTO 
XOR ALO AL 
MOV AH, DO? 
INT 16H sINDICATOR ON 
MOV DOILP,CLINDIIP SET DATA POSITION OF INDICATOR 
MOV DOILN,CLINDLIN ;SET NUMBER OF INDICATOR DATA 
CALL CLOIL sCLEAR OIL 
MOV DX, KBDSTAT 3LOAD KANA-KAN KBD STATUS 
CALL WKBDST sDISPLAY INDICATOR 
WROOOOL: 
MOV DOILP,DOILP1IK sSET DATA POSITION OF OIL 
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118D 
11c2 


C6 06 0102 R 1C 
EB 17 


80 SE 0194 R O04 
74 06 


C6 06 6101 R 08 
Cé 66 8102 R 28 


8A 16 0101 R 
8A 36 GOFC R 
03 D7 


38 
E8 1557 R 
47 
cs 


AG 0000 R 
24 82 
3c 82 
74 33 
AG COFO R 
as 61 
74 09 


8D 06 0003 R 
E&8 8CF2 R 
EB 52 


8B IE O0E6 R 
3B 1E OOEA R 
74 03 


EB CESAR 


8D 06 COOS R 

BA 16 GCOFO R 

80 OE OOFO R 80 
E&8 OCF2 R 

88 16 OOFO R 

EB 2F 


8B LE OOEG R 
83 EB 06 
89 1E OOFL R 
B9 0006 
8D 36 0003 Rk 


BA 046 
88 87 COOO R 
43 


46 
49 


DOILN,DOILN11K SET NUMBER OF 
Moy «ss SHORT WROOLO OIL Data 
wWROOOO! OLDMODE,SELECTM s0LD KANA-KAN M1 
CHP R002 ; YES. Goro. “OPE IS Setecy » 
MOV AL, DO2 
MOV AH,DO7 
mer t«A SH sINDICATOR OFF 
wrooo2: ‘ 
DOILP,DOILP11S sSET DATA Posx 
act DOILN,DOILN11S i3SET NUMBERS OF Ore bagrt 
WROOLO: . 
vy _—DL, DOILP LOAD DATA Pos 
Mov ‘DH KKOILP ;LOAD OIL Position” OF OXL 
App DX, DE ADD OIL POINTER 
POP 
CALL WDISP DISPLAY DATA 
Ike DI OIL POINTER 1 UP 
RET RETURN TO CALLER 


WROIL ENDP , 
7.000 WKBDST 101000900000000000000000000000000000000000000000000004 
PErertt ty 


ia WRITE KEYBOARD STATUS ‘ 
ix DX : KBD STATUS * 
“ 


3” 
3 90000000000000008000000000000 0000 DIINO NE 
O00 0 20 0 De Be ae 


WKBDST PROC 
XOR 


AL, AL 

TEST DH, ZMODE sZENKAKU MODE ? 

JZ WKBO1O 

OR AL,ZMODE sZENKAKU MODE ON 
WKBO10: 

AND DH, KBDMSK 

ROL DH,1 

OR AL,DH sSET SHIFT 

TEST DL,CAPSST 3sCAPS LOCK ? 

JZ WKBO20 

OR AL,CAPSON sCAPS LOCK ON 
“eran OR AL, KKNOCHG 

’ sKANA-KAN 
ey an Des REQUIREMENT NOT CHANGED 
INT 16H sWRITE KBD STATUS 


RET sRETURN TO CALLER 
WKBDST ENDP 
ama ea ee ai A aaa ae. 


3m . 
3m NAME : KKGRP 
3m | 
; x 
3m 
aM 5 
“ 
# 999000000000000000000000000000080008000000800000000000000000000 000000 
KKGRP PROC NEAR 

MOV AL, DSTAT 3 GET INPUT CHARACTER STATUS 

AND AL, DAKUF+ZEN2F 

cHP AL, DAKUF¢ZEN2F 3 DAKU/HANDAKU TEN & ZENKAKU CHARACTER 

MoV AL, KKWINST 3 GET INSERT MODE FLAG 

TEST AL, 00000001B 3 INSERT MODE CHECK 

JZ KGR100 
PP TPE i iy INSERT MODE MMMMMM 

LEA AX, KKKYDCD 


CALL KKINST 3 CHARACTER INSERT 
SHORT KGR9O00 


JMP 
;eDOOUE HOT INSERT MODE = xm ae 


KGR100: 
MoV BX, KKWCCA 
CMP BX, KKWEOP 
JE KGR110 
3 MoV AL, KKINBUFCBXIC29 
3 AKD AL,O1H 
3 INC AL 
; MUL MULOS 
; mov BX,AX 
3 
3 MOV AX, KKWCCA 
; SUB KKWEOP , BX 3 ADJUST END OF POINTER 
CALL KKDELT 
KGR110: 


LEA AX, KKINKEY 
MOV DL, KKWINST SAVE INSERT MODE FLAG 
OR KKWINST, 80H SET 


DUMMY INSERT FLAG 
CALL KKINST 


mov KKWINST,DL 3 RESTORE INSERT MODE FLAG 
JMP SHORT KGR900 
38000000 DAKU/HANDAKU TEN MODE 9 xRMKKH 


ee 


KGRS00: 
MOV BX, KKWCCA 
SUB BX.6 
MoV KKINP, BX + SET DISPLAY POINTER 
Mov CX,6 
LEA ST, KKINKEY 
KGR310: 
MOV AL,DS:(SIJ 3 GET DAK/HANDAKU TEN CODE 
Bed i PTR KKINBUFCBX),AL 3 SET CHARACTER CODE 
INC $I 
DEC cx 
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 ehalesherlenledeked dol 


NANANN NANAN 


| th aud auth ah aed eh el oe ed ed ed ed eh ed dd 
NANNANNNNNN 

WNKHOMHKOMHmOOwyNN YNNNNS 
SMOBDYNNA DSN= TOO BOoOvuU 


a ee ee es ee er 
NANNNNUN NNN 
SNAAANANAANNGes 
SONMANBGAN~ONK—NOAN 


FS 
Al 0105 R 
02 
AS 0107 R 
AS 0109 R 


E8 lLOEDR 
2B CO 


80 £1 7F 
74 (CE 


56 
8D $6 0009 R 
FC 


aD 
C8 1139 R 
%6 


80 El 7F 
74 «DS 

6 

2E: 8A 02 
84 00 

C8 1159 R 
E2 Fé 

46 

EB CA 

50 


INZ KGR310 
MOV AX, CCRSRP 
SUB Al. 
MOV de bees 5 SET DISPLAY START POSITION 
ADD AL. 
MOV DENDP, AX + SET DISPLAY END POSITION 
CALL KKDISP 
SUB AX, AX 
KGR9OO0. 
RET 


RP = ENOP 
Laht EXESSED STA NAUERSASATS EOEEAIIEA ODAC Sevencnnceveséserditiriecceace 
3+ PRIVATE CONSTANT DATA ( FOR KOUTINIT ) + 
SPEETEIESSSESESESETES ESE DSSESES TFET SESE SOFELOSEEEESEOOEOESEDEDES ESS EES 
BASE_FOMAT: 

OW 


TV8025_FMT 
DH TV8011_FMT 
DH TV4011_FMT 
TV8025_FMTs 
TV8O11_FMT: 
OB 03,3DH ea 8 
DB 01,3EH an > 
DB 01,20H 7” bd 
DB 11%2+80H 3 SPECIAL CODE 
DB 01,2AH as 
DB 40,20H 7” = 
8 OFFH 
TVG011_FMT: 
DB 03,3DH wc 
OB 01,3EH x7 > 8 
DB 01,20H 7" si 
DB 11*2480H 3 SPECIAL CODE 
DB 01,2AH "Re 
DB OFFH 
330)000000009000000000000000000000000000008000000008D000000D00N0000H N04 
zm SUBROUTINE a 
3m x 
3m NAME : KOUTINIT a 
3m x 
3m a 
3m x 
3m x 
om x 
ff " 
520 000000000080000000000000000800000000000000000000NNNAOEAIDEDOE 
KOUTINIT PROC NEAR 
PUSH ES 3 SAVE REGISTERS 
PUSH oI 
PUSH SI 
PUSH Dx 
PUSH BX 
PUSH BP 
aid AL, TVMODE 3 GET VIDEO MODE 
MoV BP,AX 
DEC BP 
SHL BP.1 3; BPX 2 
MoV BP,.WORD PTR BASE_FOMAT(BP) 
PUSH oS 
PoP Es 
MoV BL,0 
SUB DI,OI 
SUB SI,SI 
XOR CH,CH 
OINTOLO: 
MOV CL.CS: (BPICSI) 
CMP CL,.OFFH 
JE OINTO60 
TEST CL,100000008 ’ USB © 10. ZENKAKU 
JZ OINTO4O 3 OQ + HANKAKU 
: {0000000000000 00000000 NURGUOGG RO ANG ANRARInE 
metrrriti yy DISPLAY INPUT BUFFER JOOUOOODOOOE 


3 XU OO0 0000000000 00000000000 QUAN UO DUE 
OltiTo20; 


AND CL,7FH 

JZ OINTOLO 

FUSH SI 

eee SI. KKINBUF + GET OFFSET OF INPUT BUFFER 
OINTOSO. 

LODSN 

CALL KKNOIL é DISPLAY IRPUT BUFFER 

THC SI 

LOOP OINTOSO 

POP SI 

Inc SI 

Jtie SHORT OINTOLO 
3 2000 000000000000000000 0000000 QQ0D B88 Q0U RON K 
Pe Stee tery! DISPLAY 0.1.0 FORMAT JO8DOUOUUUUOE 


3 NOUGOGO00000 0000000000000 0020000 
ONTO4O: 


AND CL.7FH 
JZ OINToOlO 
INC Ss! 
OINTOSO: 
MOV ALCS: (BPJISI) 
MOV AH, HANATIR + GET TO AX HANKAKU CODE 


CALL KKNOIL 
Loop aaa 


uc I 

JMP SHORT OINTO1O 
OINTO6O: 

POP BP 
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51 
52 


BG 83 
cD 10 


5A 

80 CD 20 
8 

cD 10 


59 
cs 


BS 0000 

A2 OOFO R 
AS OOE6 R 
AS OOEA R 


BF 0009 R 


83 OE OOES R 


Al OOF5 R 

32 CO 

83 £9 03 
F4 

34 00 

BO 2A 


32 CO 


Al OOFS R 


25 OOFF 


23 06 OOCE R 
22s F6 26 O65SC R 


AS 00E6 
cs 


INPUT 


ERASE_CURSOR 


PUSH 
PUSH 


MoV 
INT 


POP 
OR 

MOV 
INT 


POP 
RET 


ERASE_CURSOR 


OUTPUT 
VOLATILE 


ERASE_CURSOR ERASE CURSOR 
THIS ROUTINE ERASES CURSOR 


NONE 
NONE 
AX 


cx 3 SAVE CX 

Dx 3 SAVE DX 

AH, VRDACP 3 READ ALTERNATE CURSOR POSITION 
VIDEO 3 

Dx 3 RESTORE DX 

CH,CURSOR DISABLE; SET CURSOR DISABL 

AH, VSETACT 5 Ageing 
VIDEO + SET ALTERNATE CURSOR TYPE 

cx 3 RESTORE CX 

ENDP 


7300000000 DUD RUDE 
A SUBROUTINE EE DO DE D0 3 BE DG 3 3 EE 


3m 
He NAME + KINBFCLR 
3 
3 
3 
3m 
3m 
3m 
3 3000000000000 RUUD UU OE 
KINBFCLR PROC NEAR 
PUSH ES 
PUSH DI 
PUSH cx 
MOV AX,0 
MOV KKWINST,AL 
MOV KKWCCA, AX 
MOV KKWEOP, AX 
CLD 
PUSH DS 
POP ES 
MOV DI,OFFSET KKINBUF 
MOV CX, KKEOPMAX 
IBCLO20: 3; INPUT BUFFER SPACE CLEAR 
MOV AX, KKCHRSP 
STOSH 3s SET SPECIAL SPACE CODE 
OR AL,AL 
STOSB 3s CLEAR SCAN CODE AREA 
SUB CX,3 
JNZ 1BCL020 
MOV AH, HANATTR 
MOV AL, ASTER 
STOSH s SET * ® * CHARACTER CODE 
OR AL,AL 
STOSB 
POP cx 
POP DI 
POP es 
RET 


KINBFCLR ENDP 


73000000000000000000000000000000000000000000000 00 IT TIT 
su SUBROUTINE 


KCALCCH PROC 
MoV 


"AND 
sub 
HUL 
MOV 
RET 


5 
fa NAME + KCALCCH 


700000000080 0000000000000000000000000000000000 0000000 G00 0B GOL 


NEAR 

AX, KKCUSR s GET CURSOR POSIYION 
AX, OOF FH 3 GET X-POSITION 

AX, BASE 

HULOS 

KKHICCA, AX 3 CALCULATE KKHCCA 
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a" 
x 
" 
u 
" 
x 
" 
* 
x 


1340 


eh eel el od ed odd ed odd 
UMUUWWWWWw 
VUUHDDODDA LDH 
USUMAPANRKK oO 


cOouw 


Anu 


NSARDDOUVUEU 
n n 


eed eel eed ek od ood ed od 
UMUUUUWUWU 


03 


51 

22 06 OOE1 R 
8A OE OOES R 
D2 co 


04 01 

2E: F6 26 1340 R 
59 

cs 


KCALCCW CIDP 
ialalar lateral hl iat hahah aaah aaa ale eel LLL 
Fa SUBROUTINE 


" 
x 
+H NAME + KCALELI 
x 
x 
3x x 
x 
" 
x 
3 9000000000000000000000000000000000000000000000Q)000000DOUDUDONDOLOR. 
ELMIMVAL DB 3 


KCALELM PROC NEAR 
PUSH cx 


AND AL,ZENATTRI § GET ZENKAKU/HANKAKU ATTRIBUTE 
Mov CL,ROATCHT 3 GET DATA ROTATE COUNT 

ROL AL.CL 

ADD AL,1 + CALCULATE ELEMENT OF INPUT BUFFER 
MUL ELMIMVAL , ZENKAKU ... 6 

tee cx , HANKAKY ... 3 


R 
KCALELM ENDP 
3 300000090000000008000000080000000000000000800000000 020000000 0RNV000RDE 
3m SUBROUTINE 


Al OOEA 


2€: 


001 
001 
000 


R 
F6 36 1340 R 


E4 

06 OOEE R 
0105 R 

06 0107 R FFFF 
10ED R 


C 0o01c 
C oolic 
0 oolc 


0000 0024 


OE 0144 R 
01 


OOFA R 

iz) 

SE O18E RA 
oS 


3™ " 
3é NAME » KCSRDSP u 
3m x 
3 x 
3H x 
3x x 
im x 
fa! LJ 
3903000000000000000000000000000000000000000000000000000000000000008001 
KCSRDSP PROC NEAR 

MOV AX, KKWEOP 

DIV ELMIMVAL 

SUB AH, AH 

ADD AX, BASE s CALUCULATE CURSOR POSITION ¢ COLUMN ) 

MOV DCRSRP, AX 3 SET CURSOR POSITION 

MOV pourra OFFFFH 

cee KKDISP 3 DISPLAY CURSOR 


KCSRDSP ENDP 


ERTTPHENIES TEI OSE EEE EEEESS TE EF TESS SEEDS EEE EEESEEEESESEEE EEE EEE EEE 
3+ PRIVATE CONSTANT < KKOHOEDT > 
SttttPFtttt OEE F ESET TF ESE EEE SEH FESEEE EES OSEbEEEEEE SE ObEeEbEbEEtEEbeooS 


KKBFCAA: 

DH 0028%1,0028 s TV8025 

OW 0028*1,0028 + TV8011 

DW 0000%1,0028 3 TV4011 

DW 0000"1,0036 5 TV8025 
DECAJST: 

DB OFFH, OFFH 3 DUMMY 

DB 12H,05H 

DB 56H,02H 

DB 28H,01H 

DB 64H,00H 

DB 32H, 00H 

DB 16H,00H 

DB 08H, 00H 

DB 04H, 00H 

DB 02H,00H 

DB 01H, 00H 
3 1900000000000000000000000000000000000000000000000N00DNOONODNOUNDONE I 
3m SUBROUTINE «© KKOHOEDT 
3m " 
el EDIT DISPLAY BUFFER FOR KANJI SELECT x 
’ % 
3m PARAM ... AX © 0 » CALCULATE KKOHODSP " 
im 1 « SET KKOHODSP FROM KKOHOSUU x 
} ean coo oapaonea estan eee Mees OR, MROMOSUU 
KKOHOEDT PROC NEAR 

TEST AX, AX 3 

JZ KHEDO1O 

MOV AX, KKOHOSUU 

MoV KKOHODSP, AX s SET DISPLAY POINTER 

JMP SHORT KHEDO20 
KHEDO1O. 

MOV AL, KHBLK 

MUL DATAO? 

HOV KKOHODSP, AX 3 CALCULATE DISPLAY POINTER 

MoV BX, KKOHOSUU 

SUB BX, AX 3 CALCULATE KKOHOZAN 

MOV KKOHOZAN, BX 
3 30000000000U00DE EDIT DISPLAY BUFFER JO0000000000000D0r 
KHEDO20. 

XOR BX, BX 

HOV AL, KXCHRMD 

CMP AL, MDZENNUM 

JE KHEDO21 

CMP AL, MDKANNUM + NUMERIC YOMI f 

JNE KHEDO22 3 NO. COTO 
KHEDO2). 

DEC KKOHOZAN » KOUHO ZAN 1 DOWN 

MOV BH, NUMYOMFG 3 SET NUMERIC YOMI FLAG 
KHEDO22. 

MOV AL, TVMODE + TV MODE CHECK 

CBW 

MOV BP,AX 

DEC eP 

cue KKHQLEN, 26 

JLE KHEDOSO 
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BD 0003 


8A 26 OOEL R 
Bo 81 

€8 1159 R 

BA 26 OOE2 R 
Bo 79 


E8 1139 R 

C7 06 0146 R 0000 
B6 00 

B2 31 

8B 2E 0148 R 

Dl €S 

83 3E 0144 R 01 
74 4E 


Al OOES4 R 
E38 1139 R 


8A C2 

8A 26 OOE2 R 
€8 1139 R 

SA 

49 

is OE 0144 R 


2 
FF 06 0146 R 
4 


83 SE 0146 R 07 
FF OE 0146 R 


Fé C7 01 
F6 C7? 02 
FF 06 0144 R 


FF OE 0146 R 
80 CF 02 


FF OE 0144 R 


8B 

2D 0002 

3B 06 O18E R 
7D 02 

EB 26 

FF OL 0144 R 
Al OOEG R 

£8 1139 R 

49 


8B C2 
E8 1139 R 
49 


51 


8B OE O18SE R 
BE OLGA R 


AD 

B4 00 

£8 1139 R 

€2 F8 

2B OE O18E R 
41 

41 

Al OOEG R 

E8 1139 R 

E2 FB 

FF 06 0146 R 


MOV 
BHERSSEs 


s 
KHEDOGO: 
CMP 


JE 
KHEDOGS: 


J 
KHEDOSO: 


KHEDOS1: 
DEC 


JMP 
AEE? 


KHEDO60: 


La 
KHEDO70. 


KHEDO8O: 
INC 
INC 
MOV 

KHEDO81: 
CALL 
Loop 
INC 

KHEDO9O, 


BP,S 
BP.1 


ar oRD PTR KKBFCAALBP) 


+; BP XG 
sGET EDIT 


I10N 
CE TORD PTR KKBFCAALBPJ(2) :GET LENG. OF ea eR, POINT 


Ds 

ES 

AH, ZENATTRI 
AL.81H 
KKHOIL 

AH, ZENATTR2 
AL,79H 
KKHOIL 
KKOHOCNT,0 
DH, HANATIR 
DL,31H 

BP, KXOHODSP 
B 


. 


KKOHOZAN,1 
KHEDOSO 


AX, SPACE 
KKHOIL 
cx 

AX, DX 
Bee 


; 


F CANDIDATA AREA 
DS <--- ES 


SET FIRST CODE 


+ SET FIRST CODE 


SET SECOND CODE 


+ SCT SECOND CODE 


~ 


~ 


~ 


SELECT NUMBER 
SELECT NUIBCR 


SET HANKAKU SPACE 


SET SELECT NUMBER 


SI,DWORD PTR KKDICADR ; GET OFFSET 8 SEGMENT ADDR. 


DX,DS:(SI](BPJ 


DL,DH 
DH, 10000000B 
tata 


DS 


AL, DH 

AH, ZENATTRI 
KKHOIL 

cx 


AL,DL 

AH, ZENATTR2 
KKHOIL 

Dx 

cx 
KKOHOZAN 
DX 
KKOHOCHT 
BP 


BP 

KKOHOCNT,7 
KHEDOGO 
KKOHOCNT 
SHORT KHEDO8O 


BH, NUMYOMFG 
KHEDO52 

BH, NUMSKIP 
KHEDO51 
KKOHOZAN 
KKOHOCNT 

BH, NUMSKIP 
SHORT KHEDO40 


KKOHOZAN 
SHORT KHEDO8O 


AX,CX 

AX,2 

AX, KKHQLEN 
KHEDOGO 
SHORT KHEDO80 


KKOHOZAN 


AX, SPACE 
peo 


x 
AX, DX 
ieee 


cx 
CX, KKHQLE! 


GET KOUHO KANJI CODE 


EDIT UPER CODE 


s SET UPER KANJI CODE & ATTRIBUTE 


~ 


~ 


- 


wee ee 


es 


~ 


3 


SET LOWER KANJI CODE & ATTRIBUTE 


NEXT SELECT NUMBER 
RENEW KOUHO POINTER 


IF_SELECT NUMBER >= 7 
THEN REPEAT 
ADJUST KOUHO COUNT 


FORCED ADJUST *ZAN"™ 
FORCED ADJUST KOUHO COUNT 


KOUHO ZAN 1 DOWN 


SET HANKAKU SPACE 


SET SELECT NUMBER 


4 
SI,OFFSET KKHANQUE 


AH, HANATTR 
KKWOIL 
KHEDO70 
cx 

CX, KKHQLEN 
cx 

cx 

AX, SPACE 
KKHOIL 


KHEDO81 
KKOHOCNT 


4 
3 


5 


5 
Uy 
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HANKAKU ATTRIBUTE SET 
COPY HANKAKU YOMI DATA 


CALCULATE COLUMN COUNT 


GET HANKAKU SPACE CODE 
SPACE CLEAR 


dededededel totoote) 
VUE MBBNUwo 
eooocoocec9n 


wun 
IND bm be pee pee oe oe 
NOMMO oNUN TO Py PNUUNe 


hed edad ade 
Nn 


ere) 
XN 
so 


1526 


8A 
BO 


26 OOE1 R 
81 


E8 1139 


BA 


BO 7 


€& 
8A 
Bo 
E38 
8A 


R 
26 GOEL R 
A 


1159 R 

26 OOEL R 
8E 

1139 R 

26 OOEZ R 


BO 63 


E8 
8B 
81 
BD 


2B Cc 


Dl 


73 OB 

O2 86 1380 R 
2 

2E: 12 A6 1381 R 


8A 
8A 


Q 
BA 
32 


Es 
E 


E2 
cs 


1139 R 

16 0144 R 
E2 O3FF 
ee 


EA 


12EC R 

16 OOFS R 
16 0101 R 
36 OOFC R 


20 
OE 0102 R 
ED 


1557 ® 
c2 
F9 


OF 
0001 
8 

10 


MOV AH. ZENATTRI 
AL,81H 


3m CLOIL 490}00090000000000000000000000000080000000000000000000000001 
im 
3m CLEAR OPERATOR INFOMATION LINE 1 
zm 


+ SET *)" FIRST Cope 


ET "J" SECOND CODE 
ET "ZAN® KANJI CODE & ATTRIBUTE 
ET "ZAN* KANJI CODE & ATTRIBUTE 


=e 
“Vunw 


AH, BYTE PTR DECAJSTL1IC(BPJ 


MMM ZERO SUPPRESS mux 


- 


SET SPACE CODE INSTEAD OF ZCRO 
GET 10 PH-REGISTER 


~ 


WOE SET NUMBER DATACS) 


~ 


~ 


ADJUST TO DISPLAY CODE 
SET NUMBER 


~ 


x 
COTE RO 20 0000000000000000000000000000o BNO vODNOBALODDOADLOL. 


+ ERASE CURSOR 
sLOAD KANA-KAN CURSOR puSiTION 
OlL 


MOV 
CALL KKHOIL 
MOV AH, ZENATTRI 
MOV AL,7AH 
CALL KKHOIL 
MOV AH, ZENATTRI 
MoV AL,8EH 
CALL KKHOIL 
MOV AH, ZENATTR2 
Mov AL, 63H 
CALL KKHOIL 
MOV DX, KKOHOZAN 
AND DX, OSFFH 
MOV BP,10%2 
s AX, AX 
KHED100: 
DX,1 
JNC KHED110 
ADD AL, BYTE PTR DECAJST( BP) 
DAA 
ADC 
KHED110: 
DEC BP 
DEC BP 
JNZ KHED100 
MOV DX, AX 
Mo CX,0404H 
KHED120: 
TEST DH, OFOH 
INZ KHED130 
mov AX, SPACE 
CALL KKHOTL 
SHL DX,CL 
DEC CH 
cMP CH.) 
INZ KHED120 
KHED1 50: 
Mov AH, HANATTR 
MOV AL,DH 
AND AL, OFON 
SHR AL,CL 
OR AL, 30H 
CALL KKHOIL 
SHL DX,CL 
DEC CH 
JNZ KHED130 
SUB AX, AX 
RET 
KHED900; 
MoV AX,1 
RET 
KKOHOEDT ENDP 
CLOIL PROC 
3 MOV AH,81H 
3 Mov CX, 2000H 
3 INT 10H 
CALL ERASE_CURSOR 
MOV DX, KKCUSR 
MOV DL, DOILP 
MOV DH, KKOILP 
MOV AL, BLANK 


MOV CL.DOILN 
xoR CH.CH 


CLOOlO. 
CALL WDISP 
INC DL 
Loop CLoo0le 
RET 

CLOIL ENDP 


italia WDISP 00000000000000000000000000000000 00000000 2O000R0ORONONALL 
r] 


is WRITE CHARACTER 
ry 


sLOAD TOP POSITION OF 
sLOAD OIL POSITION 
}LOAD BLANK DATA 
sLOAD NUMBER OF OIL 


sCLEAR OIL 
sRETURN TO CALLER 


Li 
SO Jo 2000000000000000000000 0000 QO ObBbOO00NROUODADOEBAL 


WDISP PROC 
PUSH SI 
PUSH DI 
PUSH be 
PUSH cx 
PUSH BX 
PUSH ax 
PUSH AX 
MOV AH,82H 
INT lo 
POP AX 
MOV BL.OFH 
MOV CX,D01 
MOV AH, 8AH 
INT 10n 
PoP Ax 
PoP Bx 
PoP cx 
PoP BP 
PoP or 
POP SI 
RET 
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sSAVE REGISTER 


dSET ALTERNATE CURSOR 
JSET COLOR CIN GRAPHIS MODE) 


JRRITE DISPLAY 
FRESTORE REGISTER 


sRETURN TO CALLER 
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1573 


ae ae ee ee tat Ot tt te et Pd Pd 
VU tA 
enya nyyNNN NS 
HOON AUN OU 


E8 1593 R 

8B FS 

8D 3E 0009 R 
O03 3E OOE6 R 
BB CA 

FC 

F37 AG 


Bs 0000 
5 


Al OOEA R 
3B 06 OOE6 R 
76 24 
re C2 

06 OOES 
76 03 . 


€8 15C5 R 

8B OE OOEA R 
2B OE 00E6 R 
nr as SRE 
4E bs 


83 FE 
03 FA 
FD 
FSY AG 
FC 


01 16 ODEA R 


WDISP EN 


op 
ODDO DUNNE 


3x 


an PROGRAM NAME: DTINST 


1M DESCRIPTIVE NAME> DATA INSERT PROCESS ROUTINE 


x 
x LINKAGE: 


Bel RETURN CODES: (AX) 
im 0 - SUCCESSFUL 


he 1 - INVALID OPERATION 
+s EXTERNAL REFERENCES: 
ha! ROUTINES: EQPCHECK-- CHECK AND MODIFY END POSITION OF 


3 


CHA 


UTIN INSERTS A CHARACTER FRO 
i FUNCTION: THIS ROUND MODIFIES END POS: ON 


NT OF THE cursor 


: = OFFSET OF DATA POSITION TO INSERT 
by CTNPUTs BXo~ OTA LENGTH TO INSERT 


Ae! OUTPUT: KANA-KAN COMMON TABLES 


HARACTERS 


Bal TABLES: KANA-KAN COMMON TABLES 

x 

Bel REGISTERS: AX - RETURN CODE 
AL 


L OTHERS UNCHANGED 


i 
is CHANGE ACTIVITY: VERSION 00.00 


é 
3 30000000000000000000 0000 INE 


1000000000002 DIE IIIT IORI III K 


pe PPS SESE SSE SSESES ESSE SSS ESE SSS SS SESS 


3 
3 JO000K DT INS T 3300000000000 80800 80000 DDB RUE 


3m 
3m WHEN NOT INSERT KEY PRESSED ON INSERT MODE 
i. THIS SUBROUTINE IS CALLED 
‘¥ BX: OFFSET OF DATA POSITION TO INSERT 
3 
300000< DT INS 7000000000000 000 100002000 UUDOE 
DTINST PROC NEAR nner 
PUSH BX 3s SAVE REGISTERS 
PUSH cx 
PUSH DX 
PUSH sl 
PUSH DI 
DTI_010: — 
3 TRANSMIT DATA OF INPUT BUFF 
CTI_020: ce 
nov SI,BX 3 GET OFFSET VALUE OF DATA TO INSERT 
LEA DI, KKINDUF 3 GET OFFSET OF INPUT BUFFER 
ADD DI, KKIUCCA 3 DI POINTS CURSOR POSITION 
MOV Cx, DX 3 GET DATA LENGTH 
CLD ¢ SET DIRECTION FLAG 
REP MOVSB 3s INSERT DATA 
DTI_030: 
DTI_040: 
MOV AX, 0H 3s SET RETURN CODEC NORMAL ) 
POP DI s RESTORE REGISTERS 
POP SI 
PoP DX 
POP cx 
POP BX 
DT_990: 
RET 3s RETURN TO CALLER 
DTINST ENDP 
2 )90000<XHTDATA2200000000000000009000000000000000000000000000000 00000001 
3x 
3m TRANSMIT DATA FROM INPUT BUFFER TO ITSELF 
3m 
5m INPUT DX: DATA LENGTH TO INSERT 
x 
1 )00006€ XT DATA? 300000000000000000000000000000000000000000000000000000000t 
3 
XMTDATA PROC NEAR 
MOV AX, KKWEOP +s GET END POSITION OF one eee 
CMP AX, KKWCCA 3 eee POS. >= END POS. ? 
JBE XMT_030 5s NO,. 
ADD AX, DX 3s YES, 
CMP AX, KKEOPMAX 3s CHECK BOUNDARY 
JNA XMT_020 3 IF END POINTER =< END OF BUFFER 
XMT_010: s ELSE 
MODEOP 3 MODIFY END POSITION 
XMT_020: 
MOV CX,KKWEOP 3 GET DATA LENGTH OF XMTION 
SUB CX, KKWCCA 
LEA SI,KKINBUF 3 SET POINTER OF MOVEMENT AT FIRST 
ADD S1,KKWEOP 
DEC SI 
MOV DI,SI 3 SET POINTER OF MOVEMENT THE POINT 
ADD DI,DX 
STD H] eat eon FLAG 
REP MOVSB 3 DATA 
CLD 5 RESED DIRECTION FLAG 
XMT_O30¢ 
KKWEOP, DX 5 UPDATE END POSITION OF DATA 
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Led aul aed cell eel aed) aael al al al adh 
AAAAKAARAAKAK 


L, 


rd 


APOAUNMPDOD 


ee te ee ee ee ee eet 
AR AKARAAARAKRH 
N NANNNNNNe wwe 


XN 
mam Oo 


cs 


8A 


22 
cs 


XMT_9901 
RET 


XMTDATA ENDP 


2 2000010. DE0P 9 200000000000000000000000000000000000000000000000000000 000 DDDOL 
3 


He MODIFY END POINTER x 
3 au 
3300000680 DE OP >300000000000000000000000000000000000 0000000 D DURE 
MODEOP PROC NEAR 
SI, KKINBUF + GET OFFSET OF INPUT BUFFER 
ADD SI,KKWEOP 


SUB SI POINTS ATTR OF LAST CHARACTER 
TN ae 


DX, ZENLEN + CHECK DATA LENOTH OF INSERTION 
HOD_070 3 IF HANKAKY | pa 2 
MOD_OSO. 5 ELSE (ZENKA, 
ALL GETATRI 3 GET ATTR oF LAST CHARACTER 
JZ MOD_040 ‘] CAST CHR. = HANKAKU 1 
MOV AL, ZENLEN 3 HO,LAST CHR. = ZENKAKU 
SHORT MOD_990 3 GOTO Rerun N 
MOD_040: 3 YES,LAST CHR. * HANKAKU 
AX, KKWEOP 3 GET END POSITION OF CHARACTERS 
CHP AX, KKEOPMAX + CHECK BOUNDARY. 
JZ MOD_050 
MOV AL, INDEX ) 
SHORT MOD_990 4 GOTO RETURN 
MOD_050: 
SI, INDEX + SI POINTS LAST 2ND CHARACTER ATTR. 
CALL GETATRI 3 GET ATTR. OF DATA THAT SI POINTS 
JNZ MOD_060 
MOV AL, ZENLEN 
SHORT MOD_990 5 GOTO RETURN 
MOD_060: 


CLEARS 3 CLEAR LAST 3 BYTE OF INPUT BUFFER 
MOV AL, ZENLEN+INDEX ; UPDATE END POINTER 
SHORT MOD_990 5 GOTO RETURN 


GETATRI GETATTR 
JINZ MOD_080 IF LAST CHARACTER IS HANKAKU 


ee 


Mov AL, INDEX 
JMP SHORT MOD_990 
MOD_080: 3 ELSE (ZENKAKU) 
CLEARS 3 CLEAR SPACE AREA 
AL, ZENLEN s UPDATE END POINTER 
MOD_990: 
SUB KKHEOP, AX 


RET 
MODEOP ENDP 
5 MME CGE TAT RI > 00000000 0000 000 0 OBE J SE DEE 0 SD 
rh x 
3m SI: OFFSET OF DATA ATTRIBUTE : 
rn! 
§ MMC GETATRI > 300000 0 Me 


GETATRI PROC NEAR 
MOV AL, BYTE PTR DS: {SI} 
+ GET ATTRIBTEOP OF CHARACTER 
ae AL,ZENATTRI 3 ZENKAKU OR HANKAKU 


GETATRI_ENDP 
300000008) EAR 520000000000000000000 000000000 0 2000000 UUU RUB DRIOL 
x 


3m THIS ROUTINE THE CLEAR SPACE AREA (SBYTE) Bi 
A 
3M SI: POINTS THE AREA FOR CLEAR CHAR * 
™ " 
300000¢6CU EAR 300000000000 DD 0 UU UDI OUU DE 
CLEARS PROC NEAR 

PUSH aX 

LEA DI. KKINBUF + GET OFFSCT VALUC OF INPUT BUFFER 

ADD DI. KREOPMAX ; 

SUD DI, INDEX s SI POINTS THE TOP OF CLEARING AREA 

ing! AX, KKCHRSP 

STOSN 3 SET SPACE CODE 

xOR ALL AL 

STOSB 

PoP AX 


3 

RET 3 RETURN T 
CLEARS ENDP chaoui 
3 903100010000000000000000000000000000000 2000220 IS 
, 
Hs PROGRAM NAME: DTSHFT 
’ 


Ae DESCRIPTIVE NAME: SHIFT DATA & MODIFY END POSITION 

iM FUNCTION: WHEN DELETE KEY OR BACK SPACE KEY IS PRESSED, 

« THIS ROUTINE SHIFT CHARACTERS AFTER THE POSITION 
am POINTED BY AX REGISTER 


a 

u® LINKAGE: 

x 

sH INPUTs AX -- POINTS DATA TO BE DELETE 


re 

Ne QUTPUT: DX -~ LENGTH OF DATA TO BE DELETED 
Hy 

He RETURN CODES: (AX) 

3 

im 0 - SUCCESSFUL 

am 1 - SUCCESSFUL 


x 
om EXTERNAL REFERENCES: 
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3B 06 OOEA R 
331 
8D 36 0009 R 
3 FO 
8A 44 01 
E8 1342 R 
DO 
8B FE 
F2 
8D OE C009 R 
O03 OE OOEA R 
28 CE 
83 F9 00 
7¢ 10 
74 03 
FC 
F37 AS 
29 16 OOEA R 
€8 1672 R 
01 16 OOEA R 


Bs 0000 
5 


56 
Al OOEA R 
“1H 06 OOES R 


1A 
8D 36 0009 R 
03 FO 


Lael ” 
om ROUTINES: EOPCHECK -- CHECK END POSITION AND SET HANKAKU x 
3m SPACE OR PSECIAL CHR. : 
3x 

3x TABLES: " 
3m bi 
sm REGISTERS: AX - RETURN CODE bed 
ae ALL OTHERS UNCHANGED . 
im CHANGE ACTIVITY: VERSION 00.00 ie 
rz 


3 {0000000000080 VDI OOE 


3 
3 30006 DT SHF T > }00000000000000000000000 000 TTI VIII VIO COLE 
ae " 


3m aur ROUTINE SHIFTS DATA OF INPUT BUFFER LEFT " 
Hs INPUT: AX -- DATA POSITION TO BE DELETED Lal 
, i] 
i 300000 DT SHF T > 00002000000000000000000 00000 VIVRE 
DTSHFT PROC NEAR 3 

PUSH BX + SAVE REGISTERS 

PUSH cx 

PUSH SI 

PUSH DI 

cmp AX, KKREOP 3 are POINTER 

JAE DTS_020 AX >= NED POSITION 

LEA SI,KKINBUF ; GET OFFSET OF INPUT BUFFER 

ADD SI,AX 3 SI POINTS DATA TO BE DELETED 

MoV AL, BYTE PTR DS: fSI+1) 

3 GET ATTR. OF DATA 

CALL KCALELM + CHECK ZENKAKU OR HANKAKU 

MOV DX, AX 3 SAVE DATA LENGTH 

MOV DI,SI + DI POINTS DESTINATION ae 

ADD SI,Dx 3 SI POINTS SOURCE POSITIO 

LEA CX; KKINBUF 3 GET OFFSET OF INPUT BUFFER 

ADD CX, KKWEOP 3 GET OFFSET OF DATA TO BE DELETED 

SUB Cx,SI 3 CX = REPEAT CNT. 

CMP CX, 0H 3 CHECK REPEAT CNT. 

Jt DTS_020 3 REPEAT CNT. < 0 

JZ DTS_010 3 REPEAT CNT. = 0 

CLD 3 SET DIRECTION FLAG 
DTS 010 REP MOVSB + TRANSFER DATA OF INPUT BUFFER 

. 

SUB KKWEOP, DX 4’ SET PARAMETER FOR EOPCHECK 

CALL EOPCHECK 3s CHECK EOP 

ADD KKREOP, DX 3 RESET PARAMETER TO RETURN 
DTS_020, 

MOV AX, OH 3 SET RETURN CODE ( NORMAL ) 

POP DI s RESTORE REGISTERS 

POP SI 

PoP cx 

POP BX 

RET 3 RETURN TO CALLER 


DTSHFT ENDP 3 

33000000000000008 0000000 IE 
sn 

3% PROGRAM THAME: EOPCHECK 


3M 


3% DESCRIPTIVE NAME: CHECK END POSITION AND SET SPACE OR SPECIAL 


3 FUNCTION: CHECK END POSITION AND SET SPACE OR SPECIAL 
3 CHARACTER 


x 
3™ LINKAGE: 


x 
; INPUT: DX-- <>0: LENGTH OF DATA TO BE DELETED 
su =O: INSERT PROCESS 


3M OUTPUT: NONE 
s™ == RETURN CODES: (AX) 


3x 

3x Q - SUCCESSFUL 
3m 1 - SUCCESSFUL 
3 

3® EXTERNAL REFERENCES: 
3x 


3m ROUTINES: NONE 
3x TABLES: 


s® REGISTERS: AX - RETURN CODE 
zm ALL OTHERS UNCHANGED 


x 
s® CHANGE ACTIVITY: VERSION 00.00 
3 3901019000008 000000000000000000000000000 9000900000000 000000 200 IIE 
3 

}2000000< EOP CHECK > 9000000000000000000000000000000080000000000000000 00000000006 
a 


x HECK END POINTER AND CLEAR FICLD OF SPACE ARCA 
im INPUT: DX: <> 0 «LENGTH OF DELETE DATA 
G = 0 + INSERT PROCESS 


" 
x 
" 
“ 
" 
; SOO CEOPCHECK 0191800000 00800000 00000 ADH RIO 
EOPCHECK PROC NEAR 


PUSH SI 3 SAVE REGISTER 

MOV AX, KKWEOP 3s GET END POSITION 

cmp AX, oo 3 CHECK BUFFER END 

JAE EOP s GOTO RETURN 

LEA SI, KErIIBUF 3 GET OFFSET OF INPUT BUFFER 
ADD SI;A 3 SI POINTS INSERT AREA 
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8B C2 

Bl oS 

6 Fl 

84 CO 

75 0S 

Bs 0001 
8B C8 

E8 169A R 
E2 FB 

$3 Co 


5E 
cs 


Al OOFS R 
FC 

AB 

32 CO 

AA 

cs 


m 
o 
~ 
o 
o 
> 
Zz 


B1 0S 
Fo Fl 


E4 
03 06 OOEE R 


MOV AX, DX 
MOV CL, INDEX 5 
DIV cl 
TEST AL,AL » CHECK 
JNZ EOP_090 
MOV fo 
090 
ROR Peee CX,AX 
cea TT SETSPC 5 SET HANKAKU SPACE 
LOOP EOP_100 
RSIS AX, AX s RETURN CODE ( NORMAL ) 
PoP SI s RESTORE REGISTER 
RET + RETURN TO CALLER 
EOPCHECK ENDP 
3000006 S ETS P0211 0000000000000000000000000000000000000000000000000000K 
x 
im SET HANKAKU SPACE AFTER END DATA POSITION x 
im SIs POINTS HEAD POSITION TO BE INSERT x 
am x 
Pit Sit +t iia 1 allele ay V ara 
SETSPC PROC NEAR + SET SPACE CODE 
MOV AX, KKCHRSP + GET SPECIAL CHARACTER CODE 
CLD 
STOSH 
XOR AL, AL 
STOSB 
RET ' RETURN TO CALLER 
SETSPC ENDP 


3 } 09000300030 000000000000900000900000000000000 0000000000000 000000000004 


7m x 
3% PROGRAM NAME ( SUBROUTINE BLOCK ) x 
3m ‘ SETSTRCL x 
3m ’ SETENDCL * 
3m ) GETCULM x 
3% STATUS: * 
gn a 
3% FUNCTION: CALCULATE COLUMN POSITION 1 FROM POINTER OF INPUT BUFF. x 
3® LINKAGE: x 
3m x 
3 INPUT: a 
3m x 
3m a 
fz OUTPUT: x 
3m % 
3% - RETURN CODES: NON * 
re. a 
3m EXTERNAL REFERENCES x 
3 " 
3m ROUTINES: NONE * 
3m x 
3m TABLES: " 
3m Li 
sm REGISTERS: AX - RESULT x 
3m ALL OTHERS UNCHANGED x 
$n x 
i CHANGE ACTIVITY: VERSION 00.00 x 

x 


8 9900000000000000000000000000000 0000000000 OBO OODAEAAHDOHAEHADDEAER 


JOE 
BS JeUOk<SET ST RCL > 00000000000000000000000000000000000000 000 0000000000000 
x x 
i SET START POSITION FOR DISPLAY ROUTINE x 
3 x 
2O00UK<S ET ST RCL >00000000000000000000000000000000800000NN0UNNSNDDONBEDL 
SETSTRCL PROC NEAR Hy 
MOV AX, KKRCCA 3 GET START POSITION 
MOV KKINP,AX s SET START POINT FOR DISPLAY 
CALL GETCULM 3 
ney DSTRIP,AX 3 SET START COLUMN FOR DISPLAY 
3 


SETSTRCL ENDP 


J200000¢S ETENDCL >000000000000000000000000000000008DOUI DIDI REDDDEPDIUE 
3m 


a. SET END POSITION FOR DISPLAY ROUTINE x 
3 1 
J2O00006S ET EN DCL >00000000000000000000000800000000000U00000 RPI IRRRDNOUDE 
SETENDCL PROC NEAR s 
AX, KKREOP 3 GET END POSITION 
CALL GETCULM ’ 
oer DENDP,AX + SET END POINT CCOLUMI) FOR DISPLAY 
t] 

SETENDCL ENDP 
32000006 ET CUL A> 1000000 000000000000000000 00000000000 R URI IIIDODUE 
sm 
Bs CALCULATE COLUMN POSITION 
sm 
CETCULM PRO 2202000001000 000000 000000004 
GETCULM PROC NEAR 

PUSH cx 

MOV CL. INDEX 3 

DIV cL 

XOR AN, AH + CLEAR AW 

abd AX, BASE ) GET COLUMN POSITION 

PoP cx 


RET 3 
GETCULM ENDP 


30000¢C DCHCK ] > 0000000000001 U0000000 000000 O VUE RIVER 
An] 


ii 
im CODE REASONABLE CHECK 1 
3% 
im INPUT + BLICODE x 
im AUtRANGE TYPE x 
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2E: 8B 96 16FB R 
3B ODA 


72 OE 
2E: 8B 96 16FD R 


3B DS 
72 05 
38 0000 
EB 0S 
BS 0001 


3 " 
230000106 C DCHCK 7 2000000000200 DODO 
SHERETHEE EERE ESE SEE ESE EE EEE EEEFEEESEFESESESESESEEFE SEES ESSE ESE EEE Ett 


RNGTBL1: 
DB 72H + TEN KEY SCAN CODE 
DB 7AH 3 
DB 02H 3 GRAPHIC KEY SCAN CODE 
DB OAH 3 
DB 30H 3 NUMERIC CODE 
DB 39H 3 
DB OA7H 3 HANKAKU KATAKANA CODE 
DB ODFH 3 
RNGTBLLI: 
RNGMAX1 EQU aoe RNGTBL1)72 
RNGMIN] EQU 3 RANGE MINIMUM 


3 E008 000 0020100000000 IID 
CDCHCK1 hy NEAR 


USH BX 


; SAVE REGISTERS 
PUSH cx a 
PUSH BP 3 
cmP AL, RNGMIN1 3 CHECK RANGE TYPE 
Jc CD1_050 3 AL<RANGE MIN.,THEN ERROR RETURN 
CMP AL, RNGMAX1 , 
JA CD1_050 3 AL>RANGE MAX.,THEN ERROR RETURN 
XOR AieK 
DEC 
MOV BP, AX 
SHL BP,1 
MOV DX,WORD PTR ne 
3 RANGE (DH=MAX.,DL®MIN.) 
CMP DH, BL $ $ elope =< MAX. 
JC ci 050 3s NO,THEN.... 
CMP BL, Dt ,? CODE >= MIN. 
Jc epi 050 3 NO,T HEN 
MOV AX, 0H $ SET RETURN CODE (NORMAL) 
JMP SHORT CD1_990 3 oe RETURN 
CD1_050: 
MOV AX,01H 3 ’ ser RETURN CODE CERROR) 
CD1_990: 3 
PoP BP 3s RESTORE REGISTERS 
PoP cx 3 
PoP BX 3 
RET 3 RETURN TO CALLER 
CDCHCK1 ENDP 3 
3300008< C DCHCK 23300000000 0000000000000 000000 OUD IE IE 
3m x 
sm CODE REASONABLE CHECK 2 CWORD) u 
5m x 
sm INPUT « BX:CODE xu 
‘Zi AL:RANGE TYPE " 
x m 


3 
2ON00EK<CDCHCK 2 2300000000 
FREFEEEEEFEFH SESE FEF ESE SESE ESE EEES ES EFEEEF SESE OSES HSE EES E SESE +E Sete sey 


ela” 824FH 3s 2 BYTE NUMERIC CODE 
DH 8258H 3 
DH 829FH 3 2 BYTE HIRAGANA CODE 
DH 82F1H 3 
DH 8340H 3 2 BYTE KATAKANA CODE 


393H , 
JAEAbEAeeTEEGOEESESELEEEEEEEAS ERED ONONSEEEEOE EISEN EEOESESEOEEOED EEE EE 
NGTBLL2 
RNGHAX? EQU CRNGTBLL2-RNGTBL2)72 
RNGMIN2 EQU O1H 3 RANGE MINIMUM (WORD TYPE) 
FERe 1A AG LM AEMND 2 ESSN ARN ARE AAEM S EM ABNEANANE ADEE ASSN AREAL ARRAS RE SANRNN 


CDCHCK2 eee WEAR 


BX ; SAVE REGISTERS 
PusH BP ; 
NGMIN2 3 CHECK RANGE TYPE 
cc. cbe 080 3 AL<RANGE MIN.,THEN ERROR RETURN 
» RNGMAX2 , 
a tb 3 AL>RANGE MAX.,THEN ERROR RETURN 
xOR AH, AH 
DEC AL 
MOV BP,AX 
MOV CL, gen 
SHL BP 
MoV DX, "ORD PTR Reoraterst 
CMP aK Px ] SOE om 9 MIN. 
JC 
TR aworbtztirez 2) 
MOV Sx HORD P : Be cxemax. ss 
P DX, BX 3 t Stop z< , 
se CD2_050 3 NO,THE 
MOV AX, 0H 3 SET RETURN “CODE (NORMAL) 
JMP SHORT CD2_990 4 GOTO RETURN 
5 
CD2_0501 Ay AX, 01H s SET RETURN CODE (ERROR) 
5 
C0299 op BP 3 RESTORE REGISTERS 
PoP cx , 
RET . 3 RETURN TO CALLER 
CDCHCK2 ENDP 
ORG ¢ 
ORG BIGIN+1800H 
CODE ENDS 
END 
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Peri PPPs 3 
“ ” 3 THIS SUBROUTINE SETS DS TO POINT TO THE BIOS DATA AREA 
x MODULE 9 * 3 INPUT: NONE 
i‘ x i OUTPUT: DS IS SET 
20000 00000Ot {2e SSeS Sa beret ler ema as nme ewww ewer wrooeororr= cecrer-- 
ASSUME CS:CODE,DS: DATA 
0000 bps R 
oo00 se PUSH AX 
0001 B& 0040 MOV AX, 40H 
0004 8E DS MOV DS,AX 
0006 58 : PoP AX 
ooo7 C3 RET 
0008 DDS fay sre 
ber rr rn nme ew wn wwe ew eee ed 
3 TIME_OF_DAY/SOUND SOURCE SELECT 
3 THIS ROUTINE ALLOWS THE CLOCK TO BE SET/READ. 
3 AN INTERFACE FOR SETTING THE MULTIPLEXER FOR 
3 AUDIO SOURCE IS ALSO PROVIDED 
3 
3 INPUT 
3 ©6 CAH) = 0 READ THE Ee GURRENT CLOCK SETTING 
3 RETURNS = HIGH PORTION OF COUNT 
3 Dx = LOW PORTION OF COUNT 
3 = 0 IF TIMER HAS NOT PASSED 24 HOURS 
3 SINCE LAST READ. <> 0 IF ON ANOTHER DAY 
3)» «6<CAH) = 2 SET THE CURRENT CLOCK 
3 CX = HIGH PORTION OF COUNT 
3 DX = LOW PORTION OF COUNT 
+ CAH) = 80H SET UP SOUND MULTIPLEXER 
3 AL =(SOURCE OF SOUND) --> "AUDIO OUT™ OR RF MODULATOR 
3 00 = 8253 CHANNEL 2 
3 01 = CASSETTE INPUT 
3 02 = “AUDIO IN” LINE ON I/O CHANNEL 
3 03 = COMPLEX SOUND GENERATOR CHIP 
3 NOTE: COUNTS OCCUR AT THE RATE OF 1193180765536 COUNTS/SEC 
3 (OR ABOUT 18.2 PER SECOND -- SEE EQUATES BELOW) 
Bt rr rn er ww ww ne ee ee eee - 
ASSUME CS: CODE. Ds: DATA 
0008 TIME_OF_DAY PROC FAR 
0008 FB STI 3 INTERRUPTS BACK ON 
0009 1E PUSH DS 3 SAVE SEGMENT 
COCA E8 COCO R CALL DDS 
@00D 80 FC 80 CMP AH, 80H ; 
0010 74 2E JE T4A 3 mux SET- uP 
0012 0A E4 OR AH, AH 3 AH 
0014 74 07 JZ T2 3 READ. TIME 
0016 FE CC DEC AK 3 AH=1_ 
0018 74 16 JZ T3 3 SET_TIME 
OOlA FB Ti: STI 3 INTERRUPTS BACK ON 
0OlB 1F PoP Ds 3 RECOVER SEGMENT 
o01c «CF IRET 3 RETURN TO CALLER 
001D FA T2: CLI 3 NO TIMER INTERRUPTS WHILE READING 
OO1E AO 0070 R MOV AL, TIMER_OFL 
0021 C6 06 0070 R 00 MOV TIMER_OFL,0 3 GET OVERFLOW, AND RESET THE FLAG 
0026 8B OF 006E R MOV CX, TIMER_HIGH 
002A 8B 16 006C R MoV DX, TIMER_LOW 
@O2E EB EA JMP Tl 3 TOD_RETURN 
0030 FA T3: CLI 3 NO INTERRUPTS WHILE WRITING 
0031 89 16 D06C R MOV TIMER_LOW, DX 
0035 89 OE 0OGE R MoV TIMER_HIGH,CX 3 SET THE TIME 
0039 C6 06 0070 R 00 MOV TIMER_OFL,O 3 RESET OVERFLOW 
OOSE EB DA JMP Tl 3 TOD_RETURN 
He tr fo Gs 
Bl 05 ’ 3 
0043 D2 EO SAL AL,CL 3 SHIFT FARM BITS LEFT 5S POSITIONS 
0045 36 Ce G AL,AH 3 SAV 
0067 £4 61 TN AL, PORT_B 3 GET CURRENT poRT SETTINGS 
00469 26 OF AND AL, 100111118 3 ISOLATE MU 
0O4B 0A C4 OR AL, AH 3 COMBINE PORT BITS/PARM BITS 
006D £6 61 our PORT_B,AL 3 SET PORT TO NEW VALUE 
OOsF 59 pls cx 
0050 «EB C8 MP qT 3 TOD_RETURN 
0052 TIME_OF_ bay ENB ek are Pam opty tbh bonnie eed a ete 
3 THIS ROUTINE WILL _READ TIMER}. THE VALUE READ IS "RETURNED IW AX. | 
0052 READ_TIME PROC NEAR 
0052 Be 4e MoV AL, avon ‘ii 3 LATCH TIMER} 
0054 6 43 TIM_CT 
0056 «50 Susi Ee 3 WAIT FOR 8253 TO INIT ITSELF 
0057 58 POP Ax 
bose £4 41 1H AL, TIMER+1 3 READ LSB 
O0SA 8A EO Mov AH, AL 3 SAVE IT IN HIGH BYTE 
005C 50 PUSH AX 3 WAIT FOR 8253 TO INIT ITSELF 
tse ee PRP neeag READ Hi 
41 AL, TIMER+ 3 
0060 36 C4 XCHG ALLAH 3 PUT BYTES IN PROPER ORDER 
0062 C3 RET 
#063 READ_TIME ENDP 


FREAL_ VECTOR_SETUP 
THIS ROUTINE WILL INITIALIZE THE INTERRUPT 48 VECTOR TO 


3 POINT AT THE REAL INTERRUPT ROUTINE, ease 
0063 REAL_VEC TOR_SETU ‘Sa PROC NEAR 
0063 50 mA EE Ge aK ; SAVE THE SCAN CODE 
8064 53 PUSH = BX 
0065 06 PUSH ES 
0066 33 Co XOR AX, AX 3 INITIALIZE TO POINT AT VECTOR 

3 SECTOR(O) 

6068 8E CO MOV ES,AX 


A-214 


OO9E 
QOA0 
OOA2 
QOAS 
OOAB 
00B1 
OoBS 


BB 0120 

26: C7 07 0000 E 
43 

43 

OE 

58 

26: 89 07 

07 

58 

58 

cs 

FB 

50 

53 

51 

E¢ 61 

50 

24 FC 

E6 61 

51 

E2 FE 

oc 02 

E6 61 

59 

51 

E2 FE 

4B 

59 

75 ED 

58 

E6 61 

59 

58 

58 

cs 

2B CO 

8E D8 

C7? 06 0120 R GOFOR 
AS 0060 R 

C7 06 0062 R E000 
co 18 

FB 

1E 

50 

52 

E8 0000 R 

FF 06 006C R 
75 04 

FF 06 O06E R 
83 SE OO6E R 18 
75 15 

81 SE 006C R 00B0 


MoV BX, 48H POINT AT INTERRUPT 48 
MoV WORD PTR Messtexs ee qeree INT 5 MOVE IN OFFSET OF 
INC 8x 3 ADD 2 TO BX 
INC Bx 
PUSH cs + GET CODE SEGMENT OF BIOS (SEGMENT 
3 RELOCATEABLE) 
PoP AX 
MOV WORD PTR ESt(BX),AX 3 MOVE IN SEGMENT OF ROUTINE 
POP €s 
POP 8x 
POP AX 
ET 
REAL_VECTOR_SETUP ENDP 
re NOISE 
THIS ROUTINE IS CALLED WHEN GENERAL BEEPS ARE REQUIRED FROM 
THE SYSTEM. 
}IMPUT 
; BX=LENGH OF THE TONE 
H CX=CONTAINS THE FREQUENCY 
sOUTPUT 
; ALL REGISTERS ARE MAINTAINED. 
HINTS 
H AS CX GETS LARGER THE TONE PRODUCED GETS LOWER IM PITCH. 
; 
kB NOISE PROC NEAR 
STI 
PUSH AX 
PUSH BX 
PUSH CX 
In AL, 061H * 5 GET CONTROL IKFO 
PUSH AX SAVE 
OPO1: 
ail AND AL,OFCH 3 Ree OFF TIMER GATE AND SPEAKER 
3 
out O61H,AL 3 OUTPUT TO CONTROL 
PUSH CX ; GR FOR TONE 
t LOOP LooPo2 3 A 
ee 0 AL,2 3 TURN ON SPEAKER BIT 
ouT O61H,AL 3 OUTPUT TO CONTROL 
PoP cx 
PUSH cx 3 RETRIEVE FREQUENCY 
LOOPO3: LOOP LOOPOS 3 ANOTHER HALF CYCLE 
DEC Bx 3 TOTAL TIME COUNT 
PoP cx 3 RETRIEVE FREQ. 
JNZ LooPol + DO ANOTHER CYCLE 
PoP Ax 3 RECOVER CONTROL 
out O61H,AL 3 OUTPUT THE CONTROL 
PoP cx 
PoP Bx 
POP Ax 
ET 
Ke NOISE ENDP 


. 
EASE OF USE REVECTOR ROUTINE - CALLED THROUGH 
INT 18H WHEN CASSETTE BASIC IS INVOKED (NO DISKETTE 
NO CARTRIDGES) 
KEYBOARD VECTOR IS mean TO POINT TO "NEW_INT_48" 
PLAN TO TRANSFER KBDIO 
BASIC VECTOR IS SET TO POINT TO E008:8 


BAS_| ENT eek FAR 


we we we we we we we 


SUME DS:ABSO 
sus erte 
MoV DS,A sSET ia. 
MOV Keve? —PTR,OFFSET NEW_INT 
mov BASIC_PTR,AX 3 SET INT. ta: Eoe0:0 JX BASIC 
MOV BASIC_PTR*2, 0E0QOH 


INT 18H Go 10 
pot ENT ENDP 5 es 


; “THIS” ROUTINE HANDLES THE TIMER INTERRUPT FROM 


$ CHANNEL 0 OF THE 8253 TIMER. INPUT FREQUENCY IS 1.19318 MHZ 
} AND THE DIVISOR IS 65536, RESULTING IN APPROX. 18.2 INTERRUPTS 
3 EVERY SECOND. 
5 
} THE INTERRUPT HANDLER MAINTAINS A COUNT OF AL gtk SINCE POWER 
} ON TIME, WHICH MAY BE USED TO ESTABLISH TIME OF DAY. 
$ INTERRUPTS MISSED WHILE INTS. WERE DISABLED ARE TAKEN CARE OF 
5 BY THE USE OF TIMER 1 AS A OVERFLOW COUNTER 
} THE INTERRUPY HANDLER ALSO DECREMENTS THE MOTOR CONTROL COUNT 
§ OF THE DISKETTE, AND WHEN IT EXPIRES, WILL TURN OFF THE DISKETTE 
} MOTOR, AND RESET THE MOTOR RUNNING FLAGS 
s THE INTERRUPT HANDLER WILL ALSO INVOKE A USER ROUTINE THROUGH 
} INTERRUPT 1CH AT EVERY TIME TICK. THE USER MUST CODE A ROUTINE 
Reels PLACE THE CORRECT ADDRESS IN THE VECTOR TABLE. 
ASSUME. DS:DATA 
TIMER_INT PROC FAR 
STi 3 INTERRUPTS BACK ON 
PUSH oS 
PUSH ax 
PUSH Dx s SAVE MACHINE STATE 
CALL DDS 
INC TIMER_LOW 3 INCREMENT TIME 
JNZ T4¢ 3 TEST DAY 
143 Inc TIMER_HIGH 3 ee HIGH WORD OF TIME 
i ST 
CMP TIMER_HIGH,O16H 3 TEST FOR COUNT EQUALLING 24 HOURS 
JNZ 15 + DISKETTE_CTL 


CMP TIMER_LOW, OBOH 
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eep1 75 0D JNZ TS 3 DISKETTE_CTL 
Boo---- TIMER HAS GONE 24 HOURS 
eons 2B CO SUB AX, AX 
0oDS AS OO6E R MOV TIMER_HIGH, AX 
oops =AS 006C R MOV TIMER_LOW, AX 
00DB Cé 06 0070 R OL MOV TIMER_OFL,1 
g-~---~ TEST FOR DISKETTE TIME OUT 
00EO TS: 3 bage jane ALL OVERFLOWS TAKEN 
ooce & oe 0040 R de MOTOR_COUNT 
60 3 RETURN IF COUNT NOT OUT 
00E6 80 26 COSF R FO AND MOTOR_STATUS,OFOH ; TURN OFF MOTOR RUNNING BITS 
OOEB BO 80 MOV AL, FDC_RESET 3 TURN OFF MOTOR, DO NOT RESET FDC 
00ED E6 F2 our NEC_CTL,AL 3 TURN OFF THE MOTOR 
OoEF CD 1C Té6: INT 1CH 3 TRANSFER CONTROL TO A USER 
ool 80 20 nov AL, EOI iconic 
OOF O20H, AL 
a Oe oy 3 END OF INTERRUPT TO 8259 
OOF re sed Ax 
OOF7 os 3 RESET MACHINE STATE 
cors CF IRET 
a TIMER_INT — 3 RETURN FROM INTERRUPT 
feaecncckascass ee Ee Re RE Steerer eee oe 
{NEMINTSS 
3 S_ ROUTINE IS THE INTERRUPT 48 HANDLER WHEN THE MACHINE IS 
3 FIRST POWERED ON AND CASSETTE BASIC IS GIVEN CONTROL. IT 
3 HANDLES THE FIRST KEYSTROKES ENTERED FROM THE KEYBOARD AND 
3 PERFORMS “SPECIAL” ACTIONS AS FOLLOWS: 
3 IF CTRL-ESC IS THE FIRST SEQUENCE "LOAD CAS1:,R™ IS 
3 EXECUTED GIVING THE USER THE ABILITY TO BOOT 
3 FROM CASSETTE 
3 AFTER THESE KEYSTROKES OR AFTER ANY OTHER KEYSTROKES THE 
: INTERRUPT 48 VECTOR IS CHANGED TO POINT AT THE REAL 
3 INTERRUPT 48 ROUTINE. 
Bt ren rn er ww ee ee eet weer own e eee ee ema 
ooF9 NEW_INT_$8 PROC FAR 
@oF9 3C 02 CMP AL, 3 IS THIS AN ESCAPE KEY? 
OOFB 74 10 JE ESC_KEY 3 JUMP IF AL=ESCAPE KEY 
OOFD SC 1D CMP AL,29 3 ELSE, IS THIS A CONTROL KEY? 
GOFF 74 06 JE CTRL_KEY 3 JUMP IF AL=CONTROL KEY 
0101 £8 0063 R CALL REAL_VECTOR_SETUP ; OTHERWISE, INITIALIZE REAL 
3 INT 48 VECTOR 
0104 CD 48 INT 48H 3 PASS THE SCAN CODE IN AL 
0106 ESC_ONLY: 
0106 CF I 3 RETURN TO INTERRUPT 48H 
0107 CTRL_KEY: 
0107 80 OE 0017 R 04 OR KB_FLAG, 04H 3 TURN ON CTRL SHIFT IN KB_FLAG 
@10c CF IRET 3 RETURN TO INTERRUPT 
010D ESC_KEY: 
010D F6 06 0017 R 04 TEST KB_FLAG, 04H 3 HAS CONTROL SHIFT OCCURED ? 
0112 74 F2 JE ESC_ONLY 3 NO, ESC ONLY 
sCONTROL ESCAPE HAS OCCURED, PUT MESSAGE IN BUFFER FOR CASSETTE 
3 LOAD 
0114 C6 06 0017 R OO MoV KB_FLAG,0 3 ZERO OUT CONTROL STATE 
0119 «#1E PUSH DS 
011A 07 POP ES 3 INITIALIZE ES FOR BIOS DATA 
o11B 1€ PUSH DS 3 SAVE OLD DS 
o1ic (OE PUSH cs 3 POINT DS AY CODE SEGMENT 
Sie BE HOV 3] OFFSET CAS_LOAD ; GET MESSAGE 
OLIE BE 0138 R , ea ; 
0121 B9 OO0E 90 MOV CX,CAS_LENGTH 3 LENGTH OF CASSETTE MESSAGE 
0125 33 CO XOR AX, AX 
0127 8A 04 T_LooP: MOV AL, (SII 3 GET ASCII CHARACTER FROM MESSAGE 
0129 cD 79 = INT 79H 3 PUT IN KEYBOARD BUFFER 
0128 46 INC SI 
o12c (E2 F9 LOOP T_LooP 
ster B&8 1COD ee Tea 
0133 iF ” Por Ds s RETRIEVE BIOS DATA SEGMENT 
bi Scud PoP bs Rt tro oR Ee raine sine swam eens! = 
3 MM MNOTEM Hi 
UMED THAT THE LENGTH OF THE CASSETTE MESSAGE IS 
' LESS THAR OR EQUAL TO THE LENGTH OF THE BUFFER. IF THIS IS 
; NOT THE CASE THE BUFFER WILL EVENTUALLY CONSUME MEMORY. 
ee Bs GASE IDE Re Bees kd oh ha dal hah paler 
0136 E8 0063 R CALL REAL_VECTOR_SETUP 
eIS7) CF rRey TERED AS FIRST 
jr----- MESSAGE FOR OUTPUT WHEN CONTROL-ESCAPE IS ENTE 
3 KEY SEQUENCE 
0138 CAS_LOAD LABEL BYTE 
O138 4C 4F 41 44 20 22 DB "LOAD "CAS1:",R° 
43 461 53 31 3a 22 
2c 52 
= 000E CAS_LENGTH EQU % - CAS_LOAD 
0146 NEW_LINT_48 ENDP 
0380 = ORG BEGIN+3500H 
0300 CODE ENDS 
END 
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" " 
4 MODULE 10 & 
" " 


7m 
+" PROGRAM NAME = RAS.ASM 


s™ DESCRIPTIVE MAME = POWER ON SELF TEST 


3 NOTES = NONE 

+™ DEPENDENCIES = NONE 

+" RESTRICTION = NONE 

3™ PROGRAM TYPE = PROCEDURE 
+ PROCESSOR = 8088 


3" FUNCTION = POWER ON SELF TESTS (POSTS) 


3" MODULE SIZE = VALUE OF LABEL "POST_EHD® 


3" ATTRIBUTES = SERIALLY RE-USABLE 
3™ LINKAGE = RESET_FLAG + 0000 


POST ~ POWER ON ENTRY 


sm 1236 1 POST - PCTRLPFPALT™O"DEL™ ENTRY 
3" S412 + POST - PCTRLMOPALT"O°INS™ ENTRY 
A 4321 1 DIAG. CARTRIDGE ENTRY 

3m 

3" INPUT = NONE 

3 

3" OUTPUT = NONE 

Hu 

3" EXIT-NORMAL = INT 19 TO BOOT LOADER, OR 

+H INT 80 TO DIAG. CARTRIDGE, OR 

fT) JMP CFAR INDIRECT) TO PCjr CARTRIDGE 

7” 

3M EXIT-ERROR = NORMAL MODE: 

3 JMP (HEAR) TO E_MSG OR SAME AS EXIT-NORMAL 
3M SERVICE MODE: 

pM JMP CHEAR) TO E_MSG 

; 

, 

3 EXTERNAL REFERENCES = VIDEO_PARMS : CRIC PARAMETER TABLE 
3m DISK_BASE =: DISKETTE ORIVE PARM. TABLE 
3H EXTAB : EXTENDED SCAN CODE TABLE 
38 

3" EXTERNAL ROUTINES = DDS t SET DS AS 40H SUBROUTINE 
iM READ_HALF_BIT + CASSETTE SUBROUTINE 
im SEEK : SEEK SUBROUTINE 

a] VIDEO_I0 : INT 10H 

a] DISKETTE_I0 =: INT 13H 

A KEYBOARD_I0 =: INT 16H 

3m BOOT_STRAP : INT 19H 

an 

3 DATA AREA = ©0008 : 8088 INTERRUPT LOCATIONS 

i 00300 : TEMPORARY STACK AREA DURING POST 

A} 00400 : ROM BIOS DATA AREA 

7 00500 : EXTRA DATA AREA 

3 

3 CONTROL BLOCKS = €0400-7 1: RS-232C ADAPTER ADDRESSES 

3m O04038-F 1 PRINTER ADAPTER ADDRESSES 

7H 00410-1 : INSTALLED HARDWARE 

3 00413-4 : USABLE MEMORY SIZE IN K BYTES 
sm 00415-6 + REAL MEMORY SIZE IN K BYTES 
3M COSLA-B + KBD BUFFER HEAD POINTER 

zu GO41C-D : KBD BUFFER END POINTER 

3m OOSSE =: DISKETTE SEEK STATUS 

3M 80462 =: CURRENT PAGE BEING DISPLAYED 
3m C0468 =: CASSETE LAST INPUT VALUE 

a] 00472-3 : WARM START INDICATOR 

3m 00474-7 1 DISKETTE SCRACH PADS 

a] 00478-B : PRINTER TIMEQUT VALUE 

3M @O47C-F + RS-232 TIMEOUT VALUE 

Tv] 00480-3 1 KBD BUFFER POINTERS 

uu 00484 =: INTERRUPT HAPPEND FLAG 

a] 00505 +: MFG CHECK POINT VALUE 

3m 00518 =: POST ERROR VALUE 

iM 00702 =: DISKETTE DRIVES® CONFIGURATION 
8 

sm TABLES = 20 : SX-08 DATA 

34 e ’ ° 

3 2 s BRANCH DATA 

i] 22 t Lad 

am €x_9 : e 

3m SYSTRS + SX-08 DATA 

3m PPD t PRINTER DATA 

3m 
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CODE SEGMENT PusLtc 
goes ASSUME CS: CODE, DS: ABSO, ES : NOTHING, SS :STACK € 


PUBLIC POST.POST_END 
PUBLIC RESET,D11, DUMMY_RETURN, PRT_HEX, BEEP, VECTOR_TABLE 


EXTRN = DDS: NEAR 

EXTRN READ_HALF_BIT:NEAR 
EXTRN = SEEK? NEAR 

EXTRN = =PRINT_SCREEN: FAR 
EXTRN = TIMER INT FAR 


3 
t 
3 
5 
3 
EXTRN EQUIPRENT: FAR s 
EXTRN MEMORY. SIZE_DETERMINE: FAR 3 
EXTRN DISKETTE_IO:FAR 5 
FXTRN =—-RS232 1OTFAR ’ 
EXTRN = CASSETTE_IO1FAR 3 
EXTRN KEYBOARD_I0:FAR 3 16H 
EXTRN PRINTER_TO:FAR 3 
EXTRN  BAS_ENTTFAR 3 
EXTRN BOOT_STRAP:NEAR 3 
EXTRN TIME_OF_DAY: FAR 3 
EXTRN VIDEO_PARMS:BYTE 3 
EXTRN DISK_BASE: BYTE 3 
EXTRN KBONMI: FAR 3 
EXTRN KEVG2 SINT: FAR 3 
EXTRN = EXTA BYTE 3 
EXTRN KKKFDASE 3 
3 


EXTRN BUFFER, QUEING: FAR 79H 

POST LABEL FAR @ 
speee BEGIN EQU . 

J oaSeenicacuswoseeciceceesessaseacumsnesesuswats~ occu cna sedecenee 

; RETURN POINTERS FOR RTNS CALLED BEFORE STACK INITIALIZED + 

i DISABLE MEMORY REGISTER DECODERS AND ENABLE VRAMI DECODER 
eoee 01 ze ¢ START REG ADDR 
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ooocoooocooe 
oooooocoroa 


oaonnoc 
q@oooco 


o 
oc 
a 
m 
Pawns 8 


20 4B 42 
$2 52 4F 52 


DB 060H 3 MASK DATA 
DB 10 + PARAMETER LENGTH 
DB 000H s 01 ~ CARTRIDGE ROM 2 (DO000-) 
DB 000H $ 02 - CARTRIDGE ROM 3 (D8000-) 
DB 000H 3 03 - CARTRIDGE ROM 4 (E0000-) 
DB 000H 3 04 = CARTRIDGE ROM 5 (E8000-) 
DB 000H + 05 - CARTRIDGE ROM 6 (FO000-) 
DB 000H $ 06 - CARTRIDGE ROM 7 (F8800-) 
DB 000H 3 07 - KANJI ROM 
DB 000H 3 08 - PROGRAMMABLE RAN 
DB 0B7H 5 09 - VRAML (B8000-BFFFF) 
DB 000H + OA - VRAM2 
DW Lot 3 RETURN ADDR 
so---- ENABLE BASE ROM DECODER 
OB 000H 3 START REG ADDR 
DB 023H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OBCH 3 00 - BASE ROM (E0000-FFFFF) 
DW Lo_2 3 RETURN ADDR 
poenee INITIALIZE I70 REGISTER DECODERS 
DB 080K 3 START REG ADDR 
DB 000H 3 MASK DATA 
DB 20 3 PARAMETER LENGTH 
DB O80H > 80 - 8259 PIC CS (20H-27H) 
DB 030H + 81 - 8253 PIT C$ C4OH-47H) 
DB 080H 3 82 - 8255 PPI cS (6CH-67H) 
DB 080H 3 83 - WMI CTRL CS CAQH-A7H) 
DB 080K 3 84 - SOUND CHIP CS (COH-c7H9 
DB O9EH 3 85 - UPD765 FDC CS CFOR-F7H) 
DB 080H 3 86 - JOYSTICK READ (200H-207k) 
DB 080H 3 87 - JOYSTICK WRITE (200H-207H) 
DB 080H 3 88 - PARALLEL PRINTR(378H-37FH) 
DB 080H 3 89 - 8250 COMM PORT (2F8H-2FFH) 
DB 080H 3 8A - 46505 CRIC (3D0H-3D7H) 
DB 000H 3 8B - RESERVED 
DB 080H 3 8C - PCJR VGA (3DAH) 
DB 080H 3 8D - NATIVE VGA (3DAH) 
DB 080H 3 BE - EXT. VGA C3DDH) 
DB 080H 3 8F - LIGHT PEK GATE (3DAH,3DEH) 
DB 0380H 3 90 - CRIVCPU PAGE REG 2 (3D9H) 
DB 080H 3 91 - CRIZCPU PAGE REG — (30FH) 
DB coon 3 92 - MODEM CTRL REG (3F8H-3FFH) 
DB 080K 3 93 - EXTERNAL BUS CONTROL REG 
DW Lo 3 RETURN ADOR 
s----- DISABLE $X-03 DECODER 
20 DB O8EH 3 START REG ADDR 
DB 000H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB Joon 3 _8E - SX-03 EXT. VIDEO —(3DDH) 
Du Lit 3 RETURN ADDR 
Sin came nae netenecace sete ceserceusecueccceteseseu eweine Se ee 
zu Dw Lis 3 RETURN ADDR OF ROS CHECKSUN TEST 
jeseecsucnse cooler eine woe oneee ceases, Sencancseceunscosses as 
bo---- ALLOCATE PROGRAMMABLE RAM 
DB 008H 3 START REG ADDR 
DB 063H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OAOK 3 (00000-1FFFF) 
Dw MNCONFS 3 RETURN ADDR 
DB 008H 3 START REG ADDR 
DB 063H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB CAGH 3 (20000-3FFFF) 
Did MCONFS 3 RETURN ADDR 
DB 008H 3 START REG ADDR 
DB 063H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OA8H s _(40000-SFFFF) 
DW MCONFS 3 RETURN ADDR 
DB 003H 3 START REG ADDR 
DB 063H 3 MASK DATA 
os i 3 PARAMETER LENGTH 
DB OACH 3 (60000-7FFFF) 
pees Dw MCONFS 3 RETURN ADDR 
= DW Llé 3 RETURN ADDR OF 2K RAM TEST 
Ex_0 DW OFFSET EBe 3 RETURN ADDR OF E_NSG 
OW OFFSET E30 3 zs 
; Dw OFFSET TOTLTPO 3 * 
MESSAGE AREA FOR POST : 
F3B DB " KB* —5_- MEMORY SIZE PROMPT 
ERROR_ERR DB ‘ERROR’ + GENERAL ERROR PROMPT 
MEM_ERR DB ‘At 3 MEMORY ERROR MESSAGE 
KEY_ERR DB "Be 3 KEYBOARD ERROR MESSAGE 
CASS_ERR DB "cr 3 CASSETTE ERROR MESSAGE 
COML_ERR DB *p? } SERIAL PORT ERROR MESSAGE (2FXH) 
COM2_ERR DB ‘Er 3 SERIAL PORT ERROR MESSAGE (3FXH) 
ROM_ErR D8 ‘Ff? 3 OPTIONAL GENERIC BIOS ROM ERROR 
CART_ERR OB "go? 3 CARTRIOGE ERROR MESSAGE 
DISK_ERR DB 'H! 3 DISKETTE ERROR MESSAGE 
PRT_ERR DB ye 3 PARARELL PRINTER ERROR MESSAGE 
KFNY_ERR DB ‘Ke 3} KANJI-FONT ROM ERROR MESSAGE 
INVC_ERR DB "ue 3 INVALID COMBINATION OF CARTRIDGE 


i 
IMASKS LABEL BYTE 


OB GEFH 
DB OFIH 


wee we we 
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INTERRUPT MASKS FOR 8259 

INTERRUPT CONTROLLER 

MODES 3 RS232C INTR MASK 
RS232C INTR MASK 
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0068 
0068 


008c 
OO8E 
0090 


0992 


0095 
0098 
OO9A 
oesc 


OO9E 
00A0 
O0a2 
OOAS 
OOAG 
OAS 
O0A9 
GOAB 


E9 O4CA 
E9 G4CA 


BO 60 
E6 AO 
E4 AO 


B8 267F 


Bg 0004 
02 C4 
E6 CO 
E2 FA 


BO AO 
&6 F2 
BA OSDA 
ec 

BO 04 
EE 

BO 62 
cE 


B¢ DS 
3 4c 


m 


ey 
etal 
o> 


9 4% 


mo 
aw 


ew2cooen 


MONOF LYS YBOUYOEY COPwayvuV VC 
> 


CONNK NFO SFMNNRKPOCeW Neen 


AMNMe Uw ww MUM Puw 


Veen oN 





+ SETUP 
; DISABLE WMI & MASKABLE INTS, CLEAR MEMORY MAPP : 
+_____ ENABLE BASE ROM, AND SET UP’ 1/0 MAPPIN mee : 
ew Meet ac Ks + DISABLE NMI acini 
Q 3 
In AL, HMI_PORT 5 RESET NMI F/F 
+ DISABLES MASKABLE INTERRUPTS 
oey mre aPanr ag 3 SEND 'FF* TO MFG_TESTER 
° 3 
Mov AL, CLEAR MFG_PORT 
our MFG. PORT+1,AL ; a eee 
out MFG_PORT#2,aL 5 
MOV AX, CS 
may feeGs ; SET UP STACK SEGMENT & POINTER 
MoV SP,OFFSET 20) 5 
JMP S8SETJ + CLEAR MEMORY MAPPING 
Lol: = JMP S8SETJ 3 ENABLE BASE ROM DECODER 
Loz: jmp S8SETJ + SET UP I7C REG DECODER 
3 SETUP AT NATL ee YP pee Sasa 
DISABLE NMI, MASKA , 
DESiLe Bor. MASKABLE I INTS, SOUND CHIP, AND VIDEO. : 
Lor MOV ao "T DISA BCEMMR eo OE 2 heme ep 
ouT NMI_PORT,AL “baie DLE wnt 
IN AL. NMI_PORT 3 RESET NMI F/F 
3 DISABLE ATTENUATION IN SOUND CHIP 
Mov AX, 207FH ; REG ADDRESS IM AH, ATTENUATOR OFF 
Mov 6x, 4 i 4 ATTENABLE 
li: ADD ALS AH e 3 COMBINE REG ADDRESS AND DATA 
— 3 
Loop La P 
MOV AL, WD FENABLE*FDC_RESET TURN DRIVE 0 MOTOR OFF, 
OUT NEC_CTL.AL | ENABLE TIMER 
MOV DX. VGALeTe 3 VIDEO GATE ARRAY CONTROL 
IW AL, DX 3 SYNC VGA TO ACCEPT REG 
MOV ALL4 3 SET VGA RESET REG 
HOV hse } Set'syne RESET 
; SYNC RES 
out DX, AL ; RESET VIDEO GATE ARRAY 
3 TEST 1 t 
3 8088 PROCESSOR TEST 1 
3 DESCRIPTION t 
3 VERIFY 8088 FLAGS, REGISTERS, AND CONDITIONAL JUMPS ' 
3 MFG ERROR CODE = 000 : 
MOV AH, ODSH ; SET SF, CF, ZF, AND AF FLAGS ON 
SAHF 
JNC L4 3 GO TO ERR ROUTINE IF CF NOT SET 
JHZ 4 + GO TO ERR ROUTINE IF ZF NOT SET 
INP ts + GO TO ERR ROUTINE IF PF NOT SET 
INS 4 3 GO TO ERR ROUTINE IF SF NOT SET 
LAHF + LOAD FLAG IMAGE TO AH 
ty kd 1 MRE,SEE SotePEtRaDMREY 3 
SHR AH, CL 3 SH 
Juc 4 F GO TO ERR ROUTINE IF AF NOT SET 
ov AL, 40H 3 
SAL Aol 3 SETUP FOR TESTING 
JNO L4 3 GO TO ERR ROUTINE IF OF NOT SET 
XOR AH, AH 3 SET AH = 0 
SAHF 3 CLEAR SF, CF, ZF, AND PF 
IBE 4 3 GO TO ERR ROUTINE IF CF ON 
1830 ERE UIE HC 2 at 
Js 4 3 60 
4 + GO TO ERR ROUTINE IF PF ON 
TAHF : 3 LOAD FLAG IMAGE TO AH 
MoV CLS ; LOAD CNT REG WITH SHIFT CNT 
SHR AH, CL 3 SHIFT "AF! INTO CARRY BIT Pos 
Je L4 + GO TO ERR ROU 
SHL AH, 2 + CHECK THAT "OF! IS CLEAR 
GO TO ERR ROUTINE IF ON 
geoee- RERD/URITE. THE 8088 GENERAL AND SEGMENTATION REGISTERS 
i WITH ALL ONE'S AND ZEROES'S. 
MOV X, OFFFFH ; SETUP ONE'S PATTERN IN AX 
L2; Aov DS,AX } WRITE PATTERN TO ALL REGS 
MOV BX, DS 
me Eee 
MOV 
MOV $5,CX 
MOV DX, $$ 
MOV SP, DX 
mov BP, SP 
MOV $I, BP 
Mov DI,SI 
JNC L3 
XOR AX, DI s PATTERN MAKE IT THRU ALL REGS 
JNZ L4 s NO -GOTO ERR ROUTINE 
cic 
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eccooeo cececcoeo o 
-— ee me FO oe oe oe pe - 

NMVVOO Seeoeocoen 

NOenNS NOFCevUNsSeE 


a 


cooce 
emo 
vvv~w 
mawn 


JMP L2 


L3: OR AX, DI 3 ZERO PATTERN MAKE IT 
JZ Ls + YES -GOTO NEXT TEST bales 
L4: MOV AL,O 5 MFG ERROR CODE = 000; 
our MFG_PORT*1,AL 3 
MOV ALT 5 
our MFG_PORT+2,AL 3 
HLT 3 HALT 
LS: 
joes 2 PED OP OD EE PD a: lessee oeees SE ee See a Eee ec an hala tae a clas tee 
; TEST : 
“255 INITIALIZATION AND TEST ; 
i DESCRIPTIO ; 
FIRST INITIALIZE 8255 PROG. PERIPHERAL INTERFACE, : 
PORTS A&B ARE LATCHED OUTPUT BUFFERS. C IS INPUT. t 
H MFG ERROR CODE = 0002 : 
Pe Rc Sesseeceesscscs Se ee 
MOV AL, OFEH s SEND "FE TO MFG_TESTER 
OUT MFG_PORT,AL 3 
MOV AL, Rope 8255 
out CMD_PORT,AL 3 CONFIGURES 170 PorTS 
SUB AX, AX + TEST PATTERN SEED = e009 
U6: Mov AL, AH 
our PORT_A,AL + WRITE PATTERN TO PORT A 
IN AL,PORT_A 3 READ PATTERN FROM PORT A 
our PORT_B,AL 3 WRITE PATTERN TO PoRT 3 
IW AL, PORT_B $ READ OUTPUT PORT 
cme AL, AH 5 DATA AS EXPECTED? 
JNE u7 3 IF NOT, SOMETHING IS WRONG 
INC AH 3 MAKE NEW DATA PATTERN 
JNZ 6 3 LOOP TILL 255 PATTERKS DONE 
JMP SHORT L8 3 CONTINUE IF DON 
L7: MOV BL,02H 3 SET ERROR FLAG. Canzee NOW) 
JMP E_MSG 3 GO ERROR ROUTINE 
L8: MoV DX, PAGREG $ 
MOV AL,1BH 3 PAGE 3 
OUT DX,AL 5 
MoV AL, 000011018 s INITIALIZE OUTPUT PoRTS 
out PORT_B,AL 
3 PART 3 
3 SET UP 46505 AND VIDEO GATE ARRAY TO GET _MEMORY MORKING § 
jreoococeee SS SOVS 202888 22222282882 eee wee eee Se Kee Se eee wee ceseeea. ieee 
HOV AL, OFDH SEND 'FD' TO HFG_TESTER 
ouT MFG_PORT,AL 
MOV BX,OFFSET VIDEO_PARMS ; POINT TO 46505 PARMS 
MOV CX,16 3 SET PARM LEK 
XOR AH, AH 3 AH IS REG 8 
Lo: MOV AL,AH 3 GET 46505 REG 
Mov DX, CRT_CTL 3 SET ADDRESS OF. 46505 
OUT DX,AL 
INC AH 3 NEXT REG VALUE 
INC Dx 3 POINT TO DATA PORT 
MOV AL,CS:£BX) 3 GET TABLE VALUE 
ouT DX,AL 3 OUT TO CHIP 
INC BX 3 NEXT IN TABLE 
Loop 19 3 
3----- START VGA WITHOUT VIDEO ENABLED 
MOV DX, VGA_CTL 3 SET ADDRESS OF VGA 
IN AL, DX 3 BE SURE ADDR/DATA FLAG IS 
3 IN THE PROPER STATE 
MOV cl.5 3 @ OF REGISTERS 
XOR AH, AH 3 AH IS REG COUNTER 
Lio: MOV ALLAH 3 GET ee, § 
our DX,AL 3 SELE 
XOR AL, AL 3 SET SERO. FOR DATA 
ouT DX, AL 
INC AH 3 NEXT REG 
Loop Lio 3 
MoV DX, VGA_CTL_E ’ 
InN AL,DX 3 
MOV ALL4 3 EMABLE EXT. VIDEO CLOCK 
ouT DX,AL 3 
OUT DX,AL ; 
MoV ALLL 3 DISABLE EXT. VIDEO PROCESSOR 
our DX,AL 3 
our DX, AL 3 
ney Axes CS 3 SET UP STACK SEGMENT & POINTER 
3 
MOV SP, OFFSET zo 3; 
isa jmp S8SETJ 3 DISABLE SX-03 DECODER 
3 TEST A 


: 
t PLANAR BOARD ROS CK : 
3 DESCRIPTION SHESESHN. SER? 3 
U ‘ a rnekaunt jet aS * aia FOR EACH ROS MODULES 1 
3 HE PLANAR B 1 
3 MFG ERROR’ CODE = 2007” *MODULE AT ADDRESS EQQQGH ERROR ' 
5 0008 MODULE AT ADDRESS E8CO0H ERROR t 
‘ 9003 MODULE AT ADDRESS FOOQOH ERROR 2 
' 0004 MODULE AT ADDRESS F8OQOH ERROR ' 


brett etter 


Mov AL,OFCH 3 SEND 'FC' TO MFG_TESTER 
our MFG_PORT.AL 3 
MoV OX, 0EQ00HK + SET DS TO E0OGH 

Ll2: MoV DS.DX 3 
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0180 «33 Fé XOR SI,SI 3 SET OFFSET 
0182 BC 0034 R Mov SP,OFFSET 21 + SET UP STACK POINTER 
0185 BY 8000 Mov CX,8000H NUMBER OF BYTES TO BE TESTED, 32K 
0188 EB 23 JMP SHORT ROS CHECKSUM 3 32K ROM OK ? 
018A 741A Lis: JZ i1 Yes - 
918C BB 0603 Mov Bx. 0003H + SET ERROR CODE (0003) 
018F 80 FE FO CMP DH, OFOH 3 
0192 7% oF JE. LE 3 
0196 3 (0004) 
0195 80 FE F8 cmp DH, OF8H 3 
0198 74 09 JE ; 
O19A 43 INC BX 3 
eG me OR 
r) (00 
0190 80 FE £0 cup DH, OEOH ; oe 
sue ay te BR 
01Aa2 Bx + (0008) 
ue Hy as tye: ries eS _MSG + INDICATE ERROR 
0 : i, 08H ; END OF ROM SPAC 
Q1A9 75 DS JNZ Li2 jae ai 
O1AB EB OA JMP SHORT L15 3 YES- GOTO NEXT TEST 
+ SUBROUTINE ae aia ORNS Conan Ne 
3 HMETIC CHECKSUM T 
et SUBROUTINE 
3 DS = DATA SEGMENT OF ROM SPACE TO BE CHECKED 
3 SI = INDEX OFFSET INTO DS POINTING TO 1ST BYTE 
3 CX = LENGTH OF SPACE TO BE CHECKED 
; EXIT: ZERO FLAG OFF=ERROR, ON= SPACE CHECKED OK 
e1aD ROS_CHECKSUN PROG. NEAR ee ~ 
CLAD BO 00 MOV L,0 
O1AF 02 04 RC_0: ADD AL,DS: ($Y) 
0181 46 INC SI 
01B2 (E2 FB Loop RC_O 
0184 0A CO OR ALTAL 
0186 C3 RET 
0137 ROS_CKECKSUM ENDP 
0137 Lis: 
3 PART 5 ar 
3 RAM MAPPING (SAVED 1H port A DURING POST) : 
3 BIT 7 =: SET 1H PA “7 : 
3 BIT 6 : SETI test 13.815 2 
5 BIT 5-4 =: RESERVED 2 
3 BIT 3 =: 64K RAM CARD INSTALLED : 
3 BIT 2 +: RESERVED 2 
5 BIT 1-0 : NUMBER OF EXP 128K RAM CARD 2 
3 00 NO CARD INSTALLED 2 
3 O01 1 CARD INSTALLED (128K - 20000) t 
3 10 2 CARDS INSTALLED (256K - 40000) : 
3 11 3 CARDS INSTALLED (384K - 60000) : 
0137 BO FB MoV AL, OFBH + SEND 'FB* TO MFG_TESTER 
0189 EG 10 OUT MFG_PORT,AL 3 
01BB 33 DB XOR BX, BX + INIT 128K CARD COUNTER 
01BD 8E DB MOV DS, BX 3 SEY FIRST SEGMENT TO BE TESTED 
O1BF «33 F6 XOR $I,SI 3 
01Cl £6 62 IN AL, PORT_C 3 GET CONFIG BITS 
O1CS 24 08 AND AL, 00001000B 3 64K CARD IN ? 
e1cS 75 02 JNZ MCONFO 3 
sic? 83 08 MoV BL,00001000B 3 ser SSK CARD BLAS BIT 
01C9 BB SASA MCONFO: MOV AX, 5A5SAH 3 
o1cc 89 04 * Mov DS:(S1J,AX 3 WRITE DATA TO TOP OF 128K BOUNDRY 
O1CE EB 00 JMP $42 + DELAY 
0100 EB 00 JMP $+2 3 
0102 8B O14 MoV DX,DS:($1) 3 READ BACK 
0106 «3B C2 CMP AX, DX 3 SASA ? 
ute us Me JE MCONF1 3 YES- 
NOT AX ; 
C1DA 89 06 MOV DS:(SIJ,AX } WRITE DATA TO TOP OF 128K BOUNDRY 
01DC EB 00 JMP $42 3 DELAY 
O1DE EB 0D JMP $+2 3 
ates 4 14 mov DX,DS:{$1) 3 Rene BACK 
c2 CMP AX, DX 3 ? 
O1ES 75 10 JNE MCONF2 3 NO -GOTO MAIN RAM MAPPING 
O1E6 43 MCOKF1: INC BX 3 YES-INC 128K CARD COUNT 
O17 83 CS 06 ADD SP.6 3 INC TABLE POINTER 
A BC D8 MOV AX, DS ; 
Q1EC 80 C4 20 ADD AH, 20H 3 SET SEGMENT OF NEXT 128K 
OLEF 8E DB MOV DS, AX 5 
O1FL 80 FC 60 CMP AH, 60H 3 512K EXCEEDED ? 
Q1FS 72 D3 JB MCONFO 3 NO -CHECK NEXT 128K 
O1F6 8B C3 MCONF2: MOV AX, BX 3 SAVE @ OF 128K CARD IN PORT_A 
O1F8 Eb 60 ouT PORT_A,AL 3 
O1FA £9 O4CAR JuP S8SETJ 3 SET RAM MAPPING 
FD MCOHFS: sated eee obi oe oeraees 
3 TEST : TEDFT122 


*sAse 8K READ/WRITE STORAGE TEST 


3 DESCRIPTION : 
3 WRITE/READ/VERIFY DATA PATTERNS AA, 55, FF AND 00 TO ’ 
3 1ST 8K OF STORAGE AND THE 2K OF VIDEO RAM (CRT BUFFER). ¢ 
; VERIFY STORAGE ADDRESSABILITY. ’ 
; ON EXIT SET CRT PAGE TO 15. SET TEMPORARY STACK ALSO. 3 
3 MFG ERROR CODE = 03XX FOR 128K RAM CARD ' 
; 04XX FOR BASE 64K RAM t 
3 O5XX FOR 64K RAM CARD a 
; 06XX FOR BOTH 64K RAM ' 
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ecoocoococooco 
NYNNNNNNNAN 
Ne Rr Re eRe ee eo 
OMONFarernom 


0222 


FC 02 


000s 
oD32 


04c2 


03D9 
00 

0400 
BB8O 


ODEA 


0006 
0D3S2 


(XX= ERROR BITS - OR'ED HIGH & LOW BYTES) : 
0005 FOR BASE 64K RAM (B8000 ADDR PATH) 
0006 FOR BASE 32K VIDEO RAM (BaC00 ADOR PATH): 


Mov AL, OFAH } SEND 'FA* TO MFG_TESTER 
OUT MFG_PORT.AL $ 
MOV SP,OFFSET 22 s SET RETURN ADDR 
MOV CX,1000H 3 SET FOR 4K WORDS (8K BYTES) 
XOR AX, AX 
MOV ES, AX s LOAD E 
JMP PODSTG + TEST ist 4K RAM 
L16: JZ L23 3 TEST O 
MOV BH, 03H 5 ERROR. Tess 
IK AL, PORT_A 3 LOAD CONFIG FLAG 
TEST AL, 00000011B 3 128K CARD INSTALLED ? 
JHZ L20 3 YES- 
Liv: MOV BH, 04H 3 ERROR 04.... 
In AL,PORT_A ; 
TEST AL, 000010008 3 64K CARD INSTALLED ? 
JNZ L21 3 YES-WORRY ABOUT ODD/EVEN 
L20: MoV BL,CL 3 MO -COMBINE ERR BITS 
OR BL.CH 
JMP SHORT L22 3 
L2i: cMP AH, 02 3 EVEN BYTE ERROR? ERR 04xX 
MOV BL,CL 
JE L22 
INC BH + MAKE INTO O5XX ERR 
OR BL,CH 3 MOVE AND POSSIBLY COMBINE 
3 ERROR BITS 
cMP AH,2 3 ODD BYTE ERROR 
JE L22 
INC BH 3 MUST HAVE BEEK BOTH 
3 - MAKE INTO 06XX 
L22: MP E_MSG 3 JUMP TO ERROR OUTPUT ROUTINE 
joocee sErup TEMPORARY STACK SEG AND SP 
L23: ov ax 0 9s0H 3 GET STACK VALUE 
Rov 3 SEY THE STACK UP 
MOV $F. OrFser TOS 3 STACK IS READY TO GO 
XOR X, AX 3 SET UP DATA SEG 
Mov DS,AX 
goooo- TEST FIRST 2X OF gaK VRAM 
IN AL,PORT_A F 
TEST AL,000000118B 3 128K RAM CARD ? 
Jz 24 3 NO -BYPASS TESTING 
MOV CX,4000H 3 
TEST AL,00000001B 3 
JZ L23_l 3 
MOV CH, 20H 3 
TEST AL,00000010B 3 
JZ L23_1 3 
MoV CH, 60H 3 
L23_1: MOV ES,CX 3 
MOV CX, 0400H 3 2K BYTES 
GALL PODSTo 3 
, 
3oo--- TEST BOTTOM. 2K OF PAGE 3 IN 64K VRAM USING B8060 ADDR PATH 
L24: AL,OF9H + SEND 'F9" TO MFG_TESTER 
our MFG_PORT,AL ; 
MOV CX,0400H 3 2K BYTES 
MOV AX, OBB80H + POINT TO AREA JUST TESTED WITH 
MOV ES,AX 3 DIRECT ADDRESSING 
CALL PODSTG 3 
JZ L25 5 
MOV Bx. neest 3 ERROR 0005 
JMP EN 3 
boo--- DISABLE Vaan” DECODER & ENABLE VRAM2 DECODER 
L25. ALL S8SET 3 
bs 009H 3 START REG ADDR 
DB 060H 3 MASK DATA 
DB 2 3 PARAMETER LENGTH 
DB 000H 3 DISABLE VRAML DECODER 
ob OB7H 3 ENABLE VRAM2 DECODER 
MOV DX, PAGREG2 3 SET PAGE REG 8 
mov AL,O 3 
ouT DX, AL 3 
bom-e= TEST BOTTOM 2K OF PAGE 8 IN 32K VRAM USING B800@ ADDR PATH 
Mov CX,0400K 3 2K BYTES 
nov AX, OBB8OH 3 POINT TO AREA JUST TESTED WITH 
MoV ES,AX 3 DIRECT ADDRESSING 
CALL PODSTG 3 
JZ L26 3 
MOV BX, 0006H 3 ERROR 0006 
: SMP E_MSG 
3 PART 7 
ROM CARTRIDGE CONFIGURATION CHECK 
DESCRIPTION : 


THIS" ROUTINE CHECKS ROM CARTRIDGE ADDRESS CONFIGURATIONS. 
IF ROM CARTRIDGE OVERLAPS SYSTEM ROM AREA, SYSTEM ROM IS 
DISABLED AND THEN CARTRIDGE ROM IS ENABLED. 


BASE ROM aa i FLAG (SAVED IN PORT A) 


1 SYSTEM MODE FLAG 
0 NATIVE MODE 
1 PCJR MODE 


6 : SET IN TEST 13 2 15 
5-4 : RESERVED 

3 t SET IN PART 5 

2 + RESERVED 
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O29E BO FS 
o2A0 E6 10 


O2A2 EB O4CZ2 R 
OA 


0246 «00 
O2A7 (01 
O2a8 00 


O2A9 ES O4C2 R 
o1 


0285 nA OlFF 
02B9 «AB 20 


O2FC 8A 64 02 
0 

0307 81 FA Agee 
3 


OSOF £8 O4c2R 


@S1c «EB 21 
OSIE E8 O4C2 R 


6325 Es 04C2 RK 


a BIT 1-0 : SET IN PART 5 t 
L26r MoV AL, ean 3 SEND 'F8" TO MEG TES 
out MFG_PORT,AL 3 
Booe- DISABLE VRAM2 DECODER 
pet Suah : 
3 START REG ADD 
DB o00H i MASK DATA 
pe a 3 PARAMETER LENGTH 
3 
Beno-- ALAEKTE caRT. ROMS TO ADDR 90000H-BFFFFH TEMPORARILY 
3 
DB th 3 START REG ADDR 
DB 020H 3 MASK DATA 
DB 6 3 PARAMETER LENGTH 
DB OB2H 3 CART. ROM 2 (90000-97FFF) 
DB OB3H 3 CART. ROM 3 (98000-9FFFF) 
DB OBGH 3 CART. ROM 4 (A0000-A7FFF) 
DB OBSH 3 CART. ROM 5 (A8000-AFFFF) 
DB OBGH 3 CART. ROM 6 (B0000-B7FFF) 
OB OB7H 3 CART. ROM 7 (B8000-BFFFF) 
mov Dx, SSsTATUS 3 
IN AL, 3 READ STATUS 
TEST AL, EROM7IN 3 F8Q00-FFFFF OVERLAPPED BY CART.? 
ney SGM a, 
BOOGH 3 
aay cares ; GET SYSTEM ID FROM FFFFE 
Mov SI,0FFFEH 3 
ae Marsares 
»PJSYSID 3 PCJR SYSTEM CART. 
ie SERS WBS tu sroren 
SWP8 3 NO- 
eeu. tis es ; NO-GO TO SYSTEM SWAP (NATIVE MODE) 
IN AL,PORT_A 3 SET PCJR MODE FLA 
OR AL, 100000008 3 — 
OUT PORT_A,AL 3 
RCONF2 TEST AL : 
: AL, EROM6IN 3 FOOO0-F7FFF OVERLAPP 2 
re SL AER y Vag ED BY CART.? 
MoV DX, 9000H 3 SET TEMPORARY CART. ROM TOP ADDR 
XOR SI,SI FFSET 
RCONFS: MOV DS, DX 3 
MOV AX, DS: £51) 3 READ ROM CARTRIDGE ID 
PUSH ax 3 BUS SETTLING 
POP AX 3 
cMP AX, OAASSH 3 ID FOUND (PCJR MODE) ? 
JE RCONF7 3 YES- 
cMP AX, 55AAH 3 (NATIVE MODE) 
JE RCONF7 3 YES- 
ADD DX, 0080H 3 POINT TO NEXT 2K ADDR 
CMP DX, 0B000H 3 ADDR FO000 ? 
JB RCONF3S 3 NO -GO CHECK NEXT AREA 
JMP SHORT RCONF14 jj; YES-AREA E00000-FFFFF IS NOT 
3 OVERLAPPED BY CARTRIDGE 
RCONF7: MOV AH, DS: (S142) 3 SET CART. ROM LENGTH 
XOR AL,AL 3 
Mov cL,3 3 
SHR AX, CL ; 
ADD DX, AX 3 CALCULATE CART. ROM END ADDR+1 
CMP DX, 0A000H 3 CART. ROM END ADDR+1 <= E0000 ? 
JBE RCOHFS 3 YES- 
JMP SHORT RCONF2S 3 NO -AREA EOOOO0-EFFFF IS 
3 OVERLAPPED BY CARTRIDGE 
~---- BASE ROM ACTIVE (F8000-FFFFF) 
CONFI2:CALL $ ; 
R DB 000H 3 START REG ADDR 
DB 060H 3 MASK DATA 
DB 7 3 PARAMETER LENGTH 
DB OBFH 3 DISABLE BASE ROM (E0000-F7FFF) 
DB OBAH 3 ENABLE CART. ROM 2 (D0000-D7FFF) 
DB OBBH 3 ENABLE CART. ROM 3 (D8000-DFFFF) 
DB OBCH 3 ENABLE CART. ROM & (E0000-E7FFF) 
DB OBDH 3 ENABLE CART. ROM 5 (E8000-EFFFF) 
DB OBEH 3 ENABLE CART. ROM 6 (FO000-F7FFF) 
DB 000H } DISABLE CART. ROM 7 (F8000-FFFFF) 
ine SHORT RCONF15 


por--- BASE ROM ACTIVE (FO000- FFEFF) 


RCONFIS: GALL S8SET 


ee ee Be we we we we we we we we we we we we 


START REG ADDR 

MASK DATA 

PARAMETER LENGTH 

BASE ROM CEQOO0-EFFFF) DISABLE 


START Wh ADDR 


MASK DAT FFFFFFFFFFF 
PARAMETER et 

ENABLE CART. ROM 2 (DO0000-D7FFF) 

ENABLE CART. ROM 3 (D8000-DFFFF) 

ENABLE CART. ROM 4 (E0000-E7FFF) 

ENABLE CART. ROM 5 (E8000-EFFFF) 

DISABLE CART. ROM 6 (FOOOO-F7FFF) 

DISABLE CART. ROM 7 (F8000-FFFFF) 


START REG ADDR 

MASK DATA 

PARAMETER LENGTH 

ENABLE CART. ROM 2 (DO0000-D7FFF) 


000H 
DB 061H 
DB 1 
DB OBEH 
CALL S8SET 
DB 001H 
bB 060H 
DB 6 
DB OBAH 
DB OBBH 
oB OBCH 
OB OBOH 
DB 000H 
DB 000H 
JMP SHORT RCONFI5S 
3----- BASE ROM ACTIVE (E0000- FFEFF) 
RCOHF14:CALL S8SET 
DB 0O1H 
DB 060H 
DB 6 
DB OBAH 
DB OBBH 


A-224 


wee we we we we we 


ENABLE CART. ROM 3 (D8000-DFFFF) 


0349 
O34A 


1E 
FA 


04C2 R 


O4F5 R 


o 
n 
2 
o 
2 


o 
i] 
“ 
Nn 
PR 


06 OO72 R 1234 


1E 0015 R® 
FB 0080 


EB 40 


EB 40 


OLFF 
08 
AQ 


DB 000H 3 DISABLE CART. ROM 4 (€0000-E7FFF) 
DB 000H 3 DISABLE CART. ROM 5 (€8000-EFFFF) 
DB oooH 3 DISABLE CART. ROM 6 (FOO00-F7FFF) 
DB 000 $ DISABLE CART. ROM 7 (F8000-FFFFF) 
to---- ENABLE veane" _DECODER 
RCOMNF15: CALL $85 5 
DB th 3 START REG ADOR 
DB 060H + MASK DATA 
DB 1 $ PARAMETER LENGTH 
ps 087H 3 VRAM2 (B8000-BFFFF) 
JMP 126_2 s CONTINUE NEXT TEST 
5 Sew eeew eee eee eee SD DSSSSCSSSABOSSO2SCCSSS® eR eR ewe wre ee mew eeneees 
5 SYSTEM ROM SWAP TO CARTRIDGE ROM 
SYSSWAP: PUSH DS 3 “SAVE DS SEG 
clr > DISABLE EXTERNAL INTERRUPTS 
Jorceecooroorroeeoercece=: ra LL OL Oe Oe OO we 
3 TEST 22 : 
3 PCjr CARTRIDGE ROM CHECKSUM TEST H 
3 DESCRIPTION ; 
; CHECK PCjr CART. ROM (FOOOQO-F7FFF) WITH CHECKSUM. : 
+ MFG ERROR CODE = 2AFO CFOSMSB OF SEGMENT THAT HAS CHECKSUM) : 
prrowesereess= is a me a a a on mew ewww enween nee we eeeeeee 
CALL MFG_UP 3 “SEND "ES" TO MFG_TESTER 
MOV DX, S8STATUS 3 
IN AL, DX 3 
TEST AL, EROMGIN 3 CART. ROM IN FOOO0-F7FFF ? 
JZ JROM 3 NO -BYPASS 
MOV AX, OFOOOH 3 SET BASE ROM ADDR 
MoV DS, AX $ 
XOR SI,SI 3 
MOV AX, DS: (STI 3 
cMP AX, OAASSH 3 PCJR CART. ROM ID FOUND ? 
JE JROML 3 YES-BYPASS 
MOV CX,8000H 3 SET ROM LENGTH 32KB 
CALL ROS_CHECKSUM 3 ARITHMETIC CHECKSUM GOOD t 
32 JROM1 3 YES- 
MOV AH,2 3 
MOV BH,O 3 
Mov DX, 081CH 3 POSITION CURSOR, ROW 8, COL 28 
INT INT_10 3 
MoV AL, OFOH 3 
CALL xPC BYTE 3 DISPLAY MSB OF DATA SEG 
mov BX, ZAFOH 3 SET ERROR CODE 
MOV SI,OFFSET CART_ERR ; 
CALL E_MSG 3 GO ERROR ROUTINE 
JROMI: 
ASSUME DS:XXDATA 3 
CALL DDx 3 
cmp POST_ERR, OOH 3 CHECK FOR "POST_ERR" NON-ZERO 
ASSUME DS:DATA 3 
POP DS 3 RESTORE DS 
JE JROM2 3 CONTINUE IF NO ERROR 
MOV DL,2 3 2 SHORT BEEPS (ERROR) 
CALL ERR_BEEP ; 
ERR_WAITJ: 
MoV AH, 00 3 
INT INT_16 3 WAIT FOR "ENTER® KEY 
CMP AL, ODK 3 
JNE ERR_WAITJ 3 
JROM2: MOV AL.0 + DISABLE NMI 
our NMI_PORT,AL ; 
our PORT_A,AL 3 CLEAR KBD PORT 
se---- COPY DATA IN FrRst 128K RAM CARD TO 64K VRAM 
MoV RESET_FLAG,1234H ; SET WARM START INDICATOR FOR 
3 RETURNING FROM PCJR MODE 
Mov 3X, TRUE_MEM 3 
CMP BX,128 3 IS MEMORY SIZE =< 128K ? 
JBE SYSSWP2 3 YES- 
SUB X.64 3 
IN AL, PORT_C 3 
TEST AL, 08H 3 
JINZ SYSSWP1 i 
SUB X64 3 
SYSSWP1:MOV CL.6 3 
SHL BX.CL 3 
MOV €S,BX 3 
XOR DI,DI 3 
MOV DS,DI ’ 
XOR SI,S! 3 COPY 4KB DATA FROM 1ST 128K RAN 
MOV CX. 0800H 3 CARD TO 64K BASE RAM OR 64K RAM CD 
REP MOVSW + (OS:SI=>€S:DI) 
bomen SET 128K RAM CARD START ADDR FROM 20000H 
MOV DX, VGA_CTL 3 
In AL. DX H 
MOV AL,3 ’ 
out OX,AL H 
MOV AL, 10K 3 
out DX. AL 3 
bo---- ALLOCATE PROGRAMMABLE RAM AT 00000-1FFFF 
SYSSuPa nav DX, S8STATUS ’ 
AL, DX 3 
ADV AL, 08H 3 
our DX, AL 3 
MOV AL,OAOH 3 
our DX,AL i 
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OSE2 
OSES 


OSES 


30 65 
EE 


BA OSDA 


B9 0007 
EC 


B4 00 
ga C4 
cE 

Bo 00 
€E 

FE C4 
E2 Fé 


E8 0000 E 


AZ OOBA R 
C6 06 0062 
BS F800 


R 
R 0070 


R 0040 
R 0030 
R OOFB 


R 07 


nov AL, 63H ; 
Boc--- SET UP vibe. SYSTEM TO PCjr M 
MoV DX, VGA_CTL ; sain 
OV ALSO i 
0 
’ 
our Be ; DISABLE NATIVE VIDEO PATH 
ney act 
Ane ett ; ENABLE VRAM1 & ALL PALETTE REGS 
MoV AL, 1FH ; 
' our DX,AL 3 
PUSH Dx ; 
CALL S8SET 3 SET UP VGA 
De O8CH 3 START REG ADDR 
DB Oo0H 3 MASK DATA 
DB 2 3 PARAMETER LENGTH 
O80H 3 ENABLE PCJR VGA 
be 000H 3 DISABLE NATIVE VGA 
tL SB8SET 3 SET UP VRAM DECODER 
fo 009H 3 START REG ADDR 
Es 060H 3 MASK DATA 
os 2 3 PARAMETER LENGTH 
OB7H + ENABLE VRAM] DECODER (B8000-BFFFF) 
000H 3 DISABLE VRAM2 DECODER 
CALL S8SET 3 SET UP PAGE REG 
B 090H 3 START REG ADDR 
DB 000K 3 MASK DATA 
be 1 3 PARAMETER LENGTH 
8 000H 3 DISABLE CRTVCPU PAGE REG 2 
; PoP DX ; 
MoV CX,7 c = 
a ee ; LEAR VGA REG 0-6 WITH ZERO 
MOV AH,0 ; 
SYSSWPS:MOV AL, AH 3 
ouT DX, AL 3 
MOV AL,O 3 
our Dx, AL 3 
Inc 3 
‘ Loop Syssurs 3 
ASSUME DS:DATA 3 
CALL DDS 3 
IN AL,PORT_C 3 
TEST AL, 000010008 3 64K RAM CARD INSTALLED ? 
wy ieiiss SE 
. 3 SET INITIAL TRUE M 
oan array : UE MEMORY SIZE 
m CX,2000H ; 
SYSSWP4:MOV ES,CX ; 
M AX, SASAH 3 
MOV ES:(DIJ,AX 3 
JMP $+2 3 
JMP $+2 3 
MOV DX, ES: (DI) 3 
XOR AX, DX 3 128K RAM CARD INSTALLED ? 
JNZ SYSSWPS + NO - 
MOV ES:(DIJ,AX 3 CLEAR MEMORY 
ADD BX, 128 3 
ADD CH, 20H 3 
CMP CH, 80H 3 
; JB SYSSWP4 3 
SYSSWP5: MOV TRUE_MEM, BX 3 SAVE RAM SIZE 
MOV MEMORY_SIZE,112 3 
Mov AL, 3FH 3 CPU/CRT PAGE 7 
JMP SHORT SYSSWP7 3 
SYSSWP6 : MOV TRUE_MEM,64 3 SAVE RAM SIZE 
MOV MEMORY_SIZE,48 3 
AND EQUIP_FLAG, OFBH 3 PLANAR RAM SIZE 48K 
MOV AL, 1BH 3 CPU/CRT PAGE 3 
SYSSWP7:MOV DX, PAGREG 3 SET PAGE REG 
our X, AL 3 
MOV 3 SAVE PAGE REG DATA 
MoV ACTIVE_PAGE,7 3 SAVE CRY PAGE 
p----- COPY SWAP HANDLER IN RAM AREA 
SYSSWP8:MOV AX, oFs0on ; SET BASE ROM 
MoV 
MOV sr, * OFFSET SYSTRANS 3 SET SYS TRANS RTN START ADDR 
XOR AX, AX 
MOV ES, AX ; 
XOR DI,DI 3 SET COPY AREA TOP ADDR 
MOV CX,40 3 
REP MOVSH ; 
s---~ JUMP TO SWAP HANDLER TO CHANGE THE SYSTEM 
. DB OEAH 3 JUMP FAR 
DW 0000H 3 
DW 0000H 5 


tS 
' susnouree 
SYSTEM SWAP HANDLER 
DESCRIPTION 
1. IF SYSTEM IS OVERLAPPED BY THE ROM CARTRIDGE, THIS 


PROGRAM IS COPIED TO TEMPORARY RAM AREA. 

2. THE CONTROL IS PASSED TO THE ROUTINE IN THE RAM AREA. 
3. THE ROUTINE IN THE RAM AREA DISABLES SYSTEM ROM 

AND ENABLES OVERLAPPED ROM CARTRIDGE. 

4. THE CONTROL IS PASSED YO THE POWER-ON RESET VECTOR 


i 
3 
5 
3 
> 
i IN THE OVERLAPPED ROM CARTRIDGE. 
, 


04c2 
04C2 
04C3 
04C4 


04cc 
O4CF 


O4F5 


OlFF 


0015 
co 

D8 
0018 90 


FF 
07 


FG 
FFFF 
D 


08 


cy 
ca 


OlFF 


c3 
cs 


OFE2 R 

06 0005 R F 
OFT7C R 

06 0022 R ODA7 R 


¢ 


SYSTRAMS 


+ MOV DX,S8STATUS 3 
IW AL,DX 3 READ AND CLEAR CTRL REG 
MoV CX, 37 5 SET COUNTER 
XOR AX, AX 3 
MoV DS,AX F 
MOV SI,SYSTRS-SYSTRANS 3 SET TABLE ADDR 
SYSTR1: LODSB 3 LOAD SET DATA 
OUT DX,AL 5 
LOOP SYSTRI ; 
so---~ JUMP TO POWER ON RESET VECTOR IN ROM CARTRIDGE 
OB OEAH 3 JUMP FAR 
OW OFFFOH ; 
DW OFOOOH ‘ 
SYSTRS: DB 0O0H,000H,O00H + DISABLE BASE ROM 
DB Q01H,OBAH,060H ; ENABLE CART. ROM 2 (D0000-D7FFF) 
DB OO2H,OBBH,060H ; ENABLE CART. ROM 3 (D8000-DFFFF) 
DB OO3H,OBCH,060H 5 ENABLE CART. ROM 4 (E0000-E7FFF) 
DB 004H,0BDH,060H 3 ENABLE CART. ROM 5 (E8000-EFFFF) 
DB QOSH,OBEH,060H ; ENABLE CART. ROM 6 (FOOOC-F7FFF) 
DB 006H,OBFH,OGOH 5 ENABLE CART. ROM 7 (F8000-FFFFF) 
mre er en enn nnn nnn nnn nnn nnn ennae= mee en nnn es-----. w2-4--~--- 
SUBROUTINE 
SET UP OF PROGRAMMABLE MEMORY & I70 DECODER 
DESCRIPTION 


S8SETJ 


S8SETX: 


S801: 


$802: 


S8SET 
L26_2: 

y PART 8& 
s 

+ DESCRI 
‘ 
r] 
i] 
3 
3 


THIS SUBROUTINE SET UP PROGRAMMABLE MEMORY AND 

170 DECODER. THE CALL INSTRUCTION IS FOLLOWED BY THE 
PARAMETERS AND ITS LENGTH. THE PARAMETERS INCLUDES CONTROL 
REGISTER CADDR, CONTROL REG 1 AND 2 ) INFORMATION 

AND ARE SET SEQUENCIALY. 

THE CALLER SETS FIRST CONTROL REGISTER ADDRESS, MASK DATA 
PARAMETER LENGTH, AND VALIABLE REGISTER 1 VALUE. 


--- CALLING SEQUENCE -~---~----- 
CALL S8SET 3 CALL SET UP SUBROUTINE 
DB 27H 3 START REG ADDR ( QOH-93H ) 
DB 27H 3 MASK DATA 
DB ?? 3 PARAMETER LENGTH 
DB? ?H 3 FIRST REG 1 VALUE 
DB 22H 3 SECOND REG 1 VALUE 
DB O92 ; LAST REG 1 VALUE 
PROC NEAR 3 ENTRY POINT BY "CALL" 
oP SI ; SET TABLE POINTER 
PUSH DS 3 SAVE DS 
XxOR OI,DI 3 SCALL™ ENTRY FLAG 
MOV AX,CS 3 CS:IP 
JMP SHORT S8SETX =; 
LABEL NEAR 3 ENTRY POINT BY "JMP® 
Ov SI,sP 3 SET TABLE POINTER 
MOV DI,OFFFFH 3 “JMP®™ ENTRY FLAG 
MOV AX, SS 3 $S:SP 
MOV DS, AX 3 
LODSW i GET START REG ADDR (BL) AND 
MOV BX, AX 3 MASK DATA (BH 
LODSB + GET SET DATA LENGTH (CX) 
XOR ex, cx 1 
MOV CL,AL 3 
MOV DX, S8STATUS 3 READ & CLEAR CTRL REG 
IN AL, DX 5 
MoV AL, BL 3 GET CTRL REG ADDR 
OUT DX, AL H WRITE CTRL REG ADOR 
INC BL 3 SET NEXT CTRL REG A 
LODSB 3 LOAD CTRL es 2 cath “1 VALIABLE ) 
DX, AL 3 SET REG 1D. 
MOV AL, BH 3 SET REG 2 DATA 
our DX. AL i 
Loop $801 
OR DI,DI : m 
Jz $802 : 
MOV SP,SI 3 
RET 3 RETURN TO CALLER ("JUMP") 
PoP Ds + RESTORE DS 
PUSH ST 3 ADJUST RETURN POINT 
ReT 3 RETURN TO CALLER (®CALL™) 
ENDP 
See eae: s Pathe 
INTERRUPTS 
PTION 


2 
3 
a 
S2 INTERRUPTS ARE INITIALIZED TO POINT TO A DUMMY : 
HANDLER. THE BIOS INTERRUPTS ARE LOADED. DIAGNOSTIC . 
INTERRUPTS ARE LOADED SYSTEM CONFIGURATION WORD IS PUT ¢ 
IN MEMORY. THE DUN INTERRUPT HANDLER RESIDES HERE. bs 


ASSUME DS!XXDATA Se ee ek he 
CALL ODx + SET DS XXDATA SEG 
MOV MFO_TST,OFTH 1 SEND 'F7* TO MFG_TESTER 


CALL MFG_UP + UPDATE MFG CHECKPOINT 
mov MFG_RTN, OFFSET MFG_OUT 
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0506 
0508 


0553 


0555 
0558 


0561 
0564 


0566 
0568 
056A 
656c 


OS6eE 


0570 
0572 
0574 
0576 
0578 
OS7A 
os7¢ 
OS7E 
0580 
0582 


sc C8 
AS 0024 8 


33 c0 
8E DS 


bE 

B8 0599 K 

AB 

sc C8 

2 F7 

6 06 0124 R OOOO E C 
BF CO40 R 

oE 

1F 

BE 15D0 R 

B9 0010 

AS 

3 ig 
bf FB 


BF 01E0 
BB 0000 E 


BS SA00 
8 


A 
B8 FOO8 
AB 


BF 0210 
BB 1535 R 
AB 


C7 06 0410 R 511¢ 
C7 06 0408 R 0378 


E8 OF7C R 
BO 13 


E6 21 
£4 21 
OA CO 
75 18 
BO FF 
£6 21 
£4 21 
04 01 


mov AX, CS 
SET DOUBLEWORD POINTER TO MFG. 
said NEC_RTHE OS ; ERROR OUTPUT ROUTINE SO DIAGS. 
3 DON'T HAVE TO DUPLICATE CODE 


ASSUME CS:CODE,DS:ABSO0 ’ 


nee ee) 
coon t RRUPT VECTORS TO TEMP INTERRUPT 
; senor THE e inte 5 $s FILL ALL INTERRUPTS 
SUB Br, DI 3 FIRST INTERRUPT LOCATION IS 0060 
MOV Es,DI 3 SET ES=0000 ALSO 
D3: mov AX, OFFSET D121 3 MOVE ADDR OF INTR PROC TO TBL 
TOSW 
Rov. AX,CS 3 GET ADDR OF INTR PROC SEG 
TOSW 
coor DS 3 VECTBLO 
MOV EXST,OFFSET EXTAB ; SET UP EXT. SCAN TABLE 
| aac SET UP BIOS INTERRUPTS 
MoV DI,OFFSET VIDEO_INT ; SET UP VIDEO INT 
PUSH Se 
POP 3_PLACE CS IN DS 
MoV si, OFFSET VECTOR_TABLE+16 
mov Cx, 16 
Dé: MOVSW 3 MOVE INTERRUPT VECTOR TO LOW 
3 MEMORY 
INC DI 
INC DI 3 POINT TO NEXT VECTOR ENTRY 
LOOP De 3 REPEAT FOR ALL 16 BIOS INTERRUPTS 
goeow~ SET UP INT 78, 79, & 7A 
MOV DI,78HN4 + INT 78H 
Mov AX, OFFSET KKKFDM 3 
STOSW 3 
INC DI 3 
INC DI 3 
MoV AX,OFFSET BUFFER_QUEING ; INT 79H 
STOSW 3 
INC DI 3 
INC DI ; 
MOV AX, OFFSET DICT_ADDR 3 INT 7AH 
STOSW 3 
MOV AX, OF OOOH : 
STOSW 
s-o-~ SET UP RS232 Pie TEST INTERRUPTS 
MoV DI,84HK4 
MoV AX, OFFSET WRAP. TEST ; 


STOSW 
wocem SET UP DEFAULT EQUIPMENT DETERMINATION WORD 
BIT 15,14 = NUMBER OF PRINTERS ATTACHED 
BIT 13 = RESERVED 
BIT 12 = GAME 170 ATTACHED 
BIT 11,10,9 = NUMBER OF RS232 CARDS ATTACHED 
& = DMA (O=DMA PRESENT, 1=NO DMA ON SYSTEM) 


BIT 7,6 = NUMBER OF DISKETTE DRIVES 
GCO=1, 01=2, 10=3, 11=4 ONLY IF BIT 0 = 1 
BIT 5,4 = INITIAL VIDEO MODE 
00 - UNUSED 
O01 - NATIVE MODE es ZENKAKU X 11) 
10 - EXTENSION MOD: 
11 - RESERVED 





BIT 3,2 = PLANAR RAM SIZE (10=48K,11=64K) 
BIT 1 = RESERVED 
BIT 0 = 1 CIPL DISKETTE INSTALLED) 


ASSUME CS:CODE,DS:ABSO 
MOV DS,Cx 


Se We Be we we we We Be Be we we we we we we we we we we BO 


+ SET DS TO 0 
3 DEFAULT:1 PARALLEL PRINTER,GAMEIO, 
NO DMA,NATIVE prig 64K ON PLANAR 


MoV DATA_WORD( EQUIP. -FLAG- RS232_BASEJ,511C 
SET PRINTER ADDR 
MOV DATA _WORDEPRINTER_ BASE~RS232_BASE),PARAL_PORT 
3 TEST 9 : 
; INITIALIZE AND TEST THE 8259 INTERRUPT CONTROLLER CHIP ’ 
3 MFG ERROR CODE = 07xX (XX=00, DATA PATH OR INERNAL FAILURE, : 
i ad a. XX=ANY OTHER BITS ON=UNEXPECTED INT'S) 1+ 
CALL MFG_UP 3 SEND "F6* TO MFG_TESTER 
ASSUME DS:ABSO,CS:CODE 
MOV AL,13H 3 ICW1 - RESET EDGE SENSE CIRCUIT, 
3 SET SINGLE 8259 CHIP & ICW4 READ 
our INTAOO,AL 
MoV AL.8& 3 ICW2 - SET INTERRUPT TYPE 8 (8-F) 
our INTAO1,AL 
MOV AL,9 3 _ Py BUFFERED MODE/SLAVE 
3 D 8086 Mm 
ace out INTAOL,AL sips 
TEST ABILITY TO WRITE/READ THE MASK REGISTER 7 
HOV Also “P WRITE ZEROES TO IMR 
ae BLL AL 3 PRESET ERROR INDICATOR 
INTAOL,AL + DEVICE INTERRUPTS ENABLED 
mx AL, Ls IHTAGL 3 READ IMR 
; 3 IMR = 0? 
aoe GERROR 3 NO - GO TO ERROR ROUTINE 
nov AL, OFFH + DISABLE DEVICE INTERRUPTS 
ou INTAOL, AL 3 WRITE ONES TO IMR 
ae AL, INTAOL 3 READ IMR 
AL,1 $ ALL IMR BITS ON? 
+ CADD SHOULD PRODUCE 0) 


os 


0584 


05¢7 


osc9 
oscc 
OSCF 
0502 
0505 


0508 


0508 
0S5DD 


OSOF 
OSEL 
OSE4 


75 0E 


E9 0032 R 


1E 
50 
£8 0000 E 
BO 


88 26 0084 R 


E8 OFIC R 
BB 0176 
88 FFFF 
E8 O6F2 R 
BB 0036 


EB OOF2 R 


bo 20 
EG AQ 


84 00 
EB O6A9 R 
7305 


JNZ GERROR 





3 NO - GO TO ERROR ROUTINE 
jauseuseucoseoces oto eco soars waeue ae 
3 CHECK FOR HOT INTERRUPTS 
iceteeeeaccnseecessee abst cd A oa Meteneee seca seet cats 
eo--~ INTERRUPTS ARE MASKED OFF. NO INTERRUPTS SHOULD OCCUR. 
$TI 3 ENABLE EXTERNAL INTERRUPTS 
nov CX, 50H 
LOOP $ 3 WAIT FOR ANY INTERRUPTS 
nov Bt, DATA. AREALINTR_FLAG-RS232_BASE] ; ANY INT OCCUR? 
0 t 
JZ END_TESTG 3 WO - GO TO NEXT T 
GERROR: MOV BH,O7H 3 SET 07 SECTION oF” ERROR MSG 
JP E_MSG 
; SUBROUTINE 
3 TEMPORARY INTERRUPT SERVICE 
3 DESCRIPTION 
3 THIS ROUTINE IS ALSO LEFT IN PLACE AFTER THE 
3 POWER ON DIAGNOSTICS TO SERVICE UNUSED 
5 INTERRUPT VECTORS. LOCATION "INTR_FLAG’ WILL 
3 CONTAIN EITHER: 1. LEVEL OF HARDWARE INT. THAT 
5 CAUSED CODE TO BE EXEC. 
F . 'FF* FOR NON-HARDWARE INTERRUPTS THAT WERE 
3 peecureD ACCIDENTLY. 
ioaweap re ha pe SN oe ee ee ee ee ee eee seeete: 
Dil PROC NEA 3 
ASSUME DS:DATA 3 
PUSH DS 3 
PUSH ax 3 SAVE REG AX CONTENTS 
CALL DDS 3 
MOV AL, OBH 3 READ IN-SERVICE REG 
ouT INTAOQO,AL ; CFIND OUT WHAT LEVEL BEING 
NOP 3 SERVICED) 
IN AL, INTAQO 3 GET LEVEL 
MOV AH, AL 3 SAVE IT 
OR AL,AH 3 007 (NO HARDWARE ISR ACTIVE) 
JNZ HW_INT 3 
MOV AH, OFFH 3 
JMP SHORT ser AINTRFLAG SET FLAG LU FF IF NON-HDWARE 
HW_LINT: IK AL, INTA 3 GET MASK 
OR AL, AH + MASK OFF tye BEING SERVICED 
OUT INTAOL,AL 3 
MOV AL, EOI 3 
ouT INTAOO,AL 3 
SET_INTR_FLAG: ; 
Mov INTR_FLAG, AH 3 SET FLAG 
PoP AX 3 RESTORE REG AX CONTENTS 
PoP DS ; 
STI 3 INTERRUPTS BACK ON 
DUST RET URN: 3 NEED IREY FOR VECTOR TABLE 
’ 
Dil ENDP 3 
END_TESTG: 
soos-- FIRE THE DISKETTE WATCHDOG TIME! 
MOV AL, WD. ENABLECHD_ STROBESFDC.| RESET 
OUT NEC_CTL, 3 
MOV AL WD. -HARLEOFDC_RESET 
OUT NEC_CTL.AL 5 
ASSUME CS: “EOD, DS:ABSO_ 
punseceeocn oc ocuaancsaseceesaeS) elie Rise SE Sees Fa 
3 TEST 10 


3 8253 TIMER CHECKOUT 
DESCRIPTION 


t 
z 
H t 
; VERIFY THAT THE TIMERS (@, 1. AND 2) FUNCTION PROPERLY. g 
Hy THIS INCLUDES CHECKING FOR STUCK BITS IN ALL THE TIMERS, : 
3 THAT TIMER 1 RESPONDS TO TIMER 0 OUTPUTS, THAT TIMER 0 : 
H INTERRUPTS WHEN IT SHOULD, AND THAT TIMER 2°S OUTPUT 2 
H WORKS AS IT SHOULD. z 
3 THERE ARE 7 POSSIBLE ERRORS DURING THIS CHECKOUT. 3 
‘ BL VALUES FOR THE CALL ie E_MSG INCLUDE: t 
Hy QO: STUCK BITS IN TIMER 0 : 
3 1: TIMER 1 DOES NOT RESPOND TO TIMER 0 OUTPUT 2 
‘ 2: TIMER 0 INTERRUPT DOES NOT OCCUR 3 
; 3a STUCK BITS IN TIMER 1 : 
Hy 4: TIMER 2 OUTPUT meee VALUE IS NOT LOW t 
i S: STUCK BITS IN TIMER 2 t 
H 61 TIMER 2 OUTPUT DOES NOT GO HIGH ON TERMINAL COUNT t 
H 7: TIMER O OUTPUT OUT oF RANGE 2 





CALL MFG_UP SEND 'FS* TO MFG_TESTER 


‘ 
MOV AX, O176H 3 SET TIMER 1 TO MODE 3 BINARY 
MOV BX, OFFFFH 5 INITIAL COUNT OF FFFF 
CALL INIT_TIMER 3 INITIALIZE TIMER 1 
MOV AX, 0036H 3 SET TIMER 0 TO MODE 3 BINARY 
3 INITIAL COUNT OF FFFF 
} IWITIALIZE TIMER 0 


SET BIT 5 OF PORT AO SO TIMER 1 CLOCK WILL BE PULSED” bY THE 


CALL INIT_TIMER 


3 TIMER 0 OUTPUT RATHER THAN THE SYSTEM CLOCK. 
Br nn nn nn ene eee een nn nn ese moe se ecw ee ewes 
HOV “pL ,001000008 
out NMI_PORT, AL ; 
joeecee seers weer ewe ewe eee eee eee ee eeesserer= eres ewer recec=s see ee neers 
; CHECK IF ALL BITS GO ON AND OFF IN TIMER @ (CHECK FOR STUCK 
: BITS 
ee ee wore See eee wee eee ee eee sees eseesee 
MOV AH. > TIMER 0 
CALL BITS_ON_OFF 3 LET SUBROUTINE CHECK IT 
JNB TIMERL_NZ 3 


NO STUCK BITS CCARRY FLAG ROT SET) 
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064A 
064c 


O64E 
0650 
0653 
0655 
0657 


9659 
0659 
065C 
O6SF 


0662 
06646 
0666 


0668 
066A 
0660 


BS 00 
€9 O69F R 


&4 41 
BA EO 


&4 41 

3D FFFF 
75 05 

83 01 

E9 O69F R 


E 
20 a 0484 Rk 


Fé 06 0484 R 01 
7 


FA 


80 FE OA 
80 FE 68 


BS o2B6 
88 FFFF 
ES O6F2 R 


ES 61 
Oc o1 
E6é 61 


B4 02 
E&8 O6A9 R 
73 04 





Mov BL.o 3 STUCK BITS IN TIMER 0 
JMP TIMER_ERROR 
fowsasee ee sacs So Seances sens ace ncn cna cnccenen suck cucceesccuecece 
3 SINCE TIMER 0 HAS COMPLETED AT LEAST ONE COMPLETE CYCLE, 
3 TIMER 1 SHOULD BE NON-ZERO. CHECK THAT THIS IS THE CASE. 
TIMERI_NZ: 
" AL, TIMERS2 3 READ LSB OF TIMER 1 
Mov AH. AL + SAVE LSB 
IN AL, TIMER#1 } READ MSB OF TIMER 1 
CMP AX, OFFFFH 3 STILL FFFF? 
JNE TIMERO_INTR ; HO - TIMER 1 HAS BEEN BUMPED 
MOV BL? 3 TIMER 1 WAS NOT BUMPED BY TIMER 0 
JMP TIMER_ERROR 
3 CHECK FOR TIMER 0 INTERRUPT 
Brora nnn nnn eee n nnn nnn nee cee nee eee cece cence een 
TIMERO_INTR: 
STI 3 ENABLE MASKABLE EXT INTERRUPTS 
IN AL, INTAOL 
AND AL, OFEH + MASK ALL_INTRS EXCEPT LVL 0 
AND DATA_AREACINTR_FLAG-RS232_BASEJ,AL ; CLR INT RCVED 
OUT INTADL,AL + WRITE THE 8259 IMR 
XOR cx, ¢x 3 SET LOOP COUNT 
WALT_INTR_LOOP: 
TEST —_- DATA_AREACINTR_FLAG-RS232_BASE),1 3 TMRO INT OCCUR? 
RESET_INTRS 3 YES - CONTINUE 


WAIT_INTR_LOOP + WAIT FOR INTR FOR SPECIFIED TIME 


Ll, + TIMER © INTR DIDN'T OCCUR 
TIMER_ERROR ; 





0 ; 
TIM_CTL,AL 3 LATCH TIMER 0 
Ax 3 PAUSE 
Ax ; 
AL, TIMER+O + READ TIMER © LSB 
DL,AL ; 
AL, TIMER+0 ; os mSB 
DH,AL ; 
mov CX,05E2H + WAIT 1 MS CCH=5, CL=226) 
TIMERO_W: ; 
SHR AX,CL ; 
DEC CH 3 
JNZ TIMERO_W H 
MOV ALO ; 
OUT TIM_CTL,AL 3 LATCH TIMER 0 
PUSH ax > PAUSE 
PoP AX ; 
IH AL, TIMER+0 + READ TIMER 0 LSB 
mov CL,AL ; 
In AL, TIMER+0 i ba MSB 
MOV CH,AL 3 
MoV BL.7 + TIMER © OUTPUT OUT OF RANGE 
SUB DX,CX + (0955H) 
CMP DH, OAH 3 WITHIN TOLERANCE ? 
JA TIMER_ERROR 3 NO - 
CMP DH, 08H ; 
JB TIMER_ERROR ; 
jee e wenn nono o-oo Tee ce peewee ewww ewww nwo ween ewww enn enne 
3 RESET D5 OF PORT AO SO THAT THE TIMER 1 CLOCK WILL BE 
; PULSED BY THE SYSTEM Clock. = 
MOV AL,O 3 MAKE AL = 00 
ouT NMI_PORT,AL WS A nh eer acresnniemindin Roa etide 
; CHECK FOR STUCK BITS IM TIMER = tt 
MOV AH,1 + TIMER 1 
CALL BITS _ON_OFF 
JNB TIMER2_INIT + NO STUCK BITS 
MOV BL. és STUCK BITS IN TIMER 1 
JMP SHORT TIMER_ERROR 





AX, 02B6H + SET TIMER 2 TO MODE 3 BINARY 
MoV BX, OF FFFH + INITIAL COUKT 
CALL INIT_TIMER 


OF PORT_8 OF 8255 (TIMER 2 GATE) 








IH AL, PORT_B ; CURRENT STATUS 
oR AL,COOODOOLB ©; SET BIT 0 - LEAVE OTHERS ALONE 
ouT Lidell JL Sen ane ONS Airey SPN eee enna 
CHECK FOR STUCK BITS IN TIMER 2 
, nov AH,2 ; TIMER 2 
CALL —-BITS_ON_OFF 
JHB REINTY_Y2 3 NO STUCK BITS 
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0692 
0695 
0697 
0699 
0698 
0690 


O69F 
O69F 
O6A1 
O6A4 


B3 05 
EB 2c 


E¢ 62 
74 04 
BS 046 
EB 13 
£4 61 


E6 61 


BY OO0A 
FE 
E4 62 


75 65 
BS 06 


B7 08 
E38 OD32 R 
€B SC 


33 DB 
33 Fé 


BA 0040 
D4 

OF O6AG R 

Q 

83 Fa 

Bo C008 

31 

33 ¢9 

2E: 8A 05 
43 


83 FB FF 


Mov BLS 3; STUCK BITS IN TIMER 2 
JP SHORT TIMER_ERROR 
Br rr rn on nr rrr we weer ern eee eene weer ene wee wn wee ewe wenn 
Hy RE_INITIALIZE TIMER 2 WITH MODE 0 _AND A SHORT COUNT 
Br nn rr ere ee eee ewer wee wee ew ewwene 
REINIT_T2: 
22 DROP GATE TO TIMER 2 
IN AL, PORT_B + CURRENT STATUS 
AND AL,11121110B 3 RESET BIT 0 - LEAVE OTHERS ALONE 
our PORT_B,AL 
mov AX, 02B0H > SET TIMER 2 TO MODE 0 BINARY 
MOV BX,000AH 3 INITIAL COUNT OF 10 
CALL —_INET_TIMER 
Pe OO eo ee ee ae ee eee ae 
; CHECK PCS OF PORT_C OF 8255 TO SEE IF THE OUTPUT OF TIMER 2 
rf Is LOW 
ne Ga or ee ee aiesstescessiends 
IN AL,PORT_C } CURRENT STATUS 
AND AL,00100000B 3 MASK OFF OTHER BITS 
Jz CK2_ON 3 IT'S LOW 
MOV BL, 3 PCS OF PORT_C WAS HIGH WHEN IT 
SMP SHORT Tne ERROR ; SHOULD HAVE BEEN LOW 
s—-~~- TURN GATE BACK 0 
CK2_ON: IN AL,POR os 3 CURRENT STATUS 
OR AL,00000001B 3 SET BIT 0 - LEAVE OTHERS ALONE 
ouT PORT_B,AL 


Mov CX, O00AH 


> WAIT FOR “oureur GO HIGH, SHOULD 

CK2_t0: LOOP CK2_Lo 3 BE LONGER THAN INITIAL COUNT 

IN AL, PORT_C 3 CURRENT STATUS 

AND AL, 001000008 3 MASK OFF ALL OTHER BITS 

JNZ id oui 3 IT'S HIGH - WE'RE DONE! 

mov BL.6 ; TIMER 2 OUTPUT DID NOT GO HIGH 
Fe a a OS a ee sn — 
; 8253 TIMER ERROR OCCURRED. SET BH WITH MAJOR ERROR 
3 INDICATOR AND CALL E_MSG TO INFORM THE SYSTEM OF THE ERROR. 
; (BL ALREADY CONTAINS THE MINOR ERROR INDTCATOR TO TELL 
3 WHICH PART OF THE TEST FAILED.) 
TIMER eanone 

BHL8 3 TIMER ERROR INDICATOR 

CALL E_MSG 

JMP SHORT POD1S_END 
fren w ern e oe eee eT ag a a soot ee leh pn a ane — 
; SUBROUTINE 


; 

; BITS ON/OFF 

3 DESCRIPTION 

; USED FOR DETERMINING IF A PARTICULAR TIMER’S BITS GO ON 
3 ae OFF AS THEY SHOULD. THIS ROUTINE ASSUMES THAT THE 

; MER IS USING BOTH THE LSB AND THE MSB. 

; CALLING. PARAMETER 

; CAH) = TIMER NUMBER (0, 1, OR 2) 

3 
3 
3 


RETURNS 
(CF) = } rr FAILED 
(CF) F PASSED 
REGISTERS AX, Mx, hat Dx DI, AND SI ARE ALTERED. 
LATCHES LABEL BYTE Rae eR ets 
00H 3 LATCH MASK FOR TIMER @ 
DB 40H 3 LATCH MASK FOR TIMER 1 
DB 80H 3 LATCH MASK FOR TIMER 2 
BITS_OM_OFF PROC NEAR 
XOR BX, BX 3 INITIALIZE BX ESOraTER 
XOR SI,$1 3 1ST PASS - SI 
BOv EX TINER 3 BASE PORT ADDRESS FOR TIMERS 
MOV PP AGEPSER LATCHES 3 SELECT LATCH MASK 
XOR AL, 3 CLEAR AL 
XCHG AU AH 3 AN -> AL 
ADD DI,Ax 3 TIMER LATCH MASK INDEX 


peg AST PASS - CHECKS FOR ALL BITS TO COME ON 


2ND PASS - CHECKS FOR A F 
ren: cake, LL BITS TO GO OFF 


mov CX,8 
INNER_LOOP: ’ 3 OUTER LOOP COUNTER 

XOR e cx 3 SAVE OUTER LOOP ee 
TST_pTs: ’ 3 INNER LOOP COUNTE 

nl AL.CS:(DI) 3 TIMER LATCH MASK 

Sion PACT at 3 LATCH TIMER 

PoP aX + PAUSE 

IN AL, DX + READ TIMER LSB 

OR SI,S! 

JNE SECOND + SECOND PASS 

OR AL,O1K 3 TURN LS BIT ON 

OR BLLAL 3 TURN ‘ON’ BITS ON 

IN AL, DX 3 READ TIMER MSB 

OR BH, AL 3 TURN *ON* BITS ON 

CMP BX, OF FFFH 3 ARE ALL TIMER BITS ON? 

JmP SHORT TST_CHP 3 DON'T CHANGE FLAGS 
SECOND: 

AND BLLAL 3 CHECK FOR ALL BITS OFF 

IW AL, DX > READ MSB 

AND BHLAL 3 TURN OFF BITS 

OR BX, BX s ALL OFF? 
TST_CMP: 
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07465 
0747 
0748 


74 07 
E2 DD 


€2 D7 


83 FE 02 
75 CB 


E&8 OF7C R 
FA 

BO 70 

6 43 

B9 8000 


JE CHK_END 3 YES -_SEE IF DONE 
ioop ©‘ TST_BITS 3 KEEP TRYIN 
POP cx 3 RESTORE, uTER LOOP COUNTER 
Loop § INNER_LOOP 3 TRY A 
STC > ALL TRIES EXHAUSTED ~ FAILED TEST 
RET 

CHKLEND! op cx + POP FORMER OUTER LOOP COUNTER 
INC sI 
cMP $1,2 
JHE OUTER_LOOP } CHECK FOR ALL BITS TO GO OFF 
cLc } TIMER BITS ARE WORKING PROPERLY 
RE 

BITS_ON_OFF ENDP 


Jere ewenn-----= 
3 SUBROUTINE 
; INITIALIZE TIMER 

3 DESCRIPTION 

3 ASSUMES BOTH THE LSB AND MSB OF THE TIMER WILL BE USED. 
3 CALLING PARAMETERS 


; = TIMER @ 

3 CAL) = BIT PATTERN OF INITIALIZATION WORD 
3 = INITIAL COUNT 

3 (BH) = MSB COUNT 

3 (BL) = LSB COUNT 

3; ALTERS REGISTERS DX AND AL. 


: 
INIT_TIMER PROC NEAR 

ouT TIM_CTL,AL 3 OUTPUT INITIAL CONTROL WORD 

MOV DX, TIMER 3 BASE PORT ADDR FOR TIMERS 

ADD DL,AH 3 ADD IN THE TIMER 8 

MOV AL, BL 3 LOAD LSB 

ouT DX, AL 

PUSH Dx 3 PAUSE 

POP DX 

mov AL, BH 3 LOAD MSB 

OUT DX,AL 

RET 
INIT_TIMER ENDP 
POD1S_END: 
3 TEST 11 : 
3 CRT ATTACHMENT TEST : 
; DESCRIPTION : 
3 . INIT CRT TO 40 X 25 - COLOR 
3 3 CHECK FOR VERTICAL AND VIDEO ENABLES, AND CHECK : 
3 TIMING OF SAME : 
3 3. CHECK VERTICAL INTERRUPT t 
3 4. CHECK RED, BLUE, GREEN, AND INTENSIFY DOTS : 
} MFG ERROR CODE = 09XX (XX-SEE COMMENETS IN CODE) z 
ance ccencenn nen neenenennacnesane wer enenaeeenaeswesereearaeesens 
MAVT EQU OA04CH 3 MAXIMUM TIME FOR VERT/VERT 

3 CHOMINAL + 23% 

MIVT EQU 0¢418H 3 MINIMUM TIME FOR VERT/VERT 


3 CMOMINAL - 23% 
jeeees NOMINAL TIME IS B232H FOR 60 HZ. 
F EQU 200 HUMBER OF ENABLES PER FRAME 
(8 DOTS X 25 LINES) 
SEND 'F4* TO MFG_TESTER 


we we we 


CALL MFG_UP 


c.r 
MoV AL, 011100008 3 SET TIMER 1 TO MODE 0 
out TIM_CTL,AL 
MoV CX,8000H 
LooP $ 3 WAIT FOR MODE SET TO “TAKE” 
MOV AL,O 
out TIMER4+1,AL 3 SEND FIRST BYTE TO TIMER 
mov DX,VGA_CTL 3 SET ADDRESSING TO VIDEO ARRAY 
SUB CX, CX ; 
(eene~ LOOK FOR VERTICAL 
Q2: IN AL,DX 3 GET STATUS 
TEST AL,00001000B 3; VERTICAL THERE YET? 
JHE Qs 3; CONTINUE IF IT IS 
sone i ‘ ; KEEP LOOKING TILL COUNT EXHAUSTED 
; 
JMP SHORT Q115 3 NO VERTICAL = ERROR 0900 
| cata GOT mee ie - START TIMER 
Q3: XOR AL, ; 
ouT TIMERS AL ; SEND 2ND BYTE TO TIMER TO START 
SUB BX, BX INIT. ENABLE COUNTER 
joan WAIT FOR VERTICAL To GO AWAY 
XOR CX,CX 
Q4: In AL,DX 3 GET STATUS 
TEST AL,00001000B 3 VERTICAL STILL THERE? 
IZ Q5 3 CONTINUE IF IT'S GONE 
LOOP a4 3 KEEP LOOKING TILL COUNT EXHAUSTED 
MOV BL,O1H ; 
SHORT Q115 ; VERTICAL STUCK ON = ERROR 0901 






JMP 
i Li START LOOKING FOR ENABLE TRANSITIONS 
su a 
IK. 3 GET STATUS 
TEST AL;00000001B ENABLE ON YET? 
Q7 GO ON IF IT IS 


; VERTICAL ON AGAIN? 


eee 


= 

=z 

m 
- 


TEST AL,00001000B 


i 

INE Qil 3 CONTINUE IF IT IS 

LOOP a6 3 KEEP LOOKING IF NOT 

— BL,O2H ; 
, SHORT Q115 ENABLE STUCK OFF = ERROR 0902 
{=== mine er VERTICAL WENT OFF WITH ENABLE GOING ON 
Q7: yr ale > VERTICAL OFF? 

+ GO ON IF IT IS 
mov BL,OSH 3 
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O7ES 
07E7 
O7E8 


06 0484 8 
06 0486 R 20 


36 
2 


20 
2 


o4c2 R 


cy 
10 


Jz 


pecce= HAVE HAD 
Qll: mov 

OUT 

cmP 


JE 
mov 
Qll5: JP 
Ql2: In 


Q13: CMP 


SHORT Q115 


; ERIIORL STUCK ON = ERROR 0903 


FOR ENABLE 10 GO OFF 


X, CX 

AL,DX 
AL,00000001B 
Q10 

Q9 


BL,04H 
SH 


AL ooooiooes 
Q5 


GET STATUS 

ENABLE OFF YET? 

PROCEED IF IT IS 

KEEP LOOKING IF NOT YET LOW 


ENABLE STUCK OW = ERROR 0904 


en oe 


ORT Q115 
{cess ee as ewes BUMP COUNTER AND TEST FOR NEXT VERTICAL 
t) 


+ BUMP ENABLE COUNTER 

3 IF COUNTER WRAPS, ERROR 

+ DID ENABLE GO LOW BETAUSE OF 

+ VERTICAL? 

; IF Ronis LOOK FOR ANOTHER ENABLE 
GLE 


TOG 
cee VERTICAL- VERTICAL ag HOW TEST RESULTS 
Al, 


TIA CTL AL 
,EPF 
a2 

BL, OSH 

922 

AL, TIMER?1 
AH, AL 

AL, TIMER? 
AH, AL 

AX, MAVT 
ais 


BL,OGH 
SHORT Q22 


AX, MIVT 
a4 


BL,O7H 
SHORT Q22 


3 LATCH TIMERL 

i 

; NUMBER OF EWABLES BETWEEN 

3 VERTICALS 0.K.? 

3 

5 

; WRONG @ ENABLES = ERROR 0985 
+ GET TIMER VALUE LOW 

+ SAVE IT 

} GET TIMER HIGH 


; INTERRUPTS BACK ON 


VERTICALS TOO FAR APART 
= ERROR 9906 


Se ee 


VERTICALS Hs CLOSE TOGETHER 
= ERROR 09 


07 
i TAG TNGS SEEM O.K., NOW CHECK VERTICAL INTERRUPT (LEVEL 5) 


: cx, ex 3 SET TIMEOUT REG 
IN AL, INTAOL 
AND AL, 110122218 3 UNMASK INT. LEVEL 5 
our INTAOL,A 
AND DATA oRREACINTR AFLAG: RS232_BASE),AL 
STI ENABLE IXTS 
Qis: TEST DATA_AREALINTR_| FLAG-RS232_ BASED, 001000008 ; SEE IF 
3 INT 5 HAPPENED YET 
JNZ Q16 3 GO ON IF IT DID 
LOOP Qs 3 KEEP LOOKING IF IT DIDN'T 
MOV BL, 08H 3 
JMP SHORT Q22 3 NO VERTICAL INTERRUPT 
3 = ERRO 
Q16: IN AL, INTAOL 3 DISABLE INTERRUPTS FOR LEVEL 5 
OR AL,00100000B 3 
our INTAOL,AL 3 
eooe- SEE IF RED, GREEN, BLUE AND INTENSIFY DOTS WORK 
3 FIRST, SET A LINE OF REVERSE VIDEO, INTENSIFIED BLANKS 
3 a VEDED | BUFFER 
’ 
XOR AX, AX > ENABLE DISPLAY & CLEAR SCREEN 
INT INT_10 + (MODE: 40 X 25 - COLOR) 
ay rae 3 SEY TO VIDEO PAGE 7 
Q 3 
MOV AX, O95FH 3 WRITE CHARS, UNDERSCORE 
MOV 8X,077FH > PAGE 7, REVERSE VIDEO, HIGH INT 
MOV CX,40 3 40 CHARACTERS 
INT INT_10 3 
CALL SBSET 3 DISABLE NATIVE VGA 
DB 03DH 3 START REG ADDR 
DB 000H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB 000H 3 
CALL S8SET 3 ENABLE PCJR VGA 
DB O8CH 3 START oRee ADDR 
DB O00H 3 MASK 
DB 1 3 PARAMETER LENGTH 
DB O8eH ; 
PoP 4 3 
XOR AX, AX 3 START WITH BLUE DOTS 
Ql?: sus ay ; 
DX 3 SET VIDEO ARRAY ADDRESS FOR DOTS 
joteee see IF DOT cones ON 
Q18: AL, DX 3 GET STATUS 
Test AL ooo1oooos 3 DOT THERE? 
INZ Q1g 3 GO LOOK FOR DOT TO TURN OFF 
LOOP Q138 3 CONTINUE TESTING FOR DOT ON 
Mov BL, 10H 3 
OR BL,AH 3 OR IN DOT BEING TESTED 
JMP SHORT Q22 3 DOT NOT COMING ON = ERROR @91x 
3 © X20, BLUE: X=1., GREEN; 
3 X52, RED; X=3. INTENSITY) 
Satetetel SEE IF DOT GOES OFF 
Q19: $uB CX, 6x 
Q20: IW AL, DX 3 GET STATUS 
TEST AL, 000100003 + IS DOT STILL ON? 
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+ GO ON IF DOT O © 
O7EA 74 08 iboP a20 + ELSE, KEEP WATTING FOR DOT 
o7—EC E2 FY 3 TO GO OFF 
BL,20H ; 
O7EE BS 20 Pid L.AH ; OR IN DOT BEING TESTED 
o7FO 0A OC JMP SHORT Q22 3 DOT STUCK ON = ERROR 092X 
O7F2 EB OB 3 (X20, BLUE; X=1, GREEN; 
oe X=2, RED; X=3, INTENSITY) 
jenc-- ADJUST TO POINT 
o7F4 FE C4 ie IP Anes ; ALL 4 DOTS DONE? 
O7F6 80 FC 04 CAF : : 
JE e23 3 GO END 
ary 2c 83 x, 85, 
cece Eb OF JMP Q17 3 GO LOOK FOR ANOTHER DOT 
O7FF B7 09 e22: MOV BH, 09H > SET MSB OF ERROR CODE 
ogo. €9 ODSZR mp E_MSG 
0804 BO 76 Q23: mov AL, 021101208 3 RE-INIT TIMER 1 
0 ‘ta! » > 
eget E33 our TALE 
080A £6 41 OUT TIMER#1,AL 
og0c EB 00 JMP $+2 
O8cE E6 41 out TIMER+1,AL 
3 PART ry 
H "Ser UP KEYBOARD PARAMETERS : 
. “ASSUME DS: ABSO 
0810 £8 OF7C R CALL HEC UP 3 SEND "FS" TO MFG_TESTER 
081s 33 CO 
0815 8E D8 MoV DS, AX 
0817 ¢7 06 OcOB8 RGOODOE C MOV NMI_PTR,OFFSET KBDNMI ; SET INTERRUPT VECTOR ' 
081D C7 06 0120 ROFEAR C MOV KEY62_PTR, OFFSET REY SCAN. SAVE i SET VECTOR FOR 
ANDLER 
0823 (OE push CS F 
0824 «58 
0825 AS 0122 RK MOV KEY62_PTREZ.AX 
‘ ete ban DATA 7 
0828 £8 0000 CA ; SET DATA SEGMENT 
082B BE 0304 R MOV S1,OFFSET KB_BUFFER_J ; SET KEYBOARD PARMS 
082E 89 36 OO1AR MOV BUFFER_HEAD, SI 
0832 89 36 OOICR MOV BUFFER_TAIL, SI 
0836 89 36 0080 R MOV BUFFER START, SI 
033A 83 C6 32 ADD SI, ; SET DEFAULT BUFFER OF 50 BYTES 
0830 89 36 0082 R MOV BUFFER_END. SI 
0841 E¢ Ao IN AL, NMI_PORT ; CLEAR NMI F/F 
0843 BO 80 MOV AL, 80H ; ENABLE NMI 
0865 6 AO out NMI_PORT,AL 
joc--- IF A KEY IS STUCK, THE BUFFER SHOULD FILL WITH THAT KEYS 
3 CODE. THIS WILL BE CHECKED LATER. 
| adeneiectees caer sesacculseneneememna—nane eine ecto earn 2 
; TEST 13 : 
3 32K VRAM CVRAM2) TEST : 
3 MFG ERROR CODE = LEXx BASE 52K VRAM ERROR : 
; x Al 3 
0847 £8 OF7C R : CALL MFG. SEND 'F2" TO MFG_TESTER 
pro--- ENABLE NATIVE. AND PCJR VGA FOR BLANKING SCREEN 
086A E8 04C2 R CALL S8SET 3 
084D 8c DB 0&CH 3 START REG ADDR 
084E 00 DB 000H 3 MASK DATA 
O84F 02 DB 2 > PARAMETER LENGTH 
0350 80 DB 080H > ENABLE PCJR VGA 
0851 80 DB 080H 3 ENABLE NATIVE VGA 
0852 BA OSDA MOV DX, VGA_CTL 3 DISABLE VIDEO 
0855 EC IN AL, DX 3 
st ace ae bee 
AL ; 
0859 EE out DX, AL ; 
peo--- BASE 32K VRAM AND EXP 32K VRAM TEST (EXCEPT REGEN BUFF) 
085A B8 B80 MoV AX, 0B800K ; SET START ADDR (B8000) 
085D 8& CO MOV ES,AX 3 
085F Bd 1E00 MOV CX, 1E00H } SET TEST MEM SIZE 15K 
0862 BB 0010 MOV BX, 0010H 3 
0865 BA OIFF mov DX, S8STATUS 3 
AL 3 
seed 13 a8 rn 
1 5 
086D BS 20 MOV BL, 20H 3 
O86F 53 VRM1: PUSH BX 3 
03870 F6 C7 08 TEST BH, 000010008 3; 1ST 16KB ? 
0873 75 06 JNZ VRM2 3 MO - 
He E4 60 IN AL,PORT_A 3 
0877 OC 40 OR AL, 010000008 ; SET RETENTION TEST REQ’ED FLAG 
0379 6 60 ouT PORT_A,AL : ALL PODSTG 
0878 EB ODEA R VRM2: CALL PODSTS 3 CALL MEM TEST 
SStF’ 15 06 JZ VRMS ; 
0881 £8 1007 R CALL = PUT_LOGO 3 PUT LOGO ON SCREEN 
0886 £9 O97ER ump a29 3 ERROR 
cect Gn ae VRM3: IN AL, PORT_A ; 
0888 Eb 60 AND AC, 201171113 ; RESET RETENTION TEST REQ’ED FLAG 
WALA > 
088D B9 2000 
0890 BA 03D9 MoV CX,2000H 3 SET TEST MEM SIZE 16K 
0893 86 C7 08 yet DX, PAGREG2 ; 
0896 BA CT A0D BH, 000010008 } UPDATE CPU/CRT PAGE 
0898 EE ’ i 
out DX, AL 3 SET PAGE REG 2 
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03839 
0898 


3A 
75 


3B 
OA 
74 


BE 
E38 


cs 
b2 


OF7C R 
04C2 Rk 


e4c2 R 


C6 02 


C2 0088 
FB OS 


oac2 R 


1007 R 
FF 
06 


0067 R 
ODS2 R 


CMP AL, BL 3 END ? 
JNE VRML 3 NO - 
5 Set ee ee SS ef ee ee Se Se SNe eS eee ee CSET See eeeeeee= KCK SOK SSS SCTE 
i TEST 14 2 
KJ-ROM AND GATJt SRAM TEST t 
; MFG ERROR CODE = MODULE AT ADDRESS 80000H ERROR : 
; 37o RODULE AT ADDRESS 90800H ERROR : 
5 2702 MODULE AT ADDRESS 91000H ERROR 2 
3 2703 MODULE AT ADDRESS 91800H ERROR : 
3 27FF GAIJI RAM R/W ERROR : 
peeereubccuicuededcteesacsueeleunsacescsececnsucewuceewewees mewn 
CALL MFG_UP SEND 'Fi' TO MFG_TESTER 
ooee- DISABLE VRAMI & VRAM2 DECODERS AND THEN ENABLE KJ-ROM 
CALL SBSET 3 
DB 009H 3 START REG ADDR 
DB 060H 3 MASK DATA 
DB 2 3 PARAMETER LENGTH 
DB 000H 3 DISABLE VRAM1 DECODER 
DB 000H 3 DISABLE VRAM2 DECODER 
CALL S8SET 3 
DB 007H 3 START REG ADDR 
DB 067H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OBOH + ENABLE KJ-ROM DECODER (86000-BFFFF) 
weLvawuedecJecensewwawnucessecs ; 
3 TEST KJ-ROM 3 
[asseesocenesseescsnssecsssesse= ; 
MoV AL,O 3 CLEAR CHECHSUM COUNTER 
XOR BX, BX 3 BH = 6 : GOOD COMP FLAG 
+ BL = 0 +t INITIAL KJ ROM ERR CODE 
MoV DX,8000H 3 SET KJ-ROM TOP ADDR (80000H) 
MOV DS, DX 3 
XOR $I,$I ; 
MOV CX,8000H 3 TEST MODULE AT ADDR 80800H 
KJ2: ADD AL,DS:{$) 3 CCALCULATE CHECKSUM) 
INC SI 3 
LOOP KJ2 ; 
OR AL, AL 3 CHECKSUM GOOD ? 
JHE KJERR 3 NO - 
MOV DX, 9080H 3 TEST MODULE AT ADDR 90800H, 
KJ3: PUSH DX 3 91000H, AND 91800H 
MOV CL, 16 3 
KJ4: MOV DS,DX Jreren ene e nee ----: 
XOR SI,S! 3 : 
PUSH cx 3 : 
MoV CX,0800H 3 16 TIMES LOOP 
KJS: ADD AL, DS: ($1) Fecatetetated 
INC SI 3 2K TIMES LOOP : 
Loop KJ5 poomeee: : 
PoP cx 3 t 
ADD DH,2 3 : 
Loop Kus goon: 
POP Dx 3 
INC BL 3 INCREMENT ERROR CODE 
OR ALLAL 3 CHECKSUM GOOD ? 
JNE KJERR 3 NO - 
ADD DX, 0080H 3 
CMP BLS 3 
JB KJ3 3 
wee wm eeeewwnwwe 3 
3 TEST GATJI SRAM 3 
JER eSSa mates saan anaes wewserswes ; 
KJ6: MOV CH,04H 3 SEY TEST ADDR LENGTH (2K) 
NOV OH, 88H 3 SET START ADDR (8800H) 
MOV ES,DX 3 
CALL PODSTG 3 GAIJI SRAM GOOD ? 
MOV BH.O 3 Sr GOOD COMP FLAG 
J2 KJ? 3 YES 
MoV BL,OFFH 3 Ser GAIJI SRAM ERROR CODE 
KJERR: MOV BH.27H 3 
KJ?: PUSH ; 
etait DISABLE Kd-ROn DECODER AND THEN ENABLE VRAN2 DECODER 
; 
DB 007H 3 START ots ADDR 
DB 067H 3 MASK 
DB 1 3 PARAMETER LENGTH 
DB 000n 3 DIABLE KJ-ROM DECODER 
CALL S8SET 3 
DB COAH 3 START REG ADDR 
08 060n 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
: DB OB7H 3 ENABLE VRAM2 DECODER (88000-BFFFF) 
: CALL PUT_LOGO 3 PUT LOGO ON SCREEN 
Fasecs 
POP BX ; 
OR BH, BH 3 ANY ERROR OCCURRED ? 
J2 coh) 3 NO - 
MOV SI,OFFSET KFNT_ERR ; KANJI ROM OR GAIJI RAM ERROR 
CALL E_MSG 3 
KJ9: 
Josceee= Salata batt tee ened eeww eee 
TEST 5 2 
EMORY SIZE DETERMINE AND TEST 3 
; DESCRIPTION z 
3 THIS ROUTINE WILL DETERMINE HOW MUCH MEM 2 
3 1S ATTACHED TO THE SYSTEM (UP TO 512KB) 2 
3 AND SET "MEMORY_SIZE" AND "REAL_MEMORY®™ t 
3 WORDS IN THE DATA AREA. t 
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t 
? 
€D 
EST : 
ER T ED : 
3 MEE CONTENTS : 
Ry WILL BE ; 
ix A. Ss, SO ie : ath - 
dix THI DEP = 2 i : 
en TER by’ “ - . 
App ; a CLEARED, D om 
H PRESET LAG = OBXx itty = 
H R ; an 
; MFG ERR 0 INA ea - 
: aetsee . 
EXx BASE i ES Go 
3 , i 
: 1 Ex S2K VR Bree = 
| 4 eee MATION 
ce : ars INFO! 
ar fe pe RAM MAP 
~e i STORE 
eee ASU Ds - r : 
| , 1 ; RAM CA 
i a ! = ARD IN? 
2 Boe oon ; 66 aan 
i ie asta ™ 
8 0000 § TEST at - | — | 
091D B OF7C Jz Bes, : ie 7 
0920 60 Test fe aoe OB + 2ND_ a 7 id, 
wee eS aced Q25_1: a rae cere g. ae se 
AL, . : 
: 1 : x2 3 BX 3 T TO OR C EMOR 
28 63 TES ; ae vA ’ : = 
$934 he c3 40 25 2: JZ x26 an . ng 2 5 
0 8 Q i : 3 
092C AB O01 soe CRED ara “3 a 
092F 74 04 0080 : i ob : 
693) 81 C3 Q25_ oy pe Bee : : cick : 
0933 81 C3 + : ; 
37 eo " | 3 
0939 ai ie 0013 B i‘ ie 
O93 pe ic 0015 nov ae : 7 
X, | 
0943 008 : a " 
88 oes R : : ; 
0947 €8 a : | ' 
096A E80 : : | 
air BA ls @26: niet f _ = 
i : : ro ; rest 0 
B | 
, : : cyeste ; ORY SIZE 
oD : " 
Sen 35 QUT FS — 
: : . 5 } DISPLA 
: : POP Bx ; 
O98E ” 60 ane ast 3 : ° : 
960 E6 ODEA R ADD msize : - | a 
0962 be 7 ee Ee i it . 
wees 5B @ pay coe enen : - ie a ; 
9 | 
3987 aa 27 0 nay AX, BX Pi rT; ) 2 
968 004 R CMP a6 _ Be a i 
096A ea igs JHE a? = se ‘i ii 
0 M 
oa7e 60 Ph Jn pats I ra ; 
3973 es 8000 7 ; 2 ‘ | & : 
ua : | 
a + NE a eH 33 ; vase ODE - 32 
O97A B OAlL R® e # a : 3 
F 3 
o97c 29_i: en en : : 

: ) | 2 ae | M CARD IN | 
897F = 04 Q350: iM or : ” ~ 
1 . coves; NO - 28K R 
0984 4 2F 10 J a, i “* 

: 3 
: 2 7 . : Ahi CARD AREA ? 
0983 22 F 
98D 26 SH cx i : 
Saar EB Pusn oF ss ! a " 
‘ aL AX, CL i 
esas ae 3 f a = 
s- 
es ce ee wen ee 
099 51 POP Q3 ‘ i st - 
0998 Bl OD 5 : b ; 
: . CH ‘ 
a30 Bb et OR Bie Aplbelldecds ee 
099 59 ; | | 
O99F 33 M OHA CL ; F . aie : i : 
4 : i BHD 5 Foes knead 64 oDD/E IT ISN'T 
0 8A ov BH, 7 ie " 
AS D9 : : 
0343 Bi oe SNP inoue ae ah - ; 
rs ALO a e 

: : | : a ERR 

rata ue Q32: res is — 
i a ; 
Ost Be " @33: SMP iheee : nee 
: v Lc ; : 
B3 6 : : : 7 
09Bs 4 D9 Q34: nov BL; , a 7 
care OA np | i 
Re BL,C 
0980 80 rc 4 
rT) F 
ayee Hh 2s Tt 
09 
9c6 FE 7 
B3ce 80 FC 01 
O9eB 74 02 
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o9cD 


O9CF 
o9D2 


FE Cc? 


BE OOSE R 
E8 OD32 R 


70 90 


Inc BH + MUST HAVE BEEN BOTH 
3 - MAKE INTO OCXx 
Q35: MOV SI,OFFSET MEM_ERR ; 
CALL E_MSG 3 LET eRaoe ROUTINE FIGURE OUT 
+ WHAT TO DO 


3 

+ SUBROUTINE 

; MEMORY SIZE PRINT ON CRT 

+ DESCRIPTION 

$ PRINT TESTED MEMORY OK MSG ON THE CRT 
+ CALL PARMS: AX = K OF GOOD MEMORY CIN HEX) 


USK 
PUSH CX 
PUSH DX 
PUSH = AX + SAVE WORK REGS 
MOV H,2 3 SET CURSOR TOWARD THE END OF 
MOV DX,0921H 3 ROM 9, COL. 33 
MOV BH, 0 3 PAGE 0 
INT INT_10 3 
PoP ax 3 
PUSH = AX 
MoV BX, 10 + SET UP FOR DECIMAL CONVERT 
MoV Cx, 3 3 OF 3 NIBBLES 
Q36:  —-XOR DX, DX A 
DIV BX 3 DEVIDE BY 10 
OR DL, 30H 3 MAKE INTO ASCII 
PUSH 3 SAVE 
LOOP = Q36 3 
MOV cx, 3 3 
Q37: POP ax 3 RECOVER A NUMBER 
CALL PRT_HEX 
LOOP = 37 
MOV 


CX,3 
MOV SI,OFFSET FSB 3 PRINT * KBY 
Q38: MoV Ehatees 
$ 


INC 

CALL PRT_HEX 

LOOP Q38 

POP aX 

PoP Dx 

POP cx 

POP BX 
Q35E: RET 
MSIZE = ENDP 
Q43: 
siwesuabuawesoeeaeme eens eo a 
3 TEST 16 z 
3 KEYBOARD TEST : 
3 DESCRIPTION : 
3 NMI HAS BEEN ENABLED FOR QUITE A FEW : 
3 SECONDS NOW. CHECK THAT NO SCAN CODES t 
3 HAVE SHOWN UP IN THE BUFFER. (STUCK : 
3 KEY) IF THEY HAVE, DISPLAY THEM AND : 
3 POST ERROR. 2 
3 MFG ERROR CODE = 2000 STRAY NMI “a ale OR KBD RCV ERRORS : 
3 21XX CARD FAILURE : 
; XX=01, KB DATA STUCK HIGH z 
; XX=02, KB DATA STUCK LOW : 
3 XX=03, NO NMI INTERRUPT t 
INT_70 EQU 70H 

ASSUME DS:DATA 

CALL MFG_UP 3 SEND "EF* TO MFG_TESTER 

CALL DDS_ 3 ESTABLISH ADDRESSING 
F Eataatatad CHECK LINK erg IF PRESENT 

MOV DX, JOY_PORT H 

IN AL, Ox 3 BURN-IN MODE ? 

AND AL, OFOH 3 

JZ F6 3 YES-BYPASS CHECK 

IN AL, PORT_C $ KEYBOARD CABLE ATTACHED ? 

AND AL, 100000008 3 

JINZ F? 3 NO - 
Fé: JmP F6_X 3 YES-BYPASS CHECK 
F?: IN AL, PORT_B , 

AND AL, LILIT100B 3 DROP SPEAKER DATA 

out PORT_B,AL 3 

MOV AL, OB6H 3 MODE SET TIMER 2 

out TIM_CTLAL ; 

Mov AL, 040H 3 DISABLE NMI 

our NMI_PORT,AL 3 

MoV AL, 32 5 LSB TO TIMER 2 

3 CAPPROX. 40Khz VALUE) 

Mov DX, TIMER¢2 

ouT DX,AL 

SUB AX, AX 

MOV CX, AX 

OUT DX,AL 3 MSB TO TIMER 2 (START TIMER) 

InN AL, PORT_B H 

OR AL, 

our PORT_B.AL 3 ENABLE TIMER 2 
F7_0: ON AL, PORT_C 3 SEE IF KEYBOARD DATA ACTIVE 

AND AL, 010000008 ; 

INZ F7_1 3 EXIT LOOP IF DATA SHOWED UP 

Loop F7_0 

Mov 8L>02H 3 SET NO KEYBOARD DATA ERROR 

JMP SHORT F6_1 + (2102) 


F7_1: PUSH ES 


- 


SAVE ES 
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SUB AX, AX ; SET UP SEGMENT REG 
0a5¢ 2B CO MOV €S,AX 3% 
Oass SE CO. og p00 R 0599 C MOV ES TNMI_PTR,OFFSET D11 + SET UP NEW NMI VECTOR 
ee Bae MoV INTR_FLAG, AL 3 RESET INTR FLAG 
maser ae ee IN AL, PORT_B ; DISABLE INTERNAL BEEPER TO 
site Fe a OR AL, 001100008 3 PREVENT ERROR BEEP 
OUT PORT_B,AL 
0466 E6 61 t 
MoV AL, OOH 
ae ouT enrotsan + ENABLE NMI 
oasc 89 0100 MOV X00 5 
LOOP ; WAIT A BIT 
ore Ey el IN AL. PORT_B ; RE-ENABLE BEEPER 
i a ane ALNEEgLuas 
MOV AL, INTR_FLAG 5 GET INTR FLAG 
ony? Ag 0086 R OR ALG AL ; WILL BE NON-ZERO IF NMI HAPPENED 
i ; 
were 88 8s MOV BL SET POSSIBLE ERROR CODE 
: C7 06 0008 R 0000 C MOV Bee ONMI_PTRI,OFFSET KBDNMI ; RESET NMI VECTOR 
GATE 26 C POP ES RESTORE ES 
; 
Sage 78 26 JZ F6_1 ; JUMP IF NO NMI (22103) 
0AgB BO 00 nov AL oom my ; DISABLE FEEDBACK CKT 
OABA EG AD 2 ; 
asc (ES 61 IN AL,PORT_B 3 
oASE 28 FE AND AL, 111111108 ; DROP GATE TO TIMER 2 
0a90 «E6 61 ; 
OA92 ES 62 F6_2: IN AL, PORT_C ; SEE IF KEYBOARD DATA ACTIVE 
DAIS 24 40 AND AL,01000000B = 
0A96 «74 :0C JZ F6_X } EXIT LOOP IF DATA WENT LOW 
OA98 E2 FB ioop = F6_2 
CASA BS 02 MOV BL,01H + SET KEYBOARD DATA STUCK HIGH ERR 
case 87 21 Fol: MOV BH, 21H ; POST ERROR "21Xx" 
OASE BE OOSF R MOV SI,OFFSET KEY_ERR ; GET MSG ADDR 
OAAL €8 ODS2 R CALL —-E_MSG ; PRINT MSG ON SCREEN 
AAS BO 00 F6_X: MOV AL, 00H ; DISABLE FEEDBACK CKT 
DAAG EG AO OUT NMI_PORT,AL 3 
AAS BB& FF20 MOV AX, OFF20H 3 INITIALIZE KANA-KANJI FUNCTION 
OAAB CD 70 INT INT_70 ; 
OAAD B88 0703 mov AX, 0703H ; DISABLE INDICATOR ROW DISPLAY 
DABO CD 16 | INT INT_16 ; 
snes A js eee ees (Een eee oe Sb eee eerie 
; TEST 2 : 
3 pesernet fon INTERFACE TEST : 
3 t 
; TURN CASSETTE MOTOR OFF. WRITE A BIT OUT TO THE : 
3 CASSETTE DATA BUS. VERIFY THAT CASSETTE DATA : 
; READ IS WITHIN A VALID RANGE : 
: MEG ERROR CODE = 2300 (DATA PATH ERROR : 
; 23FF (RELAY FAILED TO PreK) ; 
= DASA MAX_PERIOD EQU OASAH = ;NOM. +20% 
= O8AD MIN_PERIOD EQU O8ADH  ;HOM -10X 
joneee TURN THE CASSETTE MOTOR OFF 
oanz EB OFIC R CALL RFG_UP ; SEND ‘EE’ TO MFG_TESTER 
AL, PO 
DAB? OC 09 oR st oeoTe01B ©; SET TIMER 2 SPK OUT, AND CASSETTE 
OABS £6 61 out PORT_BAL 7 OUT BITS ON, CASSETTE MOT OFF 
pocoo WRITE A BIT 
OABE ES 23 AL, INTAOL 
OABD OC OL oR AL, OAH ; DISABLE TIMER INTERRUPTS 
bach 60 Be nov sopen SEL TIM 2, LSB, MSB, MD 3 
ml AL, OB6H ; SEL TIM 2, LSB, MSB, MD 
OACS EG 43 OUT TIMER+S,AL ; WRITE 8253 CMD/MODE REG 
DACs BB 0402 mov AX 1236 SET TIMER 2 CNT FOR 1000 USEC 
0 MER+2,AL ; WRITE TIMER 2 COUNTER R 
ACA 8A C4 MOV ALLAH 3 WRITE MSB 
CACC EG 42 out TIMER+2,AL 
OAcE 2B C9 SUB CX¥CX ; CLEAR COUNTER FOR LONG DELAY 
; WAIT FOR COUNTER TO IN 
oo READ CASSETTE INPUT 
OaDs 24 10 ins 2 en RUE Or ovneR BITS 
; ISOLATE FROM OTH 
ADS AZ 0068 R mov LAST_VAL, AL 
OADS EB 0000 E CALL © READTHALF_BIT + TO SET UP CONDITIONS FOR CHECK 
OADC €8 0000 E CALL - READ_HALF_BIT 
OADF E3 3E JCXZ FB CAS_ERR 
OAEL 53 PUSH —_BX ; SAVE HALF BIT TIME VALUE 
DAEz EB 0000 CALL READ_HALF_BIT 
oP AX 3 GET TOTAL TIME 
ache fr 4 sexe FS 3 CAS_ERR 
AX, BX 
GAEA 30 SAA cne AX, MAX_PERIOD 
F8 ; CAS_ERR 
Bact ap CEAG cH AX/MIN_PERTOD . ees 
: : 
pe mov DX, JOY_PORT H 
DAFA 30 fo AND AL, OFOH ; DETERMINE MODE 
cies ae chp AL,000100008 i MFG? 
OAF 
nas ce Hannon 5 BREE rene oe or 
; GO TO NEXT TEST IF HO 
so---- CHECK THAT CASSETTE RELAY IS PICKING (CAN'T DO TEST IN NORMAL 
MODE BECAUSE OF POSSIBILITY OF WRITING ON CASSETTE IF “RECORD” 
Sieh BS BUTTON IS DEPRESSED. ) 
0804 8A DO Fas Ab AL, PORT_B 
0806 24 ES fee DL, AL 3 SAVE PORT B CONTENTS 
0B08 6 61 AND AL;11100101B 5 SET CASSETTE MOTOR ON 
9 3 
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33 ¢9 XOR CX, Cx 
E2 FE LOOP 8 3 WAIT FOR RELAY TO SETTLE 
£8 0000 E CALL READ_HALF_BIT 
£8 0000 E CALL READ_HALF_BIT 
8A C2 MOV att ie 3 DROP RELAY 
&6 61 OUT PORT_B, 
XZ T16_END 3 READ_HALF_BIT yrnouto TIME OUT IN 
pee we ie. 3 THIS SITUATIO 
BB O23FF mov BX, 23FFH > ERROR 23FF 
EB 03 JMP SHORT F81 
F8: + CAS_ERR 
BB 2300 Mov BX,2500H ERR. CODE 2300H 
BE 0060 R F81: MOV si, pOrrser CASS_! ERR ; CASSETTE WRAP FAILED 
E8 0032 R CAL O PRINT ERROR MSG 
T16_END: IN ite entao. i 
2 fe “AND AL, OFEH 3 ENABLE TIMER INTS 
£6 21 ouT INTAOL,AL 
E4 AO IN AL, MMI_PORT 3 CLEAR NMI FLIP/FLOP 
BO 80 MOV AL, 80H 3 ENABLE NMI INTERUPTS 
E6 AO our NMI_PORT,AL 
plesnweccoucweudcceTecccces teccaae=se~ wewenn nnn ne Watasssessnacecs 
3 TEST 18 : 
3 SERIAL PORT (2FX) TEST : 
3 DESCRIPTION: t 
3 CHECKS IF THE SERIAL CARD IS ATTACHED. IF NOT, EXITS. 2 
3 VERIFIES THAT THE SERIAL CARD UART FUNCTIONS PROPERLY. z 
3 ERROR CODES RETURNED BY ‘UART' RANGE FROM 1 TO 1FH AND 2 
3 ARE REPORTED VIA REGISTER BL. SEE LISTING OF ‘UART’ 3 
5 FOR POSSIBLE ERRORS. : 
3 MFG. ERROR CODES = 23xXX FOR SERIAL PORT 2Fx_ 2 
’ 
ASSUME CS:CODE,DS:DATA 
, 
3 TEST SERIAL CARD INS8250 UART (2X) 
pases WeaBvosseseneNeeas cet oases Sou nwa tween ee Sea ries 
E8 OF7C R CALL MFG_UP 3 SEND ‘ED? TO MFG TESTER 
E8 0000 E CALL DDS 3 POINT TO DATA AREA 
E4 62 IN AL, PORT_C 3 TEST FOR SERIAL CARD PRESENT 
24 02 AND AL, 000000108 + ONLY CONCERNED WITH BIT 1 
75 17 INZ ™ 3 IT'S NOT THERE 
BA O2F8 MOV DX,» RS232_2_PORT ; ADDRESS OF SERIAL CARD 
89 16 OOOO R MOV RS232_BASE,DX SAVE RS232 CARD ADDR 
80 CE 0011 R 02 OR BYTE PTR EQUIP_FLAG+1,02H 3 SET EQUIPMENT FLAG 
E8 LLID R CALL VART F esc. COMM. ADAPTER TEST 
73 06 INC ™ PASSED 
BE 0061 R MoV SI, OFFSET com. “ERR 3 CODE FOR DISPLAY 
E8 OD32 R : CALL E_NSG + REPORT ERROR 
M: 
3 TEST 19 : 
3 PARALLEL PORT TEST 2 
+ MFG ERROR CODE = 28XX DATA PORT WRAP ERROR 3 
; 29XX CONTROL PORT WRAP ERROR 2 
3 (XX ERROR BITS) 2 
ne em ee ew re ee wwe eee wwe eee SS ee Ke eee meee ee eee eesees 
ASSUME CS:CODE,DS:DATA ; 
E8 OF7C R CALL MFG_UP + SEND "EC" TO MFG_TESTER 
E8 0000 E CALL DDS- 3 POINT TO DATA AREA 
Boo--- CHECK DATA PORT 
OE PUSH cs 3 SET DS 
07 PoP €s 3 
BF OBAC R MOV DI,OFFSET PPD 3 SET TEST PATARN ADDR (DATA) 
BA O37A MOV OX,PARAL_PORT¢2 ; SET CONTROL PORT 
BO 08 mov AL, 08H + SET SELECT IN SIGNAL 
43 ouT DX, AL ; 
82 78 MoV DL, LOW PARAL_PORT ; SET DATA PORT 
B? 28 mov BH, 28H 3 SET ERROR CODE 28xx 
89 0004 MOV CX.4 3 SET LOOP COUNTER 
8A 05 PPI: mov ALES: (OL) 3 LOAD TEST PATRAN 
8A £0 MOV AH, AL 3 
fa our DX, AL 3 OUT DATA 
30 PUSH ax + DELAY 
38 PoP Ax 3 
Se IN AL, DX 3 INPUT DATA 
Eo XOR AH,AL 3 COMPARE DATA 
75 37 JNZ PERR 3 OK? 
E2 Fe Loop PPL 3 
Bome-= CHECK CONTROL PORT 
a 0201 pon aa PORT 3 SERVICE MODE Loop ? 
»D , 
24 FO AND AL, OFOH 3 
3C 20 CMP AL. 001000008 3 
74 08 JE PP2 + YES- 
8L SE 0072 R 3412 cmp RESET_FLAG, 3412H 3 WARM START WITH “CTRL#ALT+INS"? 
75 2B SNE PP4 3 NO -GOTO NEXT TEST 
BA O3S7A PP2: NOV sg PARAL_PORT#2 ; SET CONTROL PORT WRITE 
b7 29 MoV 4, 29H 3 SEY ERROR CODE 29xx 
81 04 mov tt + SET LOOP COUNTER 
on 8A 05 PPS: ny ALsESsE0I) + LOAD TEST PATRAN 
¢ 3 
8A EO MOV AH, AL 3 DATA SAVE 
ce our DX, AL 5 OUT DATA 
50 PUSH AX 3 DELAY 
58 PoP aX 3 
eC IN AL. DX 3 INPUT DATA 
24 1F AND AL, LEH 3; DROP BIT 7-5 
32 E0 XOR AH, AL 3 COMPARE DATA - 
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FF AA 55 00 
1B 00 1¢ oC 


a oc 


8 
BE 0066 R 
E8 OD32 R 


28 CO 
8E CO 
Bg 0008 
oe 


1F 
BE 15CO R 
BF 0020 R 


8E D9 
C7 06 0014 R OOOO E C 
C7 06 0120 R OOO}O E =C 


C7 06 0060 R OOOO E C 
oe 


58 
AS 0062 R 


BO 01 
€6 17 
E8 OF7C R 


BA Cooo 


81 C2 0080 
81 FA F800 
72 DD 


E8 OF7C R 
€8 0000 E 
1E 
07 


BF 0074 R 
BS FFFF 


B90 
83 re 0072 R 00 


JNZ PERR 3 OK? 
LOOP PPS 3 
JMP SHORT PP4 3 
PPD: DB OFFH,OAAH,O55H,000H + DATA PORT TEST PATARN 
DB O1BH,000H,01CH,OOCH ; CONTROL PORT TEST PATARN 
PERR: MOV BL,AH 3 SET ERROR BITS 
MOV SI,OFFSET PRT_ERR ; PARALLEL PRINTER ERROR 
CALL E_MSG ; 
PP4: 
: SETUP HARDWARE INT. VECTOR TABLE 
b nnn nena nn nnn nnn enn nn nn rc neers 
ASSUME CS:CODE,DS:ABSO 
SUB AX, AX 
MOV ES, AX 
MOV CX, 08 3 GET VECTOR CNT 
PUSH cs 3 SETUP DS REG 
PoP DS 
MOV SI,OFFSET VECTOR_TABLE 
MoV DI,OFFSET INT_PTR 


F7A: MOVSW 


SKIP OVER SEGMENT 


3 SAVE CONTENTS OF CONF. FLAG 
+ CRESTORE AT LABEL F17) 





mov BP, AX i 
grceee SET UP OTHER INTERRUPTS AS NECESSARY 

ASSUME DS:ABSO 

MOV DS, CX 

MoV INT5_PTR, OFFSET PRINT_SCREEN ; PRINT SCREEN 

MOV KEY62_PTR, OFFSET KEY62_INT ; 62 KEY CONVERSION 

3 ROUTINE 

MOV BASIC_PTR, OFFSET BAS_ENT + CASSETTE BASIC ENTRY 

PUSH = CS 

POP AX 

MOV WORD PTR BASIC_PTR#2,AX 3 CODE SEGMENT FOR CASSETTE 
poceee nee n ene e econ anne nennc ec nen een reennennenmeneneeemnenmanenae 
3 TEST 20 : 
3 OPTIONAL ROM TEST : 
3 DESCRIPTION : 
3 CHECK FOR OPTIONAL ROM FROM C0000 TO F8000 IN 2K BLOCKS : 
3 (A VALID MODULE HAS "AAS5* OR '55AA’ IN THE 1ST 2 LOC'S»: 
3 LENGTH INDICATOR (LENGTH/512) IN THE 3RD LOCATION AND: 
3 TEST/INIT. CODE STARTING IN THE 4TH LOCATION.) 3 
3 MFG ERROR CODE = 25XX (XX=MSB OF SEGMENT THAT HAS CRC CHECK) 

MoV AL, O1H 3 MFG HART BEAT 

OUT MFG_PORT#7,AL i 

CALL =—- MFG_UP ; SEND "EB" TO MFG_TESTER 


MoV DX, 0C000H 3 SET BEGINNING ADDRESS 
ROM_SCAM_1: 
OV 


DS, DX 

SUB BX, BX 3 SET BX=0000 

Mov CX, (BX) 3 GET 1ST WORD FROM MODULE 

PUSH = BX + BUS SETTLING 

POP BX 

cMP CX, 0AAS5SH 3 ID FOUND (PCJR MODE) ? 

JE OROML 3 

chp CX, 55AAH 3 (NATIVE MODE) 

JNE NEXT_ROM 3 HO - 
OROM1: CALL §ROM_CHECK } GO CHECK OUT MODULE 

JMP SHORT ARE_WE_DONE ; CHECK FOR END OF ROM SPACE 
HEXT_ROM: 

ADD DX, 0080H 3 POINT TO NEXT 2K ADDRESS 
ARE_WE_DONE: 

cMP DX, OF800H 3 CARTRIDGE AREA END ? 

JB ROM_SCAN_1 ; NO -GO CHECK ANOTHER ADDR 
3 TEST 21 ' 
3 DISKETTE ATTACHMENT TEST : 
3 DESCRIPTION t 
3 1. VERIFY WATCHDOG TIMER IN CASE OF POWER ON ENTRY. t 
; 2. VERIFY STATUS OF FDC AFTER A RESET. : 
3 3. DETERMINE NUMBER OF DISKETTE DRIVES. : 
3 §. COMPLETE SYSTEM INITIALIZATION THEN PASS CONTROL ’ 
3 TO THE BOOT LOADER PROGRAM : 
+ MFG ERROR CODES = 2601 RESET TO DISKETTE CONTROLLER CD. FAILED : 

2603 WATCHDOG TIMER FAILED : 


ASSUME CS:CODE,DS:DATA 
CALL UP 


MFG_U 3; SEND ‘EA* TO MFG_TESTER 
CALL DDS 3 POINT TO DATA AREA 
pen us 3 INIT DISKETTE SCRATCHPADS 
3 

MOV DI,OFFSET TRACKO; 

MOV AX, OFFFFH 3 

STOSW 3 

STOSW 3 

In AL, PORT_C 3 DISKETTE ADAPTER PRESENT? 

AND AL,00000100B 

JZ F10 ; 
¢ JMP F15 3; NO - BYPASS DISKETTE TEST 
10: CMP RESET_FLAG,0 3; RUNNING FROM POWER-ON STATE? 

JNE Fll 3 BYPASS WATCHDOG TEST 

MOV AL,00001010B 3 READ INT. REQUEST REGISTER CMD 

OUT INTAOO,AL 3 

IN AL, INTAOO 
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FF 


0302 R 


0010 R SF 
OO10 R 


FE 


04 
0302 R OF 
0010 R O1 


0084 R 00 
aR 


1414 


0101 


80 
20 


OFE2 R 
SE 0018 R 00 


OF 


EO 


0201 


FO 
03 


006B R 
20 


4 F9 
SE 0072 R 4321 


AND AL,01000000B 3 HAS WATCHDOG GONE OFF? 
JNZ Fill 3 PROCEED IF IT HAS 
MOV BL,O3H ; SET ERROR CODE 
JMP SHORT F13 
Fil MoV AL, FDC_RESET 5 
OUT NEC_CTL,AL 3 DISABLE WATCHDOG TIMER 
mov AH, 0 > RESET NEC FDC 
MOV DL,AH 3 SET FOR DRIVE 6 
INT NT_IS 3 VERIFY STATUS AFTER RESET 
TEST AH, OFFH 3 STATUS OK? 
MOV BL,O1H 3 SET ERROR CODE 
JZ Fis 3 YES- 
FL3: MOV BH, 26H DSK_ERR: (26XX) 
HOV SI, OFFSET DISK_ERR ; GET ADDR OF MSG 
E_MSG 3 GO PRINT ERROR MSG 
oes DeTenmiNe HUMBER OF DISKETTE DRIVES 
Fs: AX,0000000110000001B ; AH-DRIVE CONFIG. FLAG 
3 AL-TURN MOTOR ON 
MOV DL,O 3 SELECT DRIVE 0 
Fi¢_i: OUT NEC_CTL,AL 3 WRITE FDC CONTROL REG 
PUSH = AX ; 
PUSH = DX 3 
SUB cx, CX 3 WAIT FOR 0.5 SECOND 
Loop 3 
LOOP $ H 
MOV CH, 3 SELECT TRACK 1 
MOV SEEK_STATUS,DL 3 
CALL = SEEK 3 RECALIBRATE DISKETTE 
POP DX > 
POP AX 3 
JC F142 3 
OR BYTE PTR JEQUIP_FLAG.AH ; SET DISKETTE CONFIG. 
MOV CL.6 3 SET @ OF DISKETTE 
Mov CH, DL ; 
SHL CH.CL 
AND BYTE PTR EQUIP_FLAG,3FH ; 
OR BYTE PTR EQUIP_FLAG,CH ; 
Flé_2:  SHL AX, 1 i 
AND AH, 112211108 3 
OR AL, FDC_RESET ; 
INC DX 3 
CMP DL.¢ ; 
JB Fl4_1 ; 
Test rere JEQUIP. FLAG. ,OFH ; DISKETTE DRIVE ATTACHED ? 
14 
OR BYTE gr EQUIP_FLAG,O1H ; SET IPL DISKETTE INDICATOR 
jessse TURN MOTOR 0 
F16_3: MOV AL, FDC _ RESET 3 TURN DRIVE 0 MOTOR OFF 
OUT NEC_! CTL, AL ; 
F15 MOV INTR_FLAG,OOH 3 SET STRAY INTERRUPT FLAG = 00 
Mov DI,OFFSET PRINT_TIM_OUT ;SET DEFAULT PRT TIMEOUT 
PUSH DS 
PoP €S 
MoV AX, 1414H 3 DEFAULT=20 
STOSW 
STOSW 
MOV AX, 0101H 3RS232 DEFAULT=01 
STOSW 
STOSW 
IN AL, IRTAOL 
AND AL, OFEH s ENABLE TIMER INT. CLVL 8) 
our INTAOL,AL 
PoP Ax 3 RESTORE & SAVE CONF. FLAG 
PUSH = AX 5 
TEST  AL,100000008 + PCJR MODE ? 
JNZ FL7 3 YES-BYPASS BEEP 
ASSUME DS:XXDATA 
PUSH = DS. 
CALL DDX ; 
CMP POST_ERR, OOH 3 CHECK FOR “POST_ERR™ NON-ZERO 
ASSUME DS:DATA 
POP DS 3 RESTORE DS 
JE Fl6 3 CONTINUE IF NO ERROR 
MOV DL.2 3 2 SHORT BEEPS (ERROR) 
CALL ERR_BEEP 
ERR_WAIT: 
MOV AH, 00 
INT_16 3 WAIT FOR “ENTER™ KEY 
AL, ODH H 
ERR_WAIT 
SHORT F17 ; 
DL, 3 2 SHORT BEEP (NO ERRORS) 
L____ERR_BEEP 
ax 3 RESTORE CONTENTS OF CONF. FLAG 
AHL AL 3 (SAVED AT LABEL F7B) 
AL. 3 CLEAR KBD PORT 
PORT_A,AL 3 
ox. 30 , JOY_PORT 3 GET MFG./ SERVICE MODE INFO 
AL OF oN 3 IS HIGH ORDER NIBBLE = 0? 


Fra: JMP 
FL9: CMP 
JE 
CMP 





3 CBURN-IN MODE) 
STA ART + YES-GOTO Bon ane? OF POST 
AL, 001000008 3 SERVICE MODE LO 
Fl8 + YES-BRANCH TO START 
RESET_FLAG,4521H & DIAG. CONTROL PROGRAM START? 


A-241 


Appendix A. 


YES- € 
MFG DCP RUN REQUEST? y 
YES- 

















JE F21 3 
ODOA 74 19 CMP AL, 0001C000B ; 
epec 3c 10 SE F2i ‘ 
ODoE 74 15 
----- TO PCjr SYSTEM CARTRIDGE 
ep1o Fé C4 80 , SoEST ai, 100000008 3 PCIR MODE ? 
Jz 3 - 
opis eo 0349 R JMP _Sreshap 3 YES-GO SYSTEM SWAP RTN. 
~---- GOTO BOOT LOA 
’ F201 MOV AX, 0019H + CLEAR SCREEN (GRAPHIC MODE) 
opie ep io IRT INT_10 + (MODE: 320 X 200 - COLOR) 
MoV RESET_FLAG 1256H 3 SEY WARM START INDICATOR IN CASE 
ODID C7 06 0072 R 1234 , ancanseeuee eter 
epes cD 29 INT INT_19 3 GOTO THE BOOT LOADER 
proeee GoTo DIAGNOSTIC TESTS OR MFG TESTS 
ASSUME 
op25 FA Fai: CLIT 3 DISABLE EXTERNAL INTERRUPTS 
0026 «2B CO SUB AX, AX 
0D28 8E D8 MOV DS,AX 3 RESET TIMER INT. 
ODZA C7 06 GOZO R BODO E C MOV WORD PTR INT_PTR,OFFSET TIMER_INT ; 
oDSo CD 80 INT INT_80 3 ENTER DCP THROUGH INT. 80H 
petticoat Ee nae en ewan ce tenet enicelouauss 
3 SUBROUTINE 
; GENERAL ERROR HANDLER FOR THE POST 
3 ENTRY REQUIREMENT 
3 SI = OFFSET CADDRESS) OF MESSAGE BUFFER 
3 BX= ERROR CODE FOR MANUFACTURING OR SERVICE MODE 
; A 0 ‘ 
; LOCATION rpost_ ERR" IS SET NON-ZERO IF AN ERROR OCCURS IN € 
3 D 
3 SERVICE/MANUFACTURING FLAGS AS FOLLOWS: (HIGH NIBBLE OF PORT 201) 
; 0000 = MANUFACTURING MODE (BURN-IN) 
3 0001 = MANUFACTURING MODE (SYSTEM TEST) 
3 0010 = SERVICE MODE (LOOP POST) 
; 0100 = SERVICE MODE (SYSTEM TEST) 
op3z E_MSG PROC NEAR 
0D32 8A C7 MOV AL, BH 3 SEHD DATA TO ADDR 12 & 12 
0D34 «£6 11 OUT MFG_PORT+1,AL 3 SEND HIGH BYTE 
0D36 «8A C3 MOV AL, BL 3 
0D38 «EG 12 OUT MFG_PORT+2,AL SEND LOW BYTE 
ODSA BA 0202 mov DX» JOY_PORT Ba duane 
OD3D EC 3 
ODSE 24 FO AND AL, OFOH ; ISOLATE BITS OF INTEREST 
0040 74 65 JZ MFG_OUT 3 MANUFACTURING MODE (BURN-IN) 
0D42 3¢ 10 CMP AL, 000100008 3 
0D46 «74 61 JE MFG_OUT 3 MFG. MODE (SYSTEM TEST) 
OD46 8A FO MOV DH, AL 3 SAVE MODE 
0D48 80 FF OA CMP BH, OAH 3 PRE-CRT ATTACHMENT TEST ERROR ? 
0048 72 72 JB BEEPS 3 YES-DO BEEP OUTPUT 
opsD 53 PUSH Bx 3 SAVE ERROR AND MODE FLAGS 
ODSE 56 PUSH 
Obs0 a HOV Ane? SET CURSOR 
B4 02 - ; 
0D52 BA 0801 MOV DX, 0801H 3 ROW 8, COL. 1 
0D55 87 09 MOV BH, 0 3; PAGE 0 
0D57 CD 10 INT INT_10 3 
0D59 BE 0059 R Mov SI1,OFFSET ERROR_ERR 
oDs¢ a9 0005 a MOV cX.5 ae 3 PRINT WORD “ERROR” 
2E: 8A 04 0: MoV AL,CS:CS 
0D62 46 INC SI 
0D63 £8 OFAL R CALL = PRT_NEX 
0D66 £2 F7 LOOP EM_6 
goose LOOK FOR A BLAHK SPACE TO POSSIBLY PUT CUSTOMER LEVEL ERRORS 
3 IN CASE OF MULTI ERROR) 
0068 B2 07 MoV DL,?7 3 SET CURSOR 
ODGA BG 02 EM_i: MOV AH, 2 3 ROW 8, COL 7 (OR ABOVE, IF 
OD6C B7 00 MOV BH, 0 3 MULTIPLE ERRORS) 
OD6E CD 10 INT INT_10 3 
aus Bs 08 hoy mi 3 READ CHARACTER THIS POSITION 
10 3 
0D74 «$C 47 CMP AL, 7G* 3 ERROR "G" ? 
0D76 74 06 JE EM_1_0 > YES- 
0D78 42 INC Dx 3 POINT TO NEXT POSTION 
0079 42 INC Dx ; 
OD7A 3c 20 cup AL,? * 3 BLANK? 
oo7C ~=75 EC JNE EM_1 3 GO CHECK NEXT POSITION, IF NOT 
sore ee EM_1_0: ad Dx 3 RECOVER ERROR POINTERS 
OD80 «5B PoP a 
ees ae a 20 cH DH. 001000008 3 SERVICE MODE? 
vC_OU 3 
0D86 80 FE 40 
Opes ae kG cnp Di, 619000008 i 
OD8B 2E: BA 04 Mov AL,CS:($1) 3 GET ERROR CHARACTER 
Te eae a CALL = PRT_HEX 3 DISPLAY IT 
Bova ve eo che BH, 20H 3 ERROR BELOW 20? (MEM TROUBLE?) 
4. 3 NO - 
OD96 EB OA JMP SHORT BP2 3; YES-HALT SYSTEM IF $0. 
0D98 =8A C7 SVC_OUT: MoV AL PR 
fi ; PRIKT MSB 
wee dee CALL -XPC BYTE 3 DISPLAY IT 
mov AL, BL 3 PRINT LSB 
OD9F E8 OF9O R CALL = XPC_BYTE 
ODA2 B2 02 : 
ODAS ES OFAB R we Oe DL 2 ep + 2 SHORT BEEPS 
00a7 MFG_oUT: . . 
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ODA? 
ODA8 
ODAA 
ODAC 
ODAE 
ODBO 
0DB2 
ODBS 


ODBS 


£8 OFE2 R 
88 SE 0018 R 


TOTLYPO:CLI 


BEEPS: CLI 


EBO: xOR 


EBL: MoV 


SUBROUTINE 


FIL 
ON ENTRY: 
Es 


DS 
cx 


ON EXIT: 
ZER 


Se ee a 


PODSTG rece 


READ. 


5 DISABLE INTS. 
AL, PORT_B + DISABLE SOUND 
AL, OFCH™ 3 
PORT_B,AL 3 
AL,AL 3 STOP DISKETTE MOTOR 
NEC_CTL.AL ; 
NMI_PORT,AL 3 DISABLE NMI 
3 HALT 


DS:XXDATA 
Ds 


SET ERROR FLAG NON-ZERO 


we 


ODx 
POST_ERR,BH 
os 


DS: NOTHING 
3 RETURN TO CALLER 

AX.CS 3 SET CODE SEG= STACK SEG 

SS,AX 3 (STACK IS LOST, BUT THINGS ARE 
3 OVER, ANYWAY) 

DL,2 3 2 BEEPS 

SP,OFFSET EX_0 ; SET DUMMY RETURN 

BL,1 3 SHORT BEEP 

BEEP 3 

CX,CX 3 WAIT (BEEP OFF) 

$ ; 

DL 3 DONE YET? 

EB 3 LOOP IF NOT 

BH, OSH 3 64K CARD ERROR? 

TOTLTPO 3 END IF NOT 

DH. oeLcoogos 3 SERVICE MODE? 

DH,01000000B 3 

TOTLTPO 3 END IF NOT 

BL,1 3 ONE MORE BEEP FOR 64K ERROR IF IN 

BEEP 3 SERVICE MODE (JUMP TO TOTLTPO) 


THIS ROUTINE PERFORMS A READ/WRITE TEST ON A BLOCK OF 
STORAGE (MAX. SIZE = 64KB). IF “WARM START”, FILL 
BLOCK WITH 0000 AND RETURN. 

DATA PATTERNS USED: 
O->FF ON ONE BYTE TO TEST DATA BUS 
AAAA,5555,00FF,FFOO FOR ALL WORDS 

L WITH 0000 BEFORE EXIT 


ADDRESS OF STORAGE TO BE TESTED 

ADDRESS OF STORAGE TO BE TESTED 

WORD COUNT OF STORAGE BLOCK TO BE TESTED 
(MAX. = 8000H (32K WORDS)) 


UME 


O FLAG = OFF IF STORAGE ERROR 
IF ZERO FLAG = OFF, THEN CX = XOR*ED BIT PATTERN 
OF THE EXPECTED DATA PATTERN VS. THE ACTUAL DATA 
(I.E... A BIT "ON" IN AL IS THE bIT IN ERROR) 
AH=03 IF BOTH BYTES OF WORD HAVE ERRORS 
AH=02 IF LOW CEVEN) BYTE HAS ERROR 
AH=01 IF HI (ODD) BYTE HAS ERROR 
AX,BX,CX,DX,DI,SI,BP ARE ALL DESTROYED. 


NEAR 
DS:ABS6 
3 SET DIRECTION TO INCREMENT 
Beers 3 SET DI=0000 REL. TO START OF SEG 
» 3 


Test DATA PATTERN FOR 00-FF 


DS,AX DS TO ABSO 
BX, “DATA WORDERESET. FLAGORS232 BASE) ; WARM START? 


DX, ES 
DS» DX 3 RESTORE DS 
sTOsH 3 SIMPLE FILL WITH © ON WARM-START 
DATA_WORDERESET_FLAG-RS232_BASE), BX 
DS,.DX 3 RESTORE Bs 
3 AND EXIT 
3BX,4321H 3 DIAG. RESTART? 
P12 3 DO FILL WITH ZE 
BX, 3412H 3 WARM START WITK” Re2szc EXT WRAP? 
Pi2 3 DO FILL WITH ZEROS 
Cor), at 3 WRITE TEST DATA 
At, CDI} 3 GET IT BACK 
ALAN 3 COMPARE TO EXPECTED 
AH,O 3 
P8 3 ERROR EXIT IF MISCOMPARE 
AH 3 FORM NEW DATA PATTERN 
AL, AH 3 
P2 3 LOOP TELL ALL 256 DATA PATTERNS 
3 
BP.CX 3 SAVE WORD COUNT 
AX. OAAAAH s LOAD DATA PATTERN 
BX,A 
DX, 05555H 3 LOAD OTHER DATA PATTERN 
STOSW } FILL WORDS FROM LOW TO HIGH 


WITH AAAA 


- 


A-243 





a i a a 


Appendix A. 


OEDA 


BA OOFF 
AD 

33 ¢3 
75 4c 
8B C2 
AaB 

E2 F6 
8B CD 
FD 


PS: 


peccee 


PX: 


P4: 


PS: 


P6: 
P72 


P8: 


PS: 


Plo: 
Pll: 


~ We we we we we we we Be OP we we we we 


ee we we we Be we 


toe we we we Be we we Be we we 


we ee we 


eee 


POINT TO LAST WORD WRITTEN 


SET DIRECTION FLAG TO GO DOWN 
SET INDEX REGS. EQUAL 
RECOVER WORD COUNT 
GO FROM HIGH TO LOW 
GET WORD FROM MEMORY 
EQUAL WHAT S/B_ THERE? 
GO ERROR EXIT IF NOT 
GET 55 DATA PATTERN 
STORE IT IN LOCATION JUST READ 
LOOP TILL ALL BYTES DONE 
RECOVER WORD COUNT 
BACK TO INCREMENT 
ADJUST PTRS 


S/7B DATA PATTERM TO BX 
NORMAL MODE ? 


YES-BYPASS OOFF & FFOO PATTERN TEST 


DATA FOR CHECKERBOARD PATTERN 
GET WORD FROM MEMORY 

EQUAL WHAT S/B THERE? 

GO ERROR EXIT IF NOT 

GET OTHER PATTERN 

STORE IT IN LOCATION JUST READ 
LOOP TILL ALL BYTES DONE 
RECOVER WORD COUNT 

DECREMENT 

ADJUST PTRS 


S7B DATA PATTERN TO BX 
MAKE PATTERN FFOO 
FIRST PASS? 


INCREMENT 


LOW TO HIGH 

GET A WORD 

SHOULD COMPARE TO DX 

GO ERROR IF NOT 

WRITE 0000 BACK TO LOCATION 

JUST READ 

LOOP TILL DONE 

BACK TO DECREMENT 

ADJUST POINTER DOWN TO LAST WORD 


SI 3 WRITTEN 
IN SERVICE/MFG MODES, IF SO, PERFORM REFRESH CHECK 


DEC DI 
DEC DI 
STD 
MOV SI,DI 
MOV cx, BP 
LODSW 
XOR AX, BX 
JNZ P38 
MOV AX, DX 
STOSW 
Loop) PS 
MOV cx, BP 
CLD 
INC SI 
INC $I 
MOV DI,SI 
MOV BX, DX 
MOV DX, JOY_PORT 
IN AL, DX 
MoV DX, BX 
AND AL, OFOH 
CMP AL,» OFOH 
JE P4 
MoV DX, OOFFH 
LODSW 
XOR AX, BX 
JNZ, PB 
MOV AX, DX 
STOSW 
Loop = PX 
MOV cx, BP 
STD 
DEC $I 
DEC SI 
MOV DI,SI 
MOV BX, DX 
NOT DX 
OR DL,DL 
JZ PX 
CLD 
ADD $I,4 
NOT DX 
MOV DI,SI 
MOV CX, BP 
LODSW 
XOR AX, DX 
JNZ Ps 
STOSW 
Loop P4 
STD 
DEC si 
DEC 
CHECK IF 
MOV DX, JOY_PORT 
IN AL, DX 
AND AL, OFOK 
CMP AL,OFOH 
JE P6 
IN AL,PORT_A 
TEST AL 010000008 


; 
3 
3 


> 
: 
> 


; GET OPTION BITS 


ALL BITS HIGH=NORMAL MODE 
RETENTION TEST REQ'ED 2 


J 6 3 NO - 
WAIT ABOUT 12 SECONDS WITHOUT ACCESSING MEMORY 
IF REFRESH IS NOT WORKING PROPERLY, THIS SHOULD 
BE ENOUGH TIME FOR SOME DATA TO GO SO 


MOV 
Loop 
DEC 
JNZ 


MOV 
LODSW 
0 


AL.49 
$ 

AL 

PS 


CX, BP 
AX, AX 
PB 
P7 
SHORT P11 
CX, AX 

AH, AH 
CH,CH 

P9 

AH 

CL,CL 

P10 


AH,2 
AH, AH 


; 


Oe we we we we we 


~ 


UR. 
SET OUTER LOOP COUNT 


RECOVER WORD COUNT 
GET WORD 

= TO 6000 

ERROR IF NOT 

LOOP TILL DONE 
THEN EXIT 


SAVE BITS IN ERROR 
HIGH BYTE ERROR? 
SET HIGH BYTE ERROR 
LOW BYTE ERROR? 


SET ZERO FLAG=0 (ERROR INDICATION 
SET DIR FLAG BACK TO INCREMENT 
RETURN TO CALLER 


3; SUBROUTINE 


; OPTIONAL ROM CHECK 
+ DESCRIPTION 


THIS ROUTINE CHECKS OPTIONAL ROM MODULES (CHECKSUM 

FOR MODULES FROM CO000->CFFFF, CRC CHECK FOR CARTRIDGES 
FROM DOOOO->F7FFF). 
IF CHECK IS OK, CALLS INIT/TEST CODE IN MODULE. 


MFG ERROR CODE = 25XX (XX=MSB OF SEGMENT IN ERROR) 


€ 





€ 











OFSS 


OFSS 
OFSS 
OFSS 


OFS9 
OFSB 
OF5SD 
OFSE 
OF60 
OFb2 


SA 
cs 


F9 AASS 


F9 SSAA 
FA DOOO 


0068 R 
F800 


45 
F6 
co 
Eo 
FA DOooO 
04 
Do 


OFSS 
28 


5 
26: C7 06 0014 R 6003 C 
26: 8C 1E 0016 R 
26: FF 1E 0014 8 


ROM_CHECK PROC = NEAR 
mov ax 3 
TEST AL, 100000008 + PCJR MODE ? 
JZ ROMCL 3 HO - 
cMP CX, OAASSH 3 ROM ID = AASSHCWORD) ? 
JHE ROMC2 5 HO - 
JMP SHORT ROMCS + YES- 
ROMC1: CMP CX, 55AAH 3 ROM ID = SSAAHCWORD) ? 
JE ROMC3 3 YES- 
ROMC2: CMP DX, 0D000H 3 OPTIONAL ROM AREA ? 
JB ROMCS 3 YES- 
MoV BL, DH , 
MoV BH, 2 
MOV SI, OFFSET THVC_| ERR ; INVALID CART. ERROR 
Mov Dx, 0F800H ; 
PUSH 
JMP SHORT ROM_CHECK_6 3 GOTO ERROR HANDLER 
hones: SUB SI,SI 3 SET SIT TO POINT TO BEGINNING 
+ CREL. TO DS) 
SUB AL, AL 3 ZERO OUT AL 
MoV AH, CBX#2) 3 GET LENGTH INDICATOR 
SHL AX, 3 FORM COUNT 
PUSH = AX 3 SAVE COUNT 
CMP DX, ODO0OH ; SEE IF POINTER IS BELOW DOOO 
PUSHF 3 SAVE RESULTS 
MOV CL. 3 ADJUST 
SHR AX, CL ; 
ADD DX, AX 3 SET POINTER TO NEXT MODULE 
POPF 3 RECOVER FLAGS FROM POINTER RANGE 
3 CHECK 
PoP cx 3 RECOVER COUNT IN CX REGISTER 
PUSH = DX 3 SAVE POINTER 
JB ROM_1 3 DO ARITHMETIC CHECKSUM IF BELOW 
3 DO000 
CALL = CRC_CHECK 3 DO CRC CHECK 
Jz ROM_CHECK_1 3 PROCEED IF OK 
JMP SHORT ROM_2 3 ELSE POST ERROR 
ROM_1: CALL ROS_CHECKSUM 3 DO ARITHMETIC CHECKSUM 
Jz ROM_CHECK_} 3 PROCEED IF OK 
ROM_2: MOV AH,2 
MOV BH, 0 3 PAGE 0 
mov DX, 081CH 3 POSITION CURSOR, ROW 8, COL 28 
INT INT_10 3 
MOV Dx, DS 3 RECOVER DATA SEG 
MOV AL, DH 3 
CALL = XPC_BYTE 3 DISPLAY MSB OF DATA SEG 
MOV BL, 3 FORM XX VALUE OF ERROR CODE 
MoV 3H,25H 3 FORM 25 PORTION 
CMP DH, O0D0H IN CARTRIDGE SPACE? 
MOV SLAOFFSET CART_ ERR 
JAE ROM_CHECK_ 
MoV SI, OFFSET ~ROM_ERR 
ROM_CHECK_9: 
CALL 3 GO ERROR ROUTINE 
JMP SHORT ROM_CHECK_END ; AND EXIT 
ROM_CHECK 1: 
MoV AX, XXDATA 3 SET ES TO POINT TO XXDATA AREA 
MoV ES,AX 3 
mov AX, BP 3 PCJR MODE 
TEST AL, 100000008 3 
JNZ ROM_CHECK_END_; - 
MOV ES: TO_ROM_ INIT, O003H 3 LOAD OFFSET 
MOV ES: I10_ROM_SEG, DS 3 LOAD SEGMENT 
CALL DWORD PTR ES: I0_ROM_ init” 3 CALL INIT./TEST ROUTINE 
ROM_CHECK_END: 
PoP Dx 3 RECOVER POINTER 
RET 3 RETURN TO CALLER 
ROM_CHECK ENDP 
SUBROUTINE 
RC CHECK/ GENERATION 
DESCRIP 10 


crc CHECK/ GENERATION ROUTINE ROUTINE 
TO CHECK A ROM MODULE USING a POLYNOMIMAL: 
X16 # X12 * X5 ¢ 
SALEANS PARAMETERS: 
DATA SEGMENT OF ROM SPACE TO BE CHECKED 


re = INDEX OFFSET INTO DS POINTING TO 1ST BYTE 
a en = LENGTH OF SPACE TO BE CHECKED CINCLUDING CRC BYTES) 
0 2 

ZERO FLAG = SET = CRC CHECKED OK 

AH = 00 

AL = 2? 






we We we we we Be we we we OF we we we OE Oe we OF Br OF we 


ee 
DX = 0000 IF CRC CHECKED OK, ELSE, ACCUMULATED CRC 
SI = CSICENTRY) ¢BXCENTRY) 
CRC_ CHECK PROC NEAR 
asst ME DS:NOTHING 
nov BX,CX 3 SAVE COUNT 
MOV DX, OFFFFH 3 INIT. ENCODE REGISTER 
cLD 3 SET DIR FLAG TO INCREMENT 
XOR AH. AH 3 INIT. WORK REG HIGH 
MOV CL.4 3 SET ROTATE COUNT 
CRC_1: LODSB 3 GET A BYTE 
= xOR DH.AL 3 FORM Aj # Cj #1 
MOV AL.DH 
ROL AX, CL 3 SHIFT WORK REG BACK 4 
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oF7C 50 
OF7D 1E 


OFJE BS ---- RK 
8E D8 
OF8S AO 0005 R 
OF86 £6 10 
FE C8 
OF8A AZ 0005 R 


OF8D IF 
OF8E 58 
OFsF CS 


OF90 «50 

OF91 Bl 04 

OF9S D2 E8 

OF95 E8 OFSBR 
58 


OF99 24 OF 


OFSB 04 90 
OF9D 27 


OFSE 14 40 


OFAL 53 

OFA2 Bd OE 
OFAS BB OOOF 
OFA? CD 10 


OFAA CS 


OFAB 
OFAB 9C 
OFAC 53 
OFAD FA 
OFAE 


XOR DX, AX 3 ADD INTO RESULT REG 
ROL AX, 1 3 SHIFT WORK REG BACK 1 
XCHG DH, DL 3 SWAP PARTIAL SUM INTO RESULT REG 
XOR DX, AX 3 ADD WORK REG INTO RESULTS 
ROR AX, CL : 3 SHIFT WORK REG OVER 4 
AND AL, 112000008 3 CLEAR OFF CEFGH) 
XOR DX, AX 3 ADD CABCD) INTO RESULT 
ROR AX, 1 } SHIFT WORK REG ON OVER: CAH=0 FOR 
3 NEXT PASS) 
XOR DH,AL 3 ADD CABCD INTO RESULTS LOW) 
DEC BX + DECREMENT COUNT 
INZ CRC_1 3 LOOP TILL COUNT = 0000 
OR px, Dx 3 DX S7B = 0000 IF O.K. 
R 3 RETURN TO CALLER 
CRC_CHECK ENDP 


Jac boc cee emen cree nen nanan nnn en enn eeene en eee nea teenenennenenwee 
3 SUBROUTINE 
; MFG CHECKPOINT HANDLER 

3 DESCRIPTION 

3 MFG CHECHPOINT DATA IS LOADED FROM SAVE AREA, DATA IS 
; DECREMENTED BY ONE, AND THEN SAVED. 


USH A 
PUSH D 
ASSUME DS:XXDATA 
MOV AX,XXDATA 
MoV DS,AXx 
MOV AL, MFG_TST 3 GET MFG CHECKPOINT 
Our MFG_PORT,AL 3 OUTPUT IT TO TESTER 
DEC AL + DROP IT BY 1 FOR THE NEXT TEST 
MOV MFG_TST,AL 
ASSUNE DS:ABSO 
PoP DS 
POP Ax 
RET 
MFG_UP END: 
SSUME CS:CODE,DS:DATA 
SUBROUTINE 


CONVERT AND PRINT ASCII CODE 


NOTE: AL MUST CONTAIN NUMBER TO BE CONVERTED. 
AX AND BX DESTROYED. 

XPC_BYTE PROC NEAR 
PUSH Ax SAVE FOR LOW NIBBLE DISPLAY 


MOV CL,4 3 SHIFT COUNT 
SHR AL,CL 3 NIBBLE SWAP 
CALL XLAT —PR 3 DO THE HIGH NIBBLE DISPLAY 
PoP 3 RECOVER THE NIBBLE 
AND AL, OFH 3 ISOLATE TO LOW NIBBLE 
> FALL INTO LOW NIBBLE CONVERSION 
XLAT_PR PROC NEAR 3 CONVERT 00-OF TO ASCII CHARACTER 
aDD AL,O90H 3 ADD FIRST CONVERSION FACTOR 
DAA ; a reue. FOR NUMERIC AND ALPHA 
3 RANG 
apc AL,040H ; ae AND ADJUST LOW 
; L 
DAA 3 ADJUST HIGH NIBBLE TO ASCII RANGE 
PRT_HEX PROC NEAR 
PUSH BX 
mov AH,14 3 DISPLAY CHARACTER IN AL 
MoV BX,15 3 CWHITE) 
INT INT_10 3 CALL VIDEO_IO 
POP BX 
RET 


PRT_HEX ENDP 

XLAT_PR ENDP 

xPC_BYTE ENDP 

pil 

3 SUBROUTINE 

3 BEEP ON ERROR 

3 DESCRIPTION 

3 THIS ROUTINE ISSUES SHORT TONES TO INDICATE FAILURES THAT 

3 1: OCCUR BEFORE THE CRT IS STARTED, 

; 2: TO CALL THE OPERATORS | ATTENTION TO AN ERROR 

3 AT THE END OF POST, 

; 3: TO SIGNAL THE SUCCESSFUL COMPLETION OF POST 

3 ENTRY PARAMETERS: 

3 DL = NUMBER OF APPROX. 172 SEC TONES TO SOUND 

pec eee wate teceun caste nena st cdeabocciaawaeceuseencnosesecsaseass 

ERR_BEEP PROC NEAR 
PUSHF 3 SAVE FLAGS 











OFAE 
OFBO 
OFBS 
OFBS 
OFB? 
OFB9 
OFBB 
OFBD 
OFBE 
OFBF 
oFCcO 


PUSH BX 

cLI 3 DISABLE SYSTEM INTERRUPTS 
G3: 3 SHORT_BEEP 

MOV BL.1 3 COUNTER FOR A SHORT BEEP 

CALL BEEP + DO THE SOUND 

LOOP $ > DELAY BETWEEN BEEPS 

DEC DL + DONE te SHORTS 

JNZ G3 3 DO SOME MORE 

eta : & LONG DELAY BEFORE RETURN 

3 

POP BX 3 RESTORE ORIG CONTENTS OF BX 

sig ; elk FLAGS TO ORIG SETTINGS 
ERR_ BEEP ENDP 3 RETURN TO CALLER 
+ SUBROUTINE 
3 SOUND BEEP 





wu 


B6 BEEP PROC NEAR 


43 mov AL, 101101108 3 SEL TIM 2,LS8,MSB,BINARY 
0533 ouT TIMER+3,AL 3; WRITE THE TIMER MODE REG 
42 Mov AX, 533H 3 DIVISOR FOR 1000 HZ 
C4 our TIMER*2,AL 3 WRITE TIMER 2 CNT - LSB 
42 mov AL,AH 
61 out TIMER+2,AL 3 WRITE TIMER 2 CNT - MSB 
E0 IN AL, PORT_B 3 GET CURRENT SETTING OF PORT 
03 MOV AH, AL 3 SAVE THAT SETTING 
61 OR AL,OS 3 TURN SPEAKER ON 
C9 ouT PORT_B,AL 
FE SUB cx, 3 SET CKT TO WAIT 500 MS 
CB G7: Loop ¢ 3 DELAY BEFORE ramies OFF 
FA DEC BL 3 DELAY CNT EXPI 
4 JINZ G7 3 NO - CONTINUE BEEPING sPK 
61 MOV LOA 3 RECOVER VALUE OF PORT 
ouT PORT_B,AL 
RET 3 RETURN TO CALLER 
BEEP ENDP —_ 
3 SUBROUTINE 
. ; SET DS TO POINT TO XXDATA SEGMENT teint ite 
DDX PROC HEAR 3 
bd USH Ax H 
Di R MOV AX, XXDATA 3 
8 mov DS,AX 3 
POP AX 3 
RET 3 
DDX ENDP 3 
Semaancucenonas ote tetwetecksocewctcoenceaseca wecen--- n= = 
3 SUBROUTINE 3 
; E KBD SCAN CODE ; 
3 DESCRIPTION 3 
. TO SAVE ANY SCAN CODE RECEIVED BY THE NMI ROUTINE 3 
3 {PASSED IN AL) DURING POST IN THE KEYBOARD BUFFER 3 
; ALLED THROUGH INT. 48H 3 
3 MFG ERROR CODE = 2000H 3 
KEY_SCAN_ SAVE PROC FAR 
ASS DS:DATA 
0000 E CALL DS 3 POINT DS TO DATA AREA 
0304 R MOV SI,OFFSET KB_BUFFER_J ; POINT TO FIRST LOC. IN BUFR 
04 MOV CSIJ,AL 3 SAVE SCAN CODE 
ce MOV AX, SP 3; CHECK FOR STACK UNDERFLOW 
E4 £0 AND AH, 121000008 3 (THESE BITS WILL BE 111 IF 
3 UNDERFLOW HAPPEND) 
oD JZ KS_1 
co XOR ALTAL 
Ao OUT NMI_PORT,AL 3 SHUT OFF WMI 
2000 MOV BX,2000H 3 ERROR CODE 2000K 
OOSE R MOV SI,OQFFSET KEY_ERR ; POST MESSAGE 
OD32 R CALL E_MSG 3 AND HALT SYSTEM 
3 RETURN TO CALLER 


IRET 
Key SCAN SAVE  ENDP 
susttt toco 


3 SUBROUTINE 
; PUT LOGO ON SCREEN 

3 DESCRIPTION 

3 THIS PROC DISPLAYS IBM LOGO, A MESSAGE, AND A COLOR BAR 
’ 


LOGO DISPLAY SUBROUT INE 





OW THE SCREEN 
RN Moi shi ol pee oa eee ee Sle ae coe Saeed 
LINENO EQU 2 3 LINE NUMBER OF ONE ROW 
BACKROW equ 140 s UPPER LIMIT ROW OF BLUE BACK SCREEN 
LocosRon EQU 106 ; LOGO START ROW POSITION 
LOGOSCOL EQU 216 ; LOGO START COLUMN POSITION 
START_ADDR EQU LOGOSROWN160/4+LOGOSCOL72 ; REGEN OFFSET ADDR 
WHITE_BOX1 EQU 9874 5-2: BYTE CODE OF WHITE BOX 
BLUE EQU 1 } COLOR CODE OF BLUE 
WHITE EQU 15 3 COLOR CODE OF WHITE 
EOL EQU OFFH —s:_: END OF LINE 
EOF EQU OFFH 3: END OF FILE 
VSETCSR EQU o2n ; REQUEST SET CURSOR POSITION 
VWRTDOT EQU 0cH ; REQUEST WRITE DOT 
VURTTTY EQU OEn 3 REQUEST WRITE TTY 
PUT_LOGO PROC NEAR 
PUSH. AX 3 SAVE AX, BX & CX 
PUSH BX i 
PUSH CX 3 
wasy Mov AX. 0029H + CLEAR SCREEN (GRAPHIC MODE) 
a INT INT_10 3 (MODE: 320 X 200 - COLOR) 
HOV AKI 5 ERASE CURSOR 
ot MOV CX,2000H ; 
sine INT INT_10 ; 
mi XOR BxBX + DISABLE SCREEN 
0: MOV AX, ; 
1900 LOGOe TAT INT_10 i 
10 INC BX ; 
cHP BL. 16 ; 
. 10 JB LOGO 3 
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jesse ROUND SCREEN ¢ 
° PROV ae T REGEN. START ; SET REGEN BUFFER ADDRESS 
Hae ad Hoy ESeS! eee 
1028 88 1121 mov AX, BLUEN1O00H OR BLUEM100H OR BLUEM10H OR BLUE 
XOR + START ROW/COLUMN IS 070 
1030 3 tAFO MOV ex: * BACKROWNS20/2/2743 2 PEL/BYTE,2 WORD/BYTE,4¢ SCAN 
c 
1030 B6 04 vaste i es ‘ SCAN COUNT IN REGEN 
1032 (3% PUSH = CX 3 
10350 31 REP STOSW 3 WRITE BLUE CX WORD 
1034 F37 AB POP cx ; 
1036 59 oop DI : 
1037) SF ADD DI.2000H i 
dash BL gy aeee a Pao 
103E 75 F2 INZ LoGol 3 
os WRITE COLOR BAR 
1060 32 FF BH. BH ; 
1042 BA 0900 HOV DX,0900H 3 SET ROW/COLUMN POSITION TO 9-0 
1045 B4 02 LoGo2: mov AN, VSETCSR 3 SET CURSOR POSITION 
) ie ; : 
a a Mov BL, BLUE ; SET START COLOR AS BLUE 
1048 BS OE LOGOS: MOV AH, VARTTTY 3 
104D BO 8 nov SL enuae WHITE_BOX1 5 
’ 
105 be 0c MOV AH, VARTTTY 3 
1053 Be a nov AL. LOH WHITE_BOX1 ; 
. \ 
1037 Fe CS INC BL 3 SET NEXT COLOR 
1059 80 FB 10 che BLs16 3 ALL COLOR WRITEN ? 
osc 72 ED ’ 
1Ose FE C8 INC DH 3 NEXT ROW 
1060 80 FE OA cme DH, OAH ; 
1063 76 £0 JBE LoGo2 3 
goon WRITE IBM PATTERN 
1065 BB 10C8 R MOV BX,OFFSET IBM  ; POINT DATA AREA 
1068 BA 006A MOV DX, LOGOSROW 3 GET START ROW OF LOGO 
1063 B9 00DS LOGO4: MOV Cx, LOGOSCOL 3 GET START COLUMN OF LOGO 
106E 2E: 8A 07 LOGOS: MOV AL, CS: (BX) + GET DATA FOR WHITE PART COLUMN NBR 
wes ar tits ; Heetetery 8 ¢ 
1073 74 16 ; 
1075 52 LOGO6: PUSH DX 3 SAVE CURRENT ROW POSITION 
1076 B4 02 MOV AH, LINENO 3 SET LINE NUMBER 
1078 50 L0GO7: PUSH AX ; SAVE FOR COUNT 
1079 B4 OC MOV AH, VWRTDOT 3 WRITE DOT 
1078 BO OF MOV AL, WHITE ; DOT COLOR IS BLUE 
107D CD 10 INT INT_10 ; 
107F 42 INC Dx 3 NEXT ROW 
Hie me 
3 
1083 75 FS JNZ L0GO7 ; REPEAT FOR ALL LINE IN ROW 
1085 SA PoP Dx 3 RETORE CURRENT ROW POSITION 
1086 41 INC cx 3 NEXT COLUMN 
1087 FE C8 DEC AL 3 ALL DOT WRITE ? 
1089 75 EA JNZ LOG06 3 NO 
1088 43 LOGO8: INC BX 3 
108C 2E: 8A 07 MOV AL,CS:{BX) 3 GET DATA FOR BLUE PART COLUMN NBR 
108F 3C FF CHP AL, EOL 3 END OF COLUMN ? 
1091 75 0¢ JNE LOGO9 3 NO, CONTINUE 
1095 43 INC Bx 3 GET NEXT DATA 
1096 2E: 80 SF FF cMP BYTE | PTR CS:(BX],E0F ; ALL END ? 
1098 74 OB JE Lo > YES, EXIT 
109A 83 C2 04 ADD DX, LINENON2 3 SET NEXT ROW, TIMES 2 
3 BECAUSE SKIP BLUE LOW 
109D EB CC JMP SHORT LOGOS 3 REPEAT FROM START 
109F 98 LOGO9: CBW 3 CONVERT TO WORD 
10a0 03 C8 ADD CX, AX 3 ADD TO SKIP BLUE PART 
10A2 45 INC BX 3 NEXT DATA 
10A3 EB C9 JMP SHORT LOGOS ; 
proo-- ROUND ‘B® 
ae 1. Locoio: PusH os 3 SAVE DS 
1047 1F POP DS ; SET REGEN ADDR To DS FOR QUICK ADDR 
1048 BO 11 MoV AL,BLUEM1OH OR BLUE 3 SET OR 
VOAA A2 " 
sean. See DB OAH i MOV (50C4),AL 
10AD A2 
1OAE $166 be QA2H MOV (5166],AL 
Tent nes DB Daz p MOV [53453,AL 
10 
lope 3345 or Joa s MOV (72A5),AL 
3 
10B6 A2 
DB OA2H MoV A 
10B7 7486 Dw 7486H : (7486],AL 


A-248 


10B9 a2 
10BA 7524 DB OA2H 3 MOV (7524),AL 
10BC 1F DW 7524H 5 
Poaeeern a4 os 3 RESTORE DS 
103D 88 0 
10¢0 B7 Hie noy AX. OB00H 3 ENABLE SCREEN 
oc2 D > 
oe INT INT_10 3 
10¢4 
105 33 eae cy 3 RESTORE AX, BX & CX 
3 
loce «58 hay * 
ae? RET ; RETURN TO CALLER 
$o---- DATA STRUCTURE 
4 DATA HAVE NUMBER OF PIXEL, FITST BYTE HAS LENGTH OF WHITE 
10¢8 ; PART, SECOND BYTE HAS LENGTH OF BLUE PART 
18M LABEL BYTE P 
pReeSssscsaasssSo-- I ------- wenn- Bonner en nnn --r- sosaass =r" 
; WwBwW B weBWwW B wBwW Bw 
AAS ED Ge AB 8 en : DB 20, 5, 27, 7, 14,13, 14, EOL 
mene ee te a DB 20, 5, 30, 4, 16, 9% 16, EOL 
10D8 00 06 08 10 08 08 > 9 13, 513. EOL 
a5 09 a0 G5. 0 Fe DB 0, 6, 8,16, 8 8 9 9 - 
10&4 id HA & 10 17 0B DB 0, 6, 8,16, 23, 11, 15, 1,15, EOL 
OEE 00 06 08 10 17 OB ‘ : 3 ll, 8, 1,13, 1. 8 EOL 
a 08 a4 0D a ae DB 0, 6, 8,16 23, : 9 ee 
0 08 08 29 8 3,9 
09 09 08 03 09 03 DB 0, 6, 8,16, 8, 8s 9. FY o 9s So Se 
1108 14 05 1E 04 0D 05 DB 20, 5, 39, 4 13, 5» Se 513, EOL 
05 05 OD FF 
1112.) 16 05 1B 07 OD 07 DB 20, 5, 27, 7, 13, 7/ 1, 7513, EOL 
01 07 OD FF 
1l1C) OFF OF 
111D PUT_LOGO PeNDP ae 
3 SUBROUTINE 
; phSrNcuRonous COMMUNICATIONS ADAPTER POWER ON DIAGNOSTIC TEST 
3 DESC 
; THIS SUBROUTINE PERFORMS A THOROUGH CHECK OUT OF AN INS8250 
CHI 


THE TEST INCLUDES: 
1) INITIALIZATION OF THE CHIP TO ASSUME ITS MASTER RESET STATE. 
2) READING REGISTERS FOR KNOWN PERMANENT ZERO BITS. 
3) TESTING THE INS8250 INTERRUPT SYSTEM AND THAT THE 825 
INTERRUPTS TRIGGER AN 8259 CINTERRUPT CONTROLLER) INTERRUPT. 
4) PERFORMING THE LOOP BACK TEST: 
A) TESTING WHAT WAS WRITTEN/READ AND THAT THE TRANSMITTER 
pita Sd REG EMPTY BIT AND THE RECEIVER INTERRUPT WORK 
ROP Y. 
8B) TESTING IF CERTAIN BITS OF THE DATA SET CONTROL REGISTER 
ARE aad BACK' TO THOSE IN THE DATA SET STATUS 
REGIS 
C) TESTING THAT THE TRANSMITTER IS IDLE WHEN TRANSMISSION 
TEST IS FINISHED. 
THIS SUBROUTINE EXPECTS TO HAVE THE FOLLOWING PARAMETER PASSED: 
(DX)= ADDRESS OF THE INS8250 CARD TO TEST. 
NOTE: THE ASSUMPTION HAS BEEN MADE THAT THE MODEM ADAPTER IS 
---- LOCATED AT OSF8H; THE SERIAL PRINTER AT O2F8H. 
IT RETURNS: 
(CF) 1 IF ANY PORTION OF THE TEST FAILED 
Q IF TEST PASSED 


(BX) FAILURE KEY FOR ERROR MESSAGE CONLY VALID - TEST FAILED) 
(BH) = 23H SERIAL PRINTER ADAPTER ae FAILUR 
sins = 24H MODEM ADAPTER TEST FAILU! 
BL) = 


02H PERMANENT ZERO BITS IN INTERRUPT ENABLE REGISTER 
WERE INCORRECT 
OSH PERMANENT ZERO BITS IN INTERRUPT IDENTIFICATION 
REGISTER WERE INCORRECT 
04H PERMANENT ZERO BITS IN DATA SET CONTROL REGISTER 
WERE INCORRECT 
O5H PERMANENT ZERO BITS IN THE LINE STATUS REGISTER 
WERE INCORRECT 
O6H RECEIVED DATA AVAILABLE INTERRUPT TEST FAILED 
(THE INTERRUPT WAS NOT GENERATED) 
O7H RESERVED FOR REPORTING THE TRANSMITTER HOLDING 
REGISTER EMPTY INTERRUPT TEST FAILED 
CNOT USED AT THIS TIME BECAUSE OF THE DIFFERENCES 
BETWEEN THE 8250'S WHICH WILL BE USED) 
OQO8H-OBH RECEIVER LINE STATUS INTERRUPT TEST FAILED 
(THE INTERRUPT WAS NOT GENERATED) 
O8H - OVERRUN ERROR 
O9H - PARITY ERROR 
QAH - FRAMING ERROR 
OBH - BREAK INTERRUPT ERROR 
OCH-OFH MODEM STATUS INTERRUPT TEST FAILED 
CTHE INTERRUPT WAS NOT GENERATED) 


OCH - DELTA CLEAR TO SEND ERROR 

ODH - DELTA DATA SET READY ERROR 

QEH - TRAILING EDGE RING INDICATOR ERROR 

OFH - DELTA RECEIVE LINE SIGNAL DETECT ERROR 
10H AN 8250 INTERRUPT OCCURRED AS EXPECTED, BUT NO 

8259 CINTR CONTROLLER) INTERRUPT WAS GENERATED 
11H DURING THE TRANSMISSION TEST, THE TRANSMITTER 

Pa WAS NOT EMPTY WHEN IT SHOULD 

HA 5 


ee Be we we we we we we we we Bee we We we we we we Be we we we Be we BE EEE WE Ue we OF we Wee Be we we we we we we ve 
ee we we we we - ~ ~ ee wee 


wee we we we we we we we we 
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112A €8 
11l2F OEY 


116D E8 12D6 R 


1170 FE 
1172) (GA 


21 
ol 


oo0e E 


1280 R 
05 
1251 R 


0069 R 
F 


FE 02 
02 


12D6 R® 


cs 


12FA R 
303 


124E R 


cs 


Re Se we Be we we we we we Be we we Os ws we we we we we 


12H DURING THE TRANSMISSION TEST, THE RECEIVED DATA 
AVAILABLE INTERRUPT DIDN'T OCCUR. 
13H TRANSMISSION ERROR - THE CHARACTER RECEIVED 
DURING LOOP MODE WAS NOT THE SAME AS THE ONE 
TRANSMITTED 
14H DURING TRANSMISSION TEST, THE 4 DATA ae CONTROL 
OUTPUTS WERE NOT THE SAME AS THE 4 DATA 
CONTROL INPUTS. 
15H THE TRANSMITTER WAS NOT IDLE AFTER THE TRANS~ 
MISSION TEST COMPLETED. 
16H RECEIVED DATA AVAILABLE INTERRUPT FAILED TO CLEAR 
17H TRANSMITTER HOLDING REG EMPTY INTR FAILED TO CLEAR 
18H-1BH RECEIVER LINE STATUS INTERRUPT FAILED TO CLEAR 
1CH-1FH MODEM STATUS INTERRUPT FAILED TO CLEAR 


ON EXIT 


= THE MODEM OR SERIAL PRINTER'S 8259 INTERRUPT (WHICHEVER 
DEVICE WAS TESTED) IS DISABLED. 
- THE 8250 IS IN THE MASTER RESET STATE. 


ONLY THE DS REGISTER 1S PRESERVED - ALL OTHERS ARE ALTERED. 


EQU 84H 3 LOOP BACK TRANSMISSION TEST 
3 INTERRUPT VECTOR ADDRESS 


ASSUME CS:CODE,DS:DATA 
NEAR 


PROC 

PUSH DS 

IN AL, INTAOL ; CURRENT ENABLED INTERRUPTS 

PUSH AX ; SAVE FOR EXIT 

OR AL,oo000001B DISABLE TIMER INTR DURING THIS 

out INTAOL,AL 

PUSHF ; SAVE CALLER'S FLAGS (SAVE INTR 
3 A 

PUSH DX 3} SAVE BASE ADDRESS OF ADAPTER CARD 

CALL ODDS i SET UP TDATAY AS DATA SEGMENT 
; ADDRESS 


INITIALIZE PORTS FOR MASTER RESET STATES AND TEST PERMANENT 
ZERO DATA BITS FOR CERTAIN PORTS. 


INS8250 INTERRUPT SYSTEM TEST 
ONLY THE INTERRUPT BEING TESTED WILL BE ENABLED. 


AT2: 


SET DI AND SI FOR CALLS TO ‘SUI* 


MoV DI,OFFSET IMASKS ; BASE ADDRESS OF INTERRUPT MASKS 
xOR SI,SI 3 MODEM INDEX 
CMP DH.2 3 OR SERIAL? 
JNE aT2 3 NO - IT'S MODEM 
INC SI 3 IT°S SERIAL PRINTER 
INC DI 3 SERIAL PRINTER 8259 MASK ADDRESS 
RECEIVED DATA AVAILABLE INTERRUPT TEST 
CALL Sur + SET UP FOR INTERRUPTS 
INC BL 3 ERROR REPORTER CINIT. IN 18250) 
INC Dx 3 POINT TO INTERRUPT ENABLE 
3 REGISTER 
MOV Al,i 3 ENABLE RECEIVED DATA AVAILABLE 
3 INTR 
ouT DX,AL 
PUSH BX 3 SAVE ERROR REPORTER 
adD DX,4 3 POINT TO LINE STATUS REGISTER 
MoV AH,1 3 SET RECEIVER DATA READY BIT 
MOV BX,0400H 3 INTR TO CHECK, INTR IDENTIFIER 
MoV cX,3 3 INTERRUPT ID REG ‘INDEX’ 
CALL Ict 3 PERFORM TEST FOR INTERRUPT 
PoP Bx 3 RESTORE ERROR INDICATOR 
CMP AL,OFFH 3 INTERRUPT ERROR OCCUR? 
JE AT4 > YES 
CALL C5059 3 GENERATE 8259 INTERRUPT? 
Jc AT5 3 NO 
DEC Dx 
DEC DX 3 RESET INTR BY READING RECR BUFR 
IN AL,DX 3 DON'T CARE ABOUT THE CONTENTS! 
INC Dx 
IWC Dx 3 INTR ID RE 
CALL W8250C 3 WAIT FOR TNTR TO CLEAR 
JNC ATS 3 OK 
JMP AT1S 3 DIDN'T CLEAR 


baal HOLDING REGISTER EMPTY INTERRUPT TEST 


5S TEST HAS BEEN MODIFIED BECAUSE THE DIFFERENT 8250'S 
THAT MAY BE USED IN PRODUCING THIS PRODUCT DO NOT FUNCTION 
THE SAME DURING THE STANDARD TEST OF THIS INTERRUPT 
(STANDARD BEING THE SAME METHOD FOR TESTING THE OTHER 
POSSIBLE 8250 INTERRUPTS). IT IS STILL VALID FOR TESTING 
IF AN 8259 INTERRUPT IS GENERATED IN RESPONSE TO THE 8250 
INTERRUPT AND THAT THE 8250 INTERRUPT CLEARS AS IT SHOULD. 


IF THE TRANSMITTER HOLDING REGISTER EMPTY INTERRUPT IS NOT 
GENERATED WHEN THAY INTERRUPT IS ENABLED, IT IS NOT TREATED 
AS AN ERROR. HOWEVER, IF THE INTERRUPT IS GENERATED, IT 
aie ie AN 8259 INTERRUPT AND CLEAR PROPERLY TO PASS 


CALL SUI 3 SET UP FOR INTERRUPTS 

INC BL + BUMP ERROR REPORTER 

DEC Ox 3 POINT YO INTERRUPT ENABLE 
3 REGISTER 
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02 ATS1i: 


12E7 R ATS2: 
OB 


12FA R 


08 

126E R 
1215 R 
70 ATS: 


RECEI 


04 


C2 04 
0003 
0004 


12D6 R 
c3 


0601 
12B4 R 


AT?: 


C4 


5D 
12E7 R 
56 
Ea 03 
12FA R 


os 
124E R 
AT7_0: 


E 
C2 03 
DS 


ee we we we we we we we Be Oe 


poerrm errs esses ra - 


c2 04 AT8: 


00 

EA 05 
08 

c2 05 
0004 
0004 
01 
12D6 R AT9: 
cs 


0001 
1284 R 


OF 


12E7 R 


EA 04 
12FA R 
45 


OB 
e4 


Mov AL.2 5 ENABLE XMITTER HOLDING REG EMPTY 
3; INTR 

our DX, AL 

JMP $42 1} 170 DELA 

INC DX + INTR CEL ENTIFICATION REG 

in hu, Dx READ IT 

A 3 
cue *2 + XMITTER HOLDING REG EMPTY INTR? 
Sy ee i 
1 

mp SHORT AT6 ; THE INTR DIDN*T OCCUR - TRY NEXT 
; TEST 
; THE INTR DID OCCUR 

CALL 65059 i; GENERATE 8259 INTERRUPT? 

ATS 3 

ZaLL | UWB250C i GAIT FOR THE INTERRUPT TO CLEAR 
* CIT SHOULD ALREADY BE CLEAR 
, RECAUSE ‘ICT’ READ THE INTR ID 
3 REG) 

JNC ATS ; IT CLEARED 

MP ATL 3 ERROR 

UMP ATLL + AVOID OUT OF RANGE JUMPS 

MP SHORT AT10 


Ve epee STATUS INTERRUPT TEST 
E ARE 4 BITS WHICH COULD GENERATE THIS INTERRUPT. 
EACH “ONE IS TESTED Ct aaalaaaeat 


WHEN: A TEST 

2 OVERRUN 

4 PARITY 

8 FRAMING 

10H BREAK INTR te 
DEC Dx 3 POINT BS INTERRUPT ENABLE 

3 REGIST 

mov AL.4 ; ENABLE RECEIVER LINE STATUS INTR 
ouT DX, AL 
ADD DX,4 ; POINT TO LINE STATUS REGISTER 
nov CX,3 3 INTR ID REO *INDEX® 
mov BP,4 3; LOOP COUNTE 
MOV AH,2 3 INITIAL BIT 80 BE TESTED 
CALL SUI 3 SET UP FOR INTERRUPTS 
INC BL 3 BUMP ERROR REPORTER 
PUSH BX 3 SAVE IT 
MoV BX, 0601H ; INTR TO CHECK, INTR_ IDENTIFIER 
CALL 1cT 3 PERFORM TEST FOR INTERRUPT 
PoP Bx 
AND AL, OOO122108 3 MASK OUT BITS THAT DON'T MATTER 
CMP ALLAH 3 TEST BIT ON? 
JNE aT. 3 NO 
CALL C5059 3; GENERATE 8259 INTERRUPT? 
JC AT10 3 NO 
SUB DX,3 3 INTR ID REG 
CALL wW8250C 3; WAIT FOR THE INTR TO CLEAR 
INC AT7_0 3 OK 
JMP avis 3 IT DIDN'T 
DEC BP ; ALL FOUR BITS TESTED? 
JE AT8 3; YES - GO ON TO NEXT TEST 
SKL AH,1 3 GET READY FOR NEXT BIT 
ADD Dx. 3 3 LINE STATUS REGISTER 
SMP aq7 3 TEST NEXT BIT 


STATUS INTERRUPT TEST 

THERE ARE & BITS WHICH COULD GENERATE THIS INTERRUPT. 
THEY ARE TESTED INDIVIDUALLY. 
WHEN: TESTING 





A 
1 DELTA CLEAR TO SEND 
2 DELTA DATA SET READY 
4 TRAILING EDGE RING INDICATOR 
8 DELTA RECEIVE LINE SIGNAL DETECT 
DX,4 ; “MODEM STATUS REGISTER 
AL,DX ; CLEAR DELTA BITS THAT MAY BE ON 
3 BECAUSE OF DIFFERENCES AMONG 
3 8250'S. 
6+2 3 170 DELAY 
DxX.5 3 INTERRUPT ENABLE REGISTER 
ey > ENABLE MODEM STATUS INTERRUPT 
DX,5 3 POINT TO MODEM STATUS REGISTER 
CX.4 3 INTR ID REG *INDEX* 
be.4 > LOOP COUNTER 
AH, 3 INITIAL BIT TO BE TESTED 
sul 3 SET UP FOR INTERRUPTS 
BL + BUMP ERROR INDICATOR 
Bx 3 SAVE IT 
BX.0001H 3 INTR TO CHECK, INTR IDENTIFIER 
Ay 3 PERFORM TEST FOR INTERRUPT 
AL, OQOOLLIIB 3 MASK OUT BITS THAT DON'T MATTER 
ALLA + TEST BIT ON? 
ATLL + NO 
C5059 3 GENERATE 8259 INTERRUPT? 
aT10 + NO 
0x.4 3 INTR ID REG 
W8250C 3 WAIT FOR INTERRUPT TO CLEAR 
a 3 IT DION'T 
ATIi2 3 ALL FOUR BITS TESTED - GO ON 
AH,1 3; GET READY FOR NEXT BIT 
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120E 
1211 


1215 
1215 


1251 


83 C2 04 


EB D6 


BS 10 
EB SA 


42 
£8 L1S0A R 


83 C2 
Ec 


EB 00 
oc 10 


Bi 01 


SA 


53 

E8 1280 R 

5B 

2E: 8A 25 

20 26 0084 R 


80 F4 


04 


FF 


02 





ADD DX» 4 s MODEM STATUS REGISTER 
JMP aT9 ; TEST NEXT BIT 
; POSSIBLE 8259 INTERRUPT CONTROLLER PROBLEM 
AT10: MOV L,10H + SET ERROR REPORTER 
AT11:  JMP SHORT AT14 
; SET 9600 BAUD RATE AND DEFINE DATA WORD AS HAVING 8 
; BITS/WORD, 2 STOP BITS, AND ODD PARITY. 
AT12: INC DX 3 LINE CONTROL REGISTER 
CALL = $8250 
pene ee ee cnn een ee ence ceen ee nnnnnee anne nn enn nanan neenn nena nnn a 
; SET DATA SET CONTROL WORD TO BE IN LOOP MODE 
Bann cane ence cece enna eee nee n enn e tan nen ennnnnenennnn 
ADD DX, 4 
IN AL, DX 3 CURRENT STATE 
JMP $42 + 170 DELAY 
OR AL,000100008 =; SET BIT 4 OF DATA SET CONTROL REG 
out DX, AL 
JMP $42 s 170 DELAY 
INC DX 
INC DX 3 MODEM STATUS REG 
IN AL, DX 3 CLEAR POSSIBLE MODEM STATUS 
3 INTERRUPT WHICH COULD BE CAUSED 
3; BY THE OUTPUT BITS BEING LOOPED 
3 TO THE INPUT BITS 
JMP $42 3 170 DELAY 
SUB DX.6 + RECEIVER BUFFER 
IN AL, DX ; DUMMY READ TO CLEAR DATA READY 
; BIT IF IT WENT HIGH ON WRITE TO 
3 MCR 
peeenennen nnn ween nen n nena nn nnn een n eee e een n nnn n nnn e ne nn nnn nnnee 
; PERFORM THE LOOP BACK TEST 
3 me we we we we oo we we we FS SS 
INC Dx + INTR ENBL REG 
PUSH = DX 3 
MoV DX, JOY_PORT 3 
IN AL, DX 3 
AND AL, OFOH 3 
cMP AL,00100000B =; SERVICE MODE LOOP? 
POP Dx 3 
JE AT13_0 3 YES- 
Mov AX,RESET_FLAG i; 
cMP AX, 3412H 3 WARM START WITH "CTRL¢ALT#INS™? 
MOV AL, ; SET FOR INTERNAL WRAP TEST 
JRE ATL3_1 3 YES- 
ATL3_0: MOV AL, OFFH ; SET FOR EXTERNAL WRAP TEST 
ATI3_1: INT WRAP 3 DO LOOP BACK TRANSMISSION TEST 
MoV cL, 0 3 ASSUME NO ERRORS 
JNC ATL5 3 WRAP TEST PASSED 
AT13: ADD BL, 10H 3 ERROR INDICATOR 
; AN ERROR WAS ENCOUNTERED SOMEWHERE DURING THE TEST 
ATI4: MOV CL. 3 SET FAIL INDICATOR 
Meant nnnenneeceteneee enn nenn anne nnn nnn n nnn nner een esanwaneenscee a 
3 HOUSEKEEPING: RE-INITIALIZE THE 8250 PORTS (THE LOOP BIT 
i WILL BE RESET), DISABLE THIS DEVICE INTERRUPT, SET UP 
3 REGISTER BH IF AN ERROR OCCURRED, AND SET OR RESET THE 
3 CARRY FLAG. 
AT15S: POP DX + GET BASE ADDRESS OF 8250 ADAPTER 
PUSH =—-_BX 3 SAVE ERROR CODE 
caLt 18250 3 RE-INITIALIZE 8250 PORTS 
PO 
mov AH, CS:(DIJ 3 GET DEVICE INTERRUPT MASK 
AND INTR_FLAGPAH 3. CLEAR DEVICE'S INTERRUPT FLAG BIT 
XxOR AH, OFFH 3 FLIP BITS 
IN AL, INTAQL ; GET CURRENT INTERRUPT PORT 
OR AL, AH 3 DISABLE THIS DEVICE INTERRUPT 
OUT INTAOL,AL 
POPF i RE-ESTABLISH CALLER'S INTERRUPT 
3 FL 
OR CL, ct 3; ANY ERRORS? 
JE ATL? 3 MO 
MOV BH, 24H ; ASSUME MODEM ERROR 
CMP DH, 2 3 OR IS IT SERIAL? 
JNE AT16 3 IT'S MODEM 
Mov BH, 23H 3 IT'S SERIAL PRINTER 
AT16: STC 3 SET CARRY FLAG TO INDICATE ERROR 
JMP SHORT AT18 
AT17: CLE ; RESET CARRY FLAG - NO ERRORS 
AT18: POP ax ; RESTORE ENTRY ENABLED INTERRUPTS 
our INTAOL,AL } DEVICE INTRS RE-ESTABLISHED 
POP DS 3 RESTORE REGISTER 


Jere eee ce nn nnn nnn wen nnn ene een nn nnn nn nnn nnn nnn een rernne 
+ SUBROUTINE 

; INITIALIZE INS8250 PORTS TO THE MASTER RESET STATUS. 

3 THIS ROUTINE ALSO TESTS THE PORTS’ PERMANENT ZERO BITS. 

3 EXPECTS TO BE PASSED: 

; DX) = ADDRESS OF THE 8250 TRANSMIT/RECEIVE BUFFER 


3 ¢ 

+ UPON RETURN: 

5 (CF) = 1 IF ONE OF THE PORTS" PERMANENT ZERO BITS WAS NOT 
; ZERO CERR) 

; DX) = PORT ADDRESS THAT FAILED TEST 

; CAL) = MEANINGLESS 

‘ = 2 INTR ENBL REG BITS NOT 0 
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a 


we we we we te we 


6 ee we we we we we we we we we 


3 INTR ID REG BITS NOT 0 
4 MODEM CTRL REG BITS NOT 0 
5 LINE STAT REG BITS HOT 


ann 


FA 
DX) 
au) 


XF9 - INTR ENBL REG 
XFA - INTR ID REG 

XFB - LINE CTRL REG 
XFC - MODEM CTRL REG 
XFD - LINE STAT REG 


0 
LL PORTS" PERMANENT ZERO BITS WERE ZERO 
= TRANSMIT/RECEIVE BUFFER ADDRESS 
= LAST VALUE READ FROM RECEIVER BUFFER 


BL) 5 (MEANINGLESS) 
PORTS SET UP AS FOLLOWS 


N ROR-FREE RETURN: 

Q ee ALL INTERRUPTS DISABLED 
00000001B NO INTERRUPTS PENDING 

0 ALL BITS LOW 

0 ALL BITS LOW 

01100000B TRANSMITTER HOLDING 
REGISTER AND TRANSMITTER EMPTY ON 


XFE - MODEM STAT REG = XXXX0000B8 WHERE X 'S REPRESENT 


3 REGISTERS DX, AL, AND BL ARE ALTERED. 


INPUT SIGHALS 
HO OTHER REGISTERS USED. 


18250 PROC WEAR 

EC IN AL, DX 3 READ RECVR BUFFER BUT IGNORE 
B3 0 3 CONTENTS 

H 2 MOV BL.2 3 ERROR INDICATOR 

ee pore CALL 2 ; READ INTR EHBL REG 

4 FO AND AL,12110000B 3 BITS 4-7 OFF? 

73 28 JHE AT20 3 NO - ERROR 

E& 1329 R CALL RR1 > READ INTR ID REG 

24 F8 AND AL, 111220008 3 BITS 3-7 OFF? 

75 2k INE AT20 3 NO 

42 INC Dx 3 LINE CTRL REG 

E8 1329 R CALL RR1 ; READ MODEM CTRL REG 

24 E06 AND AL,12100000B 3 BITS 5-7 OFF? 

75.19 JNE aT20 3 NO 

E38 1329 R CALL RR1 3 READ LINE STAT REG 

26 80 AND AL, 100000008 3 BIT 7 OFF? 

75 12 JNE AT20 3 NO 

BO 60 MOV AL, 60H 

ce out DX,AL 

EB 00 JMP $42 3 170 DELAY 

42 INC Dx 3 MODEM STAT REG 

32 CO XOR AL. AL 

EE OUT DX, AL + WIRED BITS WILL BE HIGH 

E8 132F R CALL RRS 3 CLEAR BITS 0-3 IN CASE THEY'RE ON 

3 AFTER WRITING TO STATUS REG 

83 EA 06 SUB DX, 6 3 RECEIVER BUFFER 

EC IN AL, DX ; IN CASE WRITING TO PORTS CAUSED 

; DATA READY TO GO HIGH! 
F8 cLe 3 NORMAL RETURN 
C3 RET 
F9 aT20: STC 3 ERROR RETURN 
C3 RET 
18250 ENDP 
SUBROUTINE 


ee we we we we we we 


3 
3 
; 
U 
; 
3 
3 
3 
s 
; 
; 
3 
; 
3 
3 
‘ 
3 
3 
; 
i 
; 
4 
3 
; 
3 
3 
; 
; 
3 
; 
; 
3 
3 
3 


OR 
oR 
NO 
joorese 
ct 
Ec 
EB 00 
oa C4 
EE 
28 01 
51 


TEST A PARTICULAR 8250 INTERRUPT. PASS IT THE 

(BIT @ ¢ 1) OF THE STATUS REGISTER THAT IS TO BE TESTED. 
THIS ROUTINE SETS THAT BIT AND CHECKS TO SEE IF THE CORRECT 
8250 INTERRUPT IS GENERATED. 


Pas ade TO BE PASSED: 


H) = BIT @ TO BE TESTED 
Cae SS arc IDENTIFIER 


= RECEIVED DATA AVAILABLE OR TRANSMITTER HOLDING 
REGISTER EMPTY INTERRUPT TE 


ST 
ql) = Ree NER LINE STATUS OR MODEM STATUS INTERRUPT 
(BH) = en DETERMINE WHICH INTERRUPT IS TO BE 


E 
MODEM STATUS 
TRANSMITTER HOLDING REGISTER EMPTY 
RECEIVED DATA AVAILABLE 
RECEIVER LINE STATUS 
LUE TO SUBTRACT AND ADD IN ORDER TO REFERENCE THE 
NTERRUPT IDENTIFICATION REGISTER 
(3) = RECEIVED DATA AVAILABLE, TRANSMITTER HOLDING 
REGISTER AND RECEIVER LINE STATUS INTERRUPTS 
(4) = MODEM STATUS INTERRUPT 
(DX) = heh aad THE LINE STATUS OR MODEM STATUS REGISTER 
(AL) = OFFH IF TEST FAILS - EITHER NO INTERRUPT OCCURRED OR 
THE WRONG INTERRUPT OCCURRED 


ruwwnx 


(cx) 


“< 


CAL) = CONTENTS OF THE INTERRUPT ID REGISTER FOR RECEIVED 
DATA AVAILABLE AND TRANSMITTER HOLDING REGISTER 
EMPTY INTERRUPTS 


-OR- 

CONTENTS OF THE LINE STATUS OR MODEM STATUS REGISTER 
DEPENDING ON WHICH ONE WAS TESTED. 

(DX) = ADDRESS OF INTERRUPT ID REGISTER FOR RECEIVED DATA 
a tteeupTS TRANSMITTER HOLDING REGISTER EMPTY 
N U 


(DX) = ADDRESS OF THE LINE STATUS OR DATA SET STATUS 
REGISTER (DEPENDING ON WHICH INTERRUPT WAS TESTED) 


OTHER REGISTERS ARE ALTERED. 

PROC —NEAR 

IN AL, DX 3 READ STATUS REGISTER 

ume $42 3 170 DELAY 

OR ALLAH ; SET TEST BIT 

our DX, AL 3 WRITE IT TO THE STATUS REGISTER 
SUB Dx. CX 3 POINT TO INTERRUPT ID REGISTER 
PUSH 
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2B CY 


AaB 01 
74 02 
E2 F9 


3a C? 
75 08 
OA DB 
74 06 
es DI 


EC 
cs 


BO FF 
cs 


FB 


2€: 8A 25 
20 26 0084 R 


E4 21 
22 C4 
&6 21 


58 
cs 


51 

28 C9 

2E: 8A 05 
34 FF 


84 06 0084 R 
5 03 

E2 F8& 

F9 


59 
C3 


aT2i: 


AT22: 


AT23: 
AT242 


sag 
DESCRIPTION 


OO we we we we we we we we we we 


ee 


oo 


WAIT FOR 8250 INTERRUPT TO OCCUR 
READ INTR ID REG 

INTERRUPT PENDING? 

YES -RETURN W/ INTERRUPT ID IN AL 
NO - TRY AGAIN 

AL = 1 IF NO INTERRUPT OCCURRED 
oo WE'RE LOOKING FOR? 


DONE WITH TEST FOR THIS INTERRUPT 
RETURN W/ CONTENTS OF INTR ID REG 
READ STATUS REGISTER TO CLEAR THE 


INTERRUPT (WHEN BL=1) 
RETURN CONTENTS OF STATUS REG 


SET ERROR INDICATOR 


UP CONDITIONS FOR 8250 TESTING 


O SET UP CONDITIONS FOR THE TESTING OF 8250 AND 


8259 INTERRUPTS. 


ENABLES MASKABLE EXTERNAL INTERRUPTS, 


CLEARS THE 8259 INTR RECEIVED FLAG BIT, AND ENABLES THE 
DEVICE'S 8259 INTR (WHICHEVER IS BEING TESTED). 


IT eres): TO BE PASSED: 


) = ADDRESS OF SEGMENT WHERE INTR_FLAG IS DEFINED 
) = OFFSET OF THE INTERRUPT BIT MASK 


DI 
UPON RETURN: 


INTR_FLAG BIT FOR THE DEVICE = 0 


NO REGISTERS ARE ALTERED. 


NEAR 

AX 

AH,CS: (DI) 
INTR_FLAG, AH 
AL, INTAOL 
AL,AH 
INTAOQL,AL 
Ax 


eee ee 


ENABLE MASKABLE EXTERNAL 
INTERRUPTS 

GET INTERRUPT BIT MASK 

ee 8259 INTERRUPT REC'D FLAG 


CURRENT INTERRUPTS 
ENABLE THIS INTERRUPT, TOO 
WRITE TO 8259 CINTERRUPT 


3 CONTROLLER) 


AT25¢ 


MSCBIO10. INC 
AT27: 


& 
EXPECTS TO 
CD 


SUBROUTINE 


CHECKS IF A 8259 INTERRUPT IS GENERATED BY THE 
INTERR RupT. 


250 


BE 


PASSED 


OFFSET OF INTERRUPT BIT MASK 
ADDRESS OF SEGMENT WHERE INTR_FLAG IS DEFINED. 


1 IF NO INTERRUPT IS GENERATED 
O IF THE INTERRUPT OCCURRED 
COMPLEMENT OF THE INTERRUPT MASK 


CX 
AL,CS:(DI) 
AL, OFFH 


INTR_FLAG, AL 
AT27 
AT25 


CAL 
NO OTHER REGISTERS ARE ALTERED. 


Se rr 


SET PROGRAM LOOP COUNT 

GET INTERRUPT MASK 

COMPLEMENT ane SO ONLY THE INTR 
TEST BIT IS 0 

8259 INTERRUPT OCCUR? 

YES - CONTINUE 

WAIT SOME MORE 

TIME'S UP - FAILED 


’ 

+ SUBROUTINE 
TO WAIT FOR ALL ENABLED 8250 INTERRUPTS TO CLEAR (SO 

NO INTRS WILL BE PENDING). 
1 MILLISECOND YO CLEAR. THE INTERRUPT IDENTIFICATION 

REGISTER WILL BE CHECKED UNTIL THE INTERRUPT(S) IS CLEARED 


(DX) 
RETURHS: 
CAL) 


AT28: 


AT291 
AT3O: 


; 

r 

; 

; 

; OR 

3 EXPECTS 10 
; 

, 

; 

; 


(CF) 


A TIMEOUT - otlagean 


BE PASSED 
ADDRESS OF THE INTERRUPT ID REGISTER 


CONTENTS OF THE INTR ID REGISTER 

IF INTERRUPTS ARE STILL PENDING 

; IF NO INTERRUPTS ARE PENDING CALL CLEAR) 
+ NO OTHER REGISTERS ARE ALTERED. 


SHORT AT3O 
cx 
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ee we we we ve 


EACH INTERRUPT COULD TAKE UP TO 


READ INTR ID REG 
INTERRUPTS STILL PENDING? 
NO - GOOD FINISH 

KEEP TRYING 

TIME'S UP - ERROR 











130A 


14 


BO 80 
EB 00 
83 EA 03 
BO oc 
EB 00 


EB 00 
83 EA 03 


o 
o 
o 
o 
rmmMABmMmM MaAmMmMmMmmaMBMA2ARBMM 


EA 
0068 R 
Fe00 


30 39 2F $i 30 2F 
38 34 


FF 


W8250C ENDP 


SUBROUTINE 


3 

; TO SET AN INS8250 CHIP’S BAUD RATE TO 9600 BPS AND 

; DEFINE IT'S DATA WORD AS HAVING 8 BITS/WORD, 2 STOP BITS, 
; AND ODD PARITY. 

; modes TO BE PASSED 

3 DX) = LINE CONTROL REGISTER 

3 UPON RETURN: 

; (DX) = TRANSMIT/RECEIVE BUFFER ADDRESS 

; ALTERS REGISTER AL. ALL OTHERS REMAIN INTACT. 


MoV AL,80H 3 SET DLAB = 1 
our DX,AL 
su Dx. i Sp OF OL IVISOR LATCH 

DxX,3 3 LSB OF D 
MoV AL,12 } DIVISOR = 12 PRODUCES 9600 BPS 
our DX,AL > SET LSB 
JMP $42 3 170 DELA 
INC DX 3 MSB OF DIVISOR LATCH 
MoV AL,O 3 HIGH ORDER OF DIVISORS 
out DX, AL > SET MSB 
JMP $+2 3 170 DELAY 
INC DX 
INC DX 3 LINE CONTROL REGISTER 
MoV AL,OOOO11118 3 8 BITS/WORD, 2 STOP BITS, ODD 

3 PARITY 
OUT DX,AL 
JmP $42 3 140 DELAY 
SUB DxX,3 3 RECEIVER BUFFER 
IN AL,DX 3 IN CASE WRITING TO PORT LCR 
3 CAUSED DATA READY TO GO HIGH! 
ET 
$8250 ENDP 


; 

+ SUBROUTINE 

3 TO READ AN 8250 REGISTER. MAY ALSO BUMP ERRO 

3 REPORTER (BL) AND/OR REG DX (PORT ADDRESS) DEFENDING ON 

3 WHICH ENTRY POINT IS CHOSEN 

; THIS SUBROUTINE WAS WRITTEN TO AVOID MULTIPLE USE OF I70 

; TIME DELAYS FOR THE 8250. IT WAS THE MOST EFFICIENT WAY TO 
; INCLUDE THE DELAYS. 

+ UPON RETURN 






REG AL WILL CONTAIN THE CONTENTS OF PORT(DX) 

RRL PROC NEAR 
XOR AL,AL 
out DX, AL 3} DISABLE ALL INTERRUPTS 
INC BL ; BUMP ERROR REPORTER 

RR2: INC DX 3 INCR PORT ADDR 

RRS: TN AL, DX 3 READ REGISTER 

RR _ENDP 


; THESE ARE THE VECTORS WHICH ARE MOVED INTO 2 
3 THE 8086 INTERRUPT AREA DURING POWER ON. 3 
3 ONLY THE OFFSETS ARE DISPLAYED HERE, CODE t 
> SEGMENT WILL BE ADDED FOR ALL OF THEM, EXCEPT : 
3 WHERE NOTED. 2 


ASSUME CS:CODE 
ORG BEGIN+15COH 
VECTOR_TABLE LABEL WORD ; VECTOR TABLE FOR MOVE TO aca 
OW OFFSET es ant INTE 08 
K 


DW OFFSET 3 INTERRUPT 09H 
DW OFFSET 3 INTERRUPT OAH 
DW OFFSET DIL 3 INTERRUPT OBH 
DW OFFSET Di} 3 INTERRUPT OCH 
Ow OFFSET D11 3 INTERRUPT CDH 
Dw OFFSET DISK_INT 3 INTERRUPT OEH 
DW OFFSET Dil 3 INTERRUPT OFW 
DW OFFSET VIDEO_ 19. 3 INTERRUPT 10H 
DW OFFSET EQUIPMEN 3 INTERRUPT 11H 
DW OFFSET MEMORY. SIZE_DETERNINE 3 INTERRUPT 12H 
Dw OFFSET DISKETTE_IO 3 INTERRUPT 13H 
Dw RS232_10_ 3 INTERRUPT 14H 
Dw CASSETTE 10 3 INTERRUPT 15H 
DW OFFSET KEYSOARD_I0 3 INTERRUPT 16H 
OW OFFSET PRINTER_YO 3 INTERRUPT 17H 
OW 00000H 3 INTERRUPT 18H 
DW OFFSET BOOT_STRAP 3 INTERRUPT 19H 
DW TIME_OF_DAY 3 INTERRUPT LAH 
DW DUMMY_RETURN 3 INTERRUPT 1BH ~ KEYBD BREAK ADDR 
Dw DUMMY_RETURN 3 INTERRUPT 1CH - TIMER BREAK ADDR 
DW VIDEO_PARMS > INTERRUPT 1DH 
OW OFFSEY DISK_BASE 3 INTERRUPT 1EH 
DW _bumty _RETURN 3 INTERRUPT 1FH 


adele 


POWER ON RESET VECTOR 3 


3 
goooo> POWER ON RESET 


DB OEAH 3 JUMP FAR 

DW OFFSET RESET 

DW OF800K 3 CODE SEGMENT 
DB "09710784" + RELEASE MARKER 
DB OFFH + FILLER 





Appendix A. 


DB OEDH 3 SYSTEM IDENTIFIER € 


ISFE ED 
; DB OFFH 3 CHECKSUM 
ASFF POST_END LABEL FAR 3 
15FF CODE EXDS 
END 
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Appendix B. Logic Diagrams : 
: 12 pens 





10/-M 
THASED ROM : 
a f 
-EROM 4 J : 
=EROM 51 
B : ROM 6 2 
ow 7 
¢ {1 -6p)——MEMR 
(1-86)—O8 : 


(1- ap) —MEMW 


-8259 CS 


(1- 8C) 
(1-8C) 





[a 


‘e@ 
| 
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Character Code Table/Character Font 
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Appendix C. Character Code Table/Character Font 


=" Display Character Code(AN of CG1) 


bit 4~7 










{file |b Fells i 
e[SfCL ASIEN Het Pte ef eel 
oS [=IM Tim Tle eo 
re[at=[-[>INiain [> [Ale [<P PS ele 
Fle} [7[?10|—lolAIALe [> aL 
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= Display Character Code (ANK of CG2) 


bit 4~7 


RORBSGEORBA ABO 
: jyatr=foleley fel Lis 


es 
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Appendix C. Character Code Table/Character Font 


= Thermal Printer (1BM5513) Character Code 


bit 4~7 
i" Ee REESE EERE ESE 
eye fa Je fe fe Je fe fee 








2 
Cc 
rm 
Q 
KR 
mo 
ca) 
ep 
bells 
IT 
mA 
7 


wro 3!q 


Qo ;7 
a)7 


</r ijrz 
O 
O 
> 


@) 
a 1 [+- | D> | be ty. 
re) 2 





¢ 


Pe feo pw Pe fa ee Jee 
pe fsife fe fe jo f je foecfa [TF Je |a [sp 


Remark) Applied in English Mode 


C-4 


Thermal Transfer Printer (IBM5512) Character Code 


The IBM 5512 has three kinds of character sets: 


1. 


2. 


wo 11g 


[= [= [* le |e | ape [4 


alee e oe le ele 





PC character set 

corresponds to AN of character generator 1. 

Nihongo DOS character set 

corresponds to ANK of character generator 2. “7F”, however, is X 
and “AO” is blank. 

. Kana character set (See the following chart) 


bit 4~7 


po sel alale[e [2] s[alalalelolele! 
Gre eal lai 












N 
a |> 





Fea eli RSs 





3] $=|]0] a feJO 
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Appendix C. Character Code Table/Character Font 


=» Scan Code 
The following chart shows scan codes for Native and English modes. 
( ) is for English mode. 


Scan 
Key | Code 


77 (4D) 
78 (47) 


Fn | 79 (48) 


{(aJjz 
\ 
Z 
X 
Cc 
Vv 
B 
N 
M 





2 Feeee 

a aaa 
OE eeeEeeeeel IESE 

MPEP CRRAAFAS lo 
Ss esseueat th: 

BIS) ABI Bae eee 


C-6 


# Keyboard Hankaku (half-size) Character Code (1 of 2) 














































































































































































Lower Case | Upper Case] 
Esc 1B | Esc 1B_ | Esc 1B | Esc 1B (Cassette) ak | 
1 31 ! 21 x C7 att! Null+78 
2 32 ~ €¢ NUL(00) Null+79 
3 33 7 Bil 7 AT =i Null+7A 
4 34 7 38a y AY om! Null+7B 
5 35 x= B4 xz AA =i] Null+7C 
6 36 A ~=BS a AB RSO(1E) Null+7D 
7 & vy D4 + AC = TI Null+7E 
8 * 2 D5 2 AD aaa | Null+7F 
9 ( 3 D6 3 AE ~~ Null+80 
0 ) ? Ie 7 A6 =F Null+81 
- = * = =6©CE -1 US(1F) Null+82 
+ 2F ~ CD =] ~~] Null+83 
@iB* 08 | @5B* 08 | GiB* 08 DEL(7F) a | 
— — Null +0F | —o 09 =| K— Null+0F coat | =} 
q 71 Q 51 ¥ C0 ==} DC1(11) Null+10 
Ww 77 W 57 7 CG =~) ETB(17) Null+11 
e 65 E 45 4 B2 A8 ENQ(05) Null+12 
r 72 R 52 A BD —~] DC2(12) Null +13 
t 74 T 54 7 B6 =i], DC4(14) Null+14 
y 79 Y 59 »’ DD —] EM(19) Null+15 
u 75 U 55 - 6G NAK(15) Null+16 
i 69 I 49 —= C6 HT(09) Null+17 
) 6F O 4F 7 OD? SI(0F) Null+18 
p 70 P 50 % BE DLE(10) Null+19 
[ 5B { 7B " DE Esc(1B) a= J] 
5D } 7D DF GS(1D) =] 






a 


—“~ oo 


qi 


** 0D LF(0A) =I 


Remark : '—1, is "Not Used). 


Hvveees Backspace 
* *--» Carriage Return 
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# Keyboard Hankaku (half-size) Character Code (2 of 2) 























CTRL 
Upper Case[ 
1 -l —-] 











































































































a 61 A 41 =] SOH(01) Null+1E 
s 73 S 53 =i DC3(13) Null+1F 
d 64 D 44 =] EOT(04) Null+20 
f 66 F 46 —l ACK(06) Null+21 
g 67 G 47 -1 BELL(07) Null+22 
h 68 H 48 —1 BS(08) Null+23 
j 6A J 4A aa | LF(0A) Null+24 
k 6B K 4B asl VT(0B) Null+25 
1 6C L a —1 FF(0C) Null +26 
i 3B : 3A —1 -1 ae | 
27 se 22 —1 -1 -1 
‘ 60 |(~) -1 J A3 —1 a= 
Left Shift—1 -1 -1 =] — 4 


















(\) 7C -1 —] -1 






































| 
Z SA » AF SUB(1A) Null+2C 
X 98 —1 CAN(18) Null+2D 
C 43 =] EXT(03) Null+2E 
Vi SOS6 SYN(16) Null+2F 
B 42 STX(02) Null +30 
N 4E $0(02) Null+31 
M 4D CR(0D) Null+ 32 
< 3C =~ | at 
> 3E = ag 
? 3F = aa | 















Right Shift—1 
* 2A 






=] 
Prt -1 
Screen 


-1 
Echo -1 


—| 
=i 








Screen 








¥ §¢ 7E 





Remark : —1 4 is "Not Used. 
> (\) and (~) are valid only in English mode. 
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» Keyboard Zenkaku (full-size) Character Code (1 of 2) 


Scan Alphanumeric Katakana 
Code |Lower Case Upper Case|Lower Case Upper Case|Lower Case Upper Case 
1 


836B -1 82CA = 
=I 
8340 
8344 
8346 
8248 
8383 
8385 
8387 
8392 
8192 
8158 
—1 
=} 






























Remark: '—1 is "Not Used). 


Appendix C. Character Code Table/Character Font 
« Keyboard Zenkaku (full-size) Character Code (2 of 2) 


Scan [_Alphanumerte 
Code 


Lower Case Upper Case|Lower Case Upper Case|Lower Case Upper Case 
—-1 -1 


ai] -] 
=] -1 





Remark : "—1, is ‘Not Used). 


= Keyboard Character Code 


CTRL 


Alt 
Space 
AN 
PF1 
PF2 
PF3 
PF4 
PF5 
PF6 
PF7 
PF8 
PF9 
PF10 
Scroll 
Lock 
Home 


Cur up 


Cur left 
Cur right 
+ 

Cur down 
GA 
BURR 

Fn 
ay 
PRAT HR 
Beit 
AVAF 
US 28% 


Remark 


a 

—~ | 
Null+3B 
Null+3C 
Null+3D 
Null+3E 
Null+3F 
Null+40 
Null+41 
Null+42 
Null+43 
Null+ 44 

—-1 


Null+47 
Null+ 48 
2D 
Null+4B 
Null+4D 
2B 
Null +50 
Null+52 
Null +53 
aati | 
nt, y 


im 
=] 
Null+54 
Null+55 
Null +56 
Null+57 
Null+58 
Null+59 
Null+5A 
Null+5B 
Null+5C 
Null+5D 
= 


Null+47 
up Null+48 
_ 2D 
Cur left Null+4B 
Cur right Null+4D 

+ 2B 
Cur down Null+50 
i A Null +52 
(Num Pad '‘.’) 
=, 
w+ ~Al 
PEAT 20 
Brig 20 
AIAF oad | 
Vorwmsye =] 


Home 
Cur 


>f—1, is "Not Used). 
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a 
—1 
Null+5E 
Null+5F 
Null +60 
Null+61 
Null+62 
Null +63 
Null+64 
Null +65 
Null+66 
Null +67 
— I] 


Null+77 
=] 
aa | 

Null+73 

Null +74 
at 
I 
mat | 
-1 
ae | 
oe | 
1 
ae | 
= 
=1 


Space 


PF31 
PF32 
PF33 
PF34 
PF35 
PF36 
PF37 
PF38 
PF39 
PF40 


=1 

20 

aoa | 
Null+68 
Null+69 
Null+6A 
Null+6B 
Null+6C 
Null+6D 
Null+6E 
Null+6F 
Null+70 
Null+71 

=] 
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= Combined key functions 


Key combination Function sample 


+Scroll Lock Break 






































+ Efi Echo 

(oa) + ENR Print Screen 
Fn+Q Pause 

+Fn+N Numeric Lock 
Fn+ (-] Page Up 

Fn+ Page Down 






Home Position 
End 
Screen Clear (BASIC) 


Execution 


or Fnt+(_t } 
Fn+(_4 ] 

(ctr} +L) 

Fnt+ (+ } 


Fn+H 

(arma) + (Ctri} + L— } 
(atm) + (Ctr) +C— ) 
(am) + (Ctr) + [A] 
(air) + (Ctrl) + (HIER) 
(Ctrl) +ESC 


Fn+T 















Interrupt 
Screen right 





Screen left 







System Reset 





System Reset 







Cassette auto-load 






Termination 


Remark) Functions may differ from application to application. 


This is a sample. 
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6 


= Kanji ROM address calculation 


RA 


CPU 
address 


OND & WD — © 













L 





R 


©000006000060080 

e ; e 

2 @ 
eccccececcoe 

@ 

@ 8 
V/LLL LW "a ae 

\@ 





10 1 23.45 6 7:8 9 101112131415: 


2 byte Kanji code 


VASMAG 21109 8 765 4 32 


Calculation Sample 


10% XXX x*XxXXXXxXxXXxXxXxKKXKX 






1 0/3 2 1 OjL/R 


The Kanji ROM address for the shaded dot pattern can be calculated 
as follows: 


Kanji Code —= 10 0 1°00 0 0 
(90AF) 


RA=6 —- 


L/R=0 — 


ROM address —=— 1 0 0 0 00 1 
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Appendix C. Character Code Table/Character Font 
=» Character Font 


CG1 Alphanumeric: Special Character 8X8 

CG2 Alphanumeric: Special Char. and Katakana 8 X 8 
Alphanumeric » Special Char. Hankaku Char. of Katakana 8 X16 
Hiragana and Kanji 16X16 


01234567 0123456 


GN 

















0 0 Yj 
l; 
: Y) 
6 6 Y) 
7 } Cursor 7 } Cursor 
CG1 Sample: B CG2 Sample: B 
7X7 (8X8) 7X7 (8X8) 
Alphanumeric - Special Char. Alphanumeric - Spcial Char. - Katakana 
pe 0123 4567 8 9 1011121314615 
0 of ©0008 08000008 
1 y 1 @ ® 
2 J 2 @ e 
3Y 3 ©e2eeeeeeese 
4 Yj 4 @ ; @ 
5 Y; 5 e @ 
14 6 eceeeceeeeee 
7 y 7 e 
8 8 @ @ 
oY 9 @e2e2e@00e0e00600080 
10 10 e 
if 11 & 
HZ ee2eeeeeeee 
13 & 
14 Vy 14 
ng iy 
+1]1X XxX XX XXX +1 C 
File soen ea] | COO gal } Curso 
CG2 7X16 (8 X16) CG2 15X16 (16X16) 
Hankaku : Alphanumeric - Special Char. Kanji, Hiragana 
Katakana 


Remark (G@: Talways blank 
XX: cursor dot 
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=» Character Display Format of Extension Video mode 


-10 123 45 67 8 9 10111213 14 15+1 
-27AAAAAAAKAAKAAAAAKAAAABAA JA} Horizontal Grid Line 
=] a LLY 

@e2ee000000800 
@ e 
























e e 
Ree : saee2 Zenkaku (Full-size character) 


Onno f® WH — CO 







SSS EAA aw 


SQQgq_, 










h7, ceccesecceese/ 









— Vertical Grid Line 


-101234567 













a a 
VL 


Hankaku (Half-size Character) 


+Q]axx xX XXX XXX 
+ S]ox x xX X XX XXX 


L. Vertival Grid Lise 


} Cursor 


Remarks) MY: always blank, portion 
XX: Cursor dot 
4 :Grid Line dot 


®> 


Index 


1 

12” Color Display, 1-4, 4-33 

12" Monochrome Display, 1-4, 4-33 
128KB RAM Card, 1-3, 4-6 

14" Color Display, 1-4, 4-33 


6 
64KB RAM Card, 1-3, 4-2 


A 

Address Change, 2-19 
Asynchronous communication, 4-26 
Attribute, 3-11, 3-12, 3-29 
Audio Interface, 2-38 


B 

Beep, 2-38 

BIOS, 5-1, 5-5, 5-43 

Block definition value, 2-16 
Border Color Register, 3-20 


C 

Cartridge, 2-47 
Cassette, 2-27 

CGi, 3-8 

CG2, 3-8 

Character Generator, 2-1 
Character Generator 1, 3 
Character Generator 2, 3 
Clock, 2-8, 3-26 

CMT Cable, 1-4, 4-34 
Compatibility, 6-1 
Connector, 2-5, 2-6 

CPU, 2-7 

CRT Controller, 3-39 


5, 3-8 


8 
8 


D 

Diskette Compatibility, 6-7 
Diskette controller, 4-13 
Diskette Drive, 1-3, 4-23, 6-4 
Diskette Drive Adapter, 1-3, 4-12 
Display, 4-33 

DOS, 2-50 


E 

English Mode, 1-2, 3- 
Expanded memory, 3-4 
Expansion Board, 1-5, 4-36 
Expansion Channel, 2-22 

Expansion Unit, 1-5, 4-37 

Extension Video Card, 1-3, 4-7 
Extension Video mode, 3-2, 4-7, 5-3 


2 


X-1 


Extension Video Mode BIOS, 5-35 


G 

Gaiji RAM, 2-15 

Gate Array, 3-18, 3-33, 4-7 
General-use memory, 2-14 
Graphics, 3-13, 3-27, 3-31 


I 

1/0 address, 3-42, 5-49, 5-50 
Infrared Receiver, 2-42 
Interrupt, 2-8, 4-14 
Interrupt vector, 5-6 


J 
Joystick, 1-4, 4-35 
Joystick Interface, 2-44 


K 

Keyboard, 2-59 

Keyboard Cable, 1-4, 4-25 
Keyboard Cable Interface, 2-43 
Keyboard data, 2-39, 2-60 
Keyboard Interface, 2-39 


L 
Light Pen Interface, 3-40 


M 

Memory, 2-14, 6-6 

Memory Map, 3-5, 5-46 

Memory Space, 2-16, 5-47, 5-48 
Mode Control 1 Register, 3-19 

Mode Control 2 Register, 3-21 


N 

Native mode, 3-2 
Native Mode BIOS, 5-8 
Nativemode, 5-3 

NMI, 2-13 


0 

Operation Mode, 1-2, 5-3 
Optional Features, 4-1 

P 

Page, 1-3, 3-4 

Page Register, 3-4 
Palette, 3-24 

Palette Mask Register, 3-20 
Parallel Port, 2-10 

Port AO, 2-13, 2-41 
Power Unit, 2-62 
Printer, 1-4 


X-2 


Printer Cable, 1-5 
Printer Interface, 2-55 
Processing speed, 6-6 
Processor, 2-7 


R 

Register 0, 3-34 
Register 1, 3-34 
Register 2, 3-34 
Register 3, 3-35 
Register 4, 3-35 
Register 5, 3-36 
Register 6, 3-36 
Register 7, 3-37 


Reset Register, 3-22 

ROM cartridge, 2-47 
RS-232C, 1-4, 4-26, 6-5 
RS-232C Cable, 1-4, 4-32 


Ss 

Scan Code, 2-61, 5-45 
Self-diagnostic test, 2-48, 2-50 
Sound Generator, 2-31, 2-33, 6-4 
Sound Source, 2-32 

Sound Subsystem, 2-31 
Superimpose, 3-23, 3-26 

System Board, 2-3 

System ROM, 2-14, 2-47 

System Software, 5-3 


T 

Text Display, 3-11, 3-12, 3-29 
Timer, 2-7, 6-5 

Transparent Palette Register, 3-22 
TV Adapter, 1-4, 4-24 


U 
User memory, 6-4, 6-5 


V 

Video processor, 3-2 
Video RAM, 2-15, 3-4, 3- 
Video Subsystem (VSS), 3 
Virtual address, 3-4 
VP1, 3-1 
VP2, 3-1 
VP3, 3-1, 4- 
VRAM 1, 3-4 
VRAM 2, 3-4 
VSS, 3-1 


27, 3-28, 3-38, 4-7 
= 


7 


X-3 





